Senin, 13 Agustus 2012

PROGRAM CASE OF ARITMATIKA


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.

;;

By :
Free Blog Templates