Source code pascal

Source code pascal

ALGORITMA

start.
input panjang, lebar, tinggi
process panjang*lebar*tinggi
output hasil volume balok
end.

Source Code

program bangun_ruang_balok;
uses wincrt;
var
panjang,lebar,tinggi,hasil :real;
begin
write ('panjang:') readln(panjang);
write ('lebar:') readln(lebar);
write ('tingg:') readln (tinggi);
hasil:=panjang*lebar*tinggi;
writeln;
write ('hasil:',hasil:0:2);
end.

Tweet