Procedure dan Fungsi dalam bahasa pempogramaan

Pascal dan C++

1     Program prosedur Pascal

Listing program

program Lsegitiga;

uses crt;

var

 i,n:integer;

 a,t:real;

 procedure hitungLuassegitiga(alas,tinggi:real);

 var

 luas:real;

 begin

 luas:=(alas*tinggi)/2;

 writeln('luas segitiga=',luas:10:2);

 end;

begin

clrscr;

write ( ' banyaknya segitiga ?'); readln(n);

for i:=1 to n do

 begin

 write(' panjang alas segitiga?');

 readln(a);

 write('tinggi segitiga?');

 readln(t);

 hitungluassegitiga(a,t);

 readln;

 End;

 End.

      Program Fungsi pascal

Listing program

uses crt;

function pengurangan(a,b:integer):integer;

begin

clrscr;

pengurangan:=a-b;

end;

var

d,e:integer;

begin

clrscr;

write('angka 1=');readln(d);

write('angka 2=');readln(e);

write('hasilnya=',pengurangan(d,e));

end.