Program Menghitung Volume Kubus dan Balok (Turbo Pascal)

Sintak program

program musno3;
uses wincrt;
var
menu : string;
sisi, tinggi, panjang, lebar :integer;
volume : real;
begin
repeat
clrscr;
writeln('Menu');
writeln('1. Volume Kubus');
writeln('2. Volume Balok');
writeln('==================');
write('Masukan NOMOR PILIHAN ANDA (1-2): ');readln(menu);
if (menu='1') then
begin
clrscr;
write ('Masukan Panjang Sisi Kubus : ');readln (sisi);
volume := sisi * sisi * sisi;
writeln ('Jadi Volumenya adalah ', volume:1:1 , ' satuan volume');
readln;
end else
if (menu='2') then
begin
clrscr;
writeln('Menghitung Volume Balok');
write ('Masukan Panjang : ');readln(panjang);
write ('Masukan Lebar : ');readln(lebar);
write ('Masukan Tinggi : ');readln(tinggi);
volume := panjang * lebar * tinggi;
writeln('Jadi Volumenya adalah ', volume:1:1, ' Satuan Volume');
readln;
end else
if (menu = '') then
begin
writeln('Perintah Belum Di Input');
end else
begin
writeln('Mohon Ketikan Perintah Dengan Benar!');
end;
readln;
until menu = '.';
end.


· Gambar program

Tampilan menu

Tampilan form volume kubus

Tampilan volume balok

pelajari di http://mesran.net