PROGRAM MENGHITUNG LUAS DAN KELILING BANGUN DATAR

program luas_keliling_kubus_lokal_dan_global;

uses wincrt;

var

p,le,t,s:integer;

pi,d1,d2:real;

procedure kubus;

var

l,k:integer;

begin

writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');

writeln('Menghitung Luas Dan Keliling Kubus');

writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');

write('masukan nilai s : ');readln(s);

l:=s*s;

k:=4*s;

writeln('jadi luasnya adalah',l);

writeln('jadi kelilingnya adalah',k);

end;

procedure lingkaran;

var

l,k:real;

begin

writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');

writeln('Menghitung Luas Dan Keliling Lingkaran');

writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');

write('masukan nilai pi:');readln(pi);

write('masukan nilai d1:');readln(d1);

write('masukan nilai d2:');readln(d2);

l:=pi*d1*d2;

k:=pi*d1+d2;

writeln('jadi nilai luasnya adalah',l);

writeln('jadi nilai kelilingnya adalah',k);

end;

procedure Bujur_sangkar;

var

l,k:integer;

begin                                         

writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');

writeln('Mnghitung Luas Dan Keliling Bujur Sngkar');

writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');

write('masukan nilai p:');readln(p);

l:=p*p;

k:=4*p;

writeln('jadi luasnya adalah',l);

writeln('jadi kelilingnya adlah',k);

end;

procedure Balok;

var

l,k:integer;

begin

writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');

writeln('Mwnghitung Luas Dan Keliling Balok');

writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');

write('masukan nilai p:');readln(p);

write('masukan nilai le:');readln(l);

write('masukan nilai t:');readln(t);

l:=p*le*t;

k:=2*(p+l+t);

writeln('jadi luasnya adalah',l);

writeln('~~~~~~~~~~~~~~~~~~~~~~');

writeln('jadi kelilingya adalah',k);

writeln('~~~~~~~~~~~~~~~~~~~~~~');

end;

begin

balok;

bujur_sangkar;

lingkaran;

kubus;

writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~')

end.