Tugas Pascal I : Mengitung Volume Balok

Pertemuan kedua mata kuliah Pemrograman Pascal dapet tugas nich. 3 soal, tapi soal nomor 1 udah dikerjain di kampus. so, tinggal ngrjain soal nomor 2 dan 3.

soal No.1 : Buat program menghitung volume balok !
coba jawab pertanyaan nomor 1,setelah dicoba di pascalnya,trnyata listing yang digunakan untuk menghitung volume balok adalah sebagai berikut :

program volume_balok;
uses crt;
var
p,l,t : byte;
v : real;
begin
clrscr;
writeln('CARA MENGHITUNG VOLUME BALOK');
writeln('------------------------------------------');
write('Masukan Nilai Panjang (p) :');readln(p);
write('Masukan Nilai Lebar (l) :');readln(l);
write('Masukan Nilai Tinggi (t) :');readln(t);
writeln('------------------------------------------');
v:=p*l*t;
writeln('volume Balok adalah :',v:4:1);
readln;
end.

Print screen nya adalah sebagai berikut :



dan Output yang dihasilkan dari program diatas adalah Sebagai berikut :