Senin, 13 Agustus 2012
uses crt;
var
bd, A, T, P, L, R : integer;
Pi, Ls:real;
begin
clrscr;
writeln ('_________________________________________________________');
writeln ('ket');
writeln ('Kode 1 Untuk SEGITIGA');
writeln ('Kode 2 Untuk PERSEGI PANJANG');
writeln ('Kode 3 Untuk LINGKARAN');
writeln ('_________________________________________________________');
writeln (' ');
write ('Masukan Bangun Datar yang akan anda hitung ==> ');
readln (bd);
case bd of
1: begin
write ('Masukan Alas = ');
readln (A);
write ('Masukan Tinggi = ');
readln (T);
Ls:= A * T /2;
writeln ('Luas SEGITIGA yang anda hitung ==> ',Ls:2:0);
end;
2: begin
write ('Masukan Panjang = ');
readln (P);
write ('Masukan Lebar = ');
readln (L);
Ls:= P * L ;
writeln ('Luas PERSEGI PANJANG yang anda hitung ==> ',Ls:2:0);
end;
3: begin
pi:=3.14;
write ('Masukan Jari-Jari = ');
readln (R);
Ls:= Pi * R * R ;
writeln ('Luas LINGKARAN yang anda hitung ==> ',Ls:2:2);
end;
else
write ('kd yang anda inputkan tidak sesuai dengan ketentuan');
end;
readkey;
end.