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