Senin, 24 Desember 2012


CONTOH PROCEDURE


uses wincrt;
var
   p,l,t,v:integer;
begin
   writeln('Masukkan nilai panjang');
   readln(p);
   writeln('Masukkan nilai lebar');
   readln(l);
   writeln('Masukkan nilai tinggi');
   readln(t);
   v := p * l * t;
   writeln(v);
   readln;
 end.


Penjelasan:
var
   p,l,t,v:integer;                  // Deklarasi variabel dengan semua variabel bertipe integer
begin
   writeln('Masukkan nilai panjang');
   readln(p);                        // Input nilai p
   writeln('Masukkan nilai lebar');
   readln(l);                        // Input nilai l
   writeln('Masukkan nilai tinggi');
   readln(t);                        // Input nilai t
   v := p * l * t;                   // Operasi matematika : v = p kali l kali t
   writeln(v);                       // Tampilkan nilai v
   readln;                           // Supaya pembaca dapat membaca nilai v sebelum program otomatis keluar
end.


Hasilnya adalah :