CONTOH PROGRAM PASCAL PERSEGI PANJANG DAN BALOK

Program persegi panjang dan balok ini berisi program untuk menghitung luas persegi panjang dan menghitung volume balok. Program ini menggunakan program pascal. setelah program dibuat jadi kalian jika menghitung luas persegi panjang maupun volume balok tinggal inputkan data - data panjang, lebar dan tinggi. mudah bukan? Yang mau buat programnya silahkan copy kodenya dibawah ini ya


program persegipanjang_balok;

uses crt;

var

 p,l,t,Ls,V:real;

 procedure Luas_persegipanjang;

 begin

 Ls:= p*l;

 writeln ('Luas persegi panjang = ',Ls:0:2);

 end;

 procedure Volume_balok;

 begin

 V:= p*l*t;

 writeln ('Volume Balok = ',V:0:2);

 end;

begin

clrscr;

write ('Masukan panjang= ');readln(p);

write ('Masukan lebar= ');readln(l);

write ('Masukan tinggi= ');readln(t);

Luas_persegipanjang;

Volume_balok;

readln;

end.