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.
