hahahaha...
suasah payah nih aq merancangnya...
ni dia listing yang ke 3
program empat_persegi_panjang;
uses wincrt;
var
nomor_menu:integer;
panjang,lebar,luas,keliling,diag:real;
begin
write('Menu Empat Persegi Panjang');
writeln;
write('1.Hitung luas ');
write('2.Hitung keliling ');
write('3.Hitung panjang diagonal ');
write('4.Keluar program ');
read(nomor_menu);
writeln;
case nomor_menu of
1:begin
write('masukkan panjang : ');readln(panjang);
write('masukkan lebar : ');readln(lebar);
luas:=panjang*lebar;
writeln('luasnya adalah : ',luas:4:2);
end;
2:begin
write('masukkan panjang : ');readln(panjang);
write('masukkan lebar : ');readln(lebar);
keliling:=2*(panjang+lebar);
writeln('luasnya adalah : ',keliling:4:2);
end;
3:begin
write('masukkan panjang : ');readln(panjang);
write('masukkan lebar : ');readln(lebar);
diag:=sqrt((panjang*panjang)+(lebar*lebar));
writeln('diagonalnya adalah : ',diag:4:2);
end;
4:begin
writeln('keluar program.');
end;
end;
end.
Tidak ada komentar:
Posting Komentar