Contoh Procedur Pemograman Pascal

program proccedure;

uses crt;

var nama:string[25];

procedure inputnama;

begin

write('nama anda : ');readln(nama);

end;

procedure cetaknama;

begin

writeln('nama anda: ',nama);

end;

begin

writeln ('memanggil procedure inputnama');

inputnama;

writeln;

writeln('memanggil procedure cetaknama');

cetaknama;

end.    

program proocedur2;

uses crt;

procedure tanya_hitung;

var x,y:real;

begin

write('nilai x=');readln(x);

y:=x*x;

writeln('nilai y= ',y:4:2);

end;

begin

clrscr;

tanya_hitung;

end.

uses crt;

var a,p,l,s:integer;

procedure masukansisi;

begin

write('masukan sisi :');readln(a);

end;

procedure luaspersegi;

begin

s:=a*a;

write('luas persegi',s);

end;

procedure inputan;

begin

write('masukan panjang: ');readln(p);

write('masukan lebar: ');readln(l);

end;

procedure mencari;

begin

s:=p*l;

write('persegi panjang:' ,s);

end;

begin

writeln (' masukan sisi');

masukansisi;

writeln;

writeln('luaspersegi');

luaspersegi;

writeln;

writeln('inputan');

inputan;

writeln;

writeln('persegi panjang');

mencari;

end.