contoh 1, program prosedur (turbo pascal)

program prosedur;

uses
wincrt;

procedure p_panjang
var
pa,le,lu:integer;

begin
writeln('prosedur I');
writeln('program persegi panjang');
write('input panjang : ');readln(pa);
write('input lebar : ');readln(le);
lu:=pa*le;
writeln('luas persegi panjang = ',lu);
end;


procedure segitiga;
var
a,ti,lu:real;


begin
writeln('prosedur II');
writeln('program luas segitiga');
write('input alas: ');readln(a);
write('input tinggi : ');readln(ti);
lu:=a*ti/2;
writeln('luas segitiga = ',lu:0:2);
end;




procedure lingkaran;
var
jari,lu,ke:real;

begin
writeln('prosedur III');
writeln('program luas dan keliling lingkaran');
write('input jari-jari : ');readln(jari);
lu:=3.14*jari*jari;
ke:=2*3.14*jari;
writeln('luas lingkaran = ',lu:0:2);
writeln('keliling lingkaran = ',ke:0:2);
end;




begin
p_panjang;
writeln;
segitiga;
writeln;
lingkaran;

readln;
donewincrt;
end.