Sekilas program menghitung bangun datar berkaitan dengan nilai Phi

Ass bagi yang melihat blog "karlina rachmasita"

Sementara ini saya menyertakan ini dulu y...
Mengitung bangun datar dengan mengunkan bahasa pemrograman pascal, dan kali saya buat dengan mengunakan subprogram ( procedure). Dan anda bisa tau perbedaan pungsi dari subprogram function dan procedure.

Dibawah ini sourcecode pemrograman tersebut.

program menghitung_bangun_datar;

uses wincrt;

const

phi=3.14;

var

sisi,P,L,r,luas,kell,no:integer;

ls,kl:real;

lagi:char;

ulang:boolean;

procedure garis;

begin

writeln(’============================================’);

end;

procedure bujursangkar;

begin

write(’masukan sisi =’); readln(sisi);

luas:=sisi*sisi;

kell:=4*sisi;

writeln;

writeln(’luas bujur sangkar=’,luas);

writeln(’keliling bujur sangkar=’,kell)

end;

procedure persegipanjang;

begin

write(’masukan panjang =’); readln(P);

write(’masukan lebar =’); readln(L);

luas:=p*l;

kell:=2*(p+l);

writeln;

writeln(’luas persegi panjang=’,luas);

writeln(’keliling persegi panjang=’,kell);

end;

procedure lingkaran;

begin

write(’masukan jari-jari/r =’); readln(r);

ls:=phi*r*r;

kl:=2*phi*r;

writeln;

writeln(’luas lingkaran=’,luas);

writeln(’keliling lingkaran=’,kell);

end;

begin

ulang:=true;

while ulang=true do begin

clrscr;

writeln(’>>> pilih menu <<<’); writeln(’1. menghitung luas dan keliling bujur sangkar’); writeln(’2. menghitung luas dan keliling persegi panjang’); writeln(’3. menghitung luas dan keliling lingkaran’); garis; write(’masukan no pilihan program=’); readln(no); case no of 1:begin lagi:=’y'; while lagi=’y’ do begin clrscr; writeln(’>>>menghitung luas dan keliling bujur sangkar’);

garis;

bujursangkar;

write(’jika mau menghitung lagi tekan y/n =’); readln(lagi);

end;

end;

2:begin

lagi:=’n';

clrscr;

repeat

begin

clrscr;

writeln(’>>>menghitung luas dan keliling persegi panjang’);

garis;

persegipanjang;

end;

write(’jika mau menghitung lagi tekan y/n =’); readln(lagi);

until lagi=’n';

end;

3:begin

lagi:=’y';

while lagi=’y’ do

begin

clrscr;

writeln(’>>>menghitung luas dan keliling lingkaran’);

garis;

lingkaran;

write(’jika mau menghitung lagi tekan y/n =’); readln(lagi);

end;

end;

else

writeln(’tidak ada menu’);

end;

end;

end.