Program Menghitung Volume Kubus, Luas persegi panjang,keliling lingkaran,dan keliling persegi panjang dengan Turbo Pascal

Program Menghitung Volume Kubus, Luas persegi panjang,keliling lingkaran,dan keliling persegi panjang dengan Turbo Pascal

  22:47    Unknown

---

Program untuk menyelesaikan pilihan menu dengan Turbo Pascal 
Menu Program
----------------------------------------
1. Menghitung Volume Kubus
2. Menghitung Luas Persegi Panjang
3. Menghitung Keliling Lingkaran
4. Menghitung Keliling Persegi Panjang

USES CRT;
Var
pil                         :byte;
S,P,L                    :longint;
vol,luas,kl             :real;
kp                         :integer;
r                            : integer;
Begin
clrscr;
writeln('Menu Program');
writeln('-------------------------------------------------------------------------------');
writeln('1.Menghitung Volume Kubus');
writeln('2.Menghitung Luas Persegi Panjang');
writeln('3.Menghitung Keliling Lingkaran');
writeln('4.Menghitung Keliling Persegi Panjang');
write('Pilihan = ');
Readln(pil);
if pil=1 then
Begin
clrscr;
writeln('Menghitung Volume Kubus');
writeln('-------------------------------------------------------------------------------');
write('Sisi Kubus:');
Readln(s);
vol:=s*s*s;
writeln('Volume Kubus:',vol:3:1);
End
Else if pil 2 then
Begin
clrscr;
writeln('Menghitung Luas Persegi Panjang');
writeln('------------------------------------------------------------------------------');
write('Lebar:');Readln(L);
write('Panjang:');Readln(P);
Luas:=P*L;
writeln('Luas :',luas:3:0);
End
Else if pil=3 ten
Begin
clrscr;
writeln('Menghitung Keliling Lingkaran');
writeln('------------------------------------------------------------------------------');
write(''Jari-jari:');Readln(r);
kl:=3.14*2*r;
writeln('Keliling Lingkaran:',kl: 3:0);
End
Else if pil=4 Then
Begin
clrscr;
writeln('Menghitung Keliling Persegi Panjang');
writeln('------------------------------------------------------------------------------');
write('Panjang:');Readln(P);
write('Lebar:');Readln(L);
kp:=2*(P+L);
writeln('Keliling Persegi Panjang:',kp:3:0);
End
else
Begin
clrscr;
writeln('Pilihan Anda Tidak Tersedia!!!!');
End;
Readln;
End.

Demikianlah Coding Pemograman Ini saya buat semoga bermamfaat bagi pembaca sekalian......!!
Tuhan memberkati.....