Program Bangun_Ruang_Balok;
uses
wincrt;
var
panjang : real;
lebar : real;
tinggi
: real;
volume
: real;
Lp : real;
lagi : string;
Procedure Input;
begin
Write(' silahkan masukan panjang
Balok: ');Readln(panjang);
Write(' silahkan masukan lebar Balok :
');Readln(lebar);
Write(' silahkan masukan tinggi Balok
: ');Readln(tinggi);
end;
Function Volume(panjang, lebar,
tinggi:real):real;
Begin
volume:=(panjang*lebar*tinggi);
end;
Procedure Rumus;
begin
Volume(panjang,lebar,tinggi);
writeln('-------------------------------------------------------------------------------');
writeln(' Volume Balok adalah ',
volume:0:2);
writeln('-------------------------------------------------------------------------------');
Lp:=
(2*Panjang*lebar+2*panjang*tinggi+2*lebar*tinggi);
writeln(' Luas Permukaan Balok
adalah ', Lp:0:2);
writeln('-------------------------------------------------------------------------------');
end;
procedure ulang;
begin
writeln;
writeln(' -=TERIMA
KASIH=- ');
writeln(' Hitung
lagi(^_^) (yes/no) ? ');
readln(lagi);
clrscr;
end;
{Program utama}
begin
clrscr;
lagi:='yes';
while
lagi='yes' do
begin
writeln;
Writeln(' -=Menghitung Volume dan Luas Permukaan Balok=- ');
writeln('
________________________________________________________ ');
writeln;
Input;
Rumus;
writeln;
writeln('by->
Ayu Farida (06101408006)');
writeln;
ulang;
end;
end.