Bahasa Pascal

23 04 2009

Program Bahasa Pascal (Procedure)

Juni 30, 2008 oleh caslim

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.


procedure menghitung luas dan keliling bangun datar


program menghitung_luas_dan_keliling_bangun_datar;
uses crt;
var
a,b,c,t,p,l,r,s:integer;
luas,keliling:real;
procedure menu;
begin
writeln (‘1.segitiga’);
writeln (‘2.lingkaran’);
writeln (‘3.persegi panjang’);
writeln (‘4.bujur_sangkar’);
end;
procedure segitiga;
begin
writeln (‘menghitung luas dan keliling segitiga’); readln;
write (‘input a:’); readln (a);
write (‘input b:’); readln (b);
write (‘input c:’); readln (c);
write (‘input t:’); readln (t);
luas:=0.5*a*t;
keliling:=a+b+c;
writeln (‘luas:’,luas:3:3);
writeln (‘keliling:’,keliling:3:3);
end;
procedure lingkaran;
begin
writeln (‘menhitung luas dan keliling lingkaran’); readln;
write (‘input r:’); readln (r);
luas:=3.14*r*r;
keliling:=2*3.14*r;
writeln (‘luas:’,luas:3:3);
writeln (‘keliling:’,keliling:3:3);
end;
procedure persegi_panjang;
begin
writeln (‘menhitung luas dan keliling persegi panjang’); readln;
write (‘input p:’); readln (p);
write (‘input l:’); readln (l);
luas:=p*l;
keliling:=2*(p+l);
writeln (‘luas:’,luas:3:3);
writeln (‘keliling:’,keliling:3:3);
end;
procedure bujur_sangkar;
begin
writeln (‘menhitung luas dan keliling bujur sangkar’); readln;
write (‘input s:’); readln (s);
luas:=s*s;
keliling:=4*s;
writeln (‘luas:’,luas:3:3);
writeln (‘keliling:’,keliling:3:3);
end;
var
pil:char;
tanya:string;
begin
tanya:=’Y’;
while tanya=’Y’ do
begin
writeln (‘silahkan pilih menu berikut’);
menu;
case pil of
‘1.’: begin segitiga; end;
‘2.’: begin lingkaran; end;
‘3.’: begin persegi_panjang; end;
‘4.’: begin bujur_sangkar; end;
writeln (‘masukan pilihan anda:’); readln (pil);
write (‘mengulang [Y/N]:’); readln (tanya);
end;
end.

 


Aksi

Information

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s




%d blogger menyukai ini: