Prosedure pada Pascal

Tugas Mata Kuliah Pemrograman Pascal
Prosedur dgn Parameter Global
program ProsedurGlobal;
uses crt;
var
X,Y, L : Real;
Procedure Luas (A,T : Real);
Begin
L : = a * t / 2;
End;
Begin;
Clrscr;
Write (‘Input Alas :’);
Readln (X);
Write (‘Input Tinggi:’);
Readln (Y);
Luas (X,Y);
Writeln (‘Luas adalah :’, L :6:1);
Readln;
end.
Output :

Parameter Nilai
Program Parameter_Nilai;
Uses crt;
Procedure Luas (a,t : real);
Var
L : = real;
Begin
L : = (a*t)/2;
Writeln (‘Luas Adalah =’, L :5 :1);
End;
Var
m,n : real;
begin
clrscr;
write (‘Berapa Alas :’);
readln (m);
write (‘Berapa Tinggi:’);
readln (n);
luas (m,n);
readln;
end.
Tampilan Output :


Parameter Acuan
Program HitungLuas;
Uses crt;
Procedure Luas (Var b, h, W : real);
Begin
W : = b * h /2;
Writeln (‘Jadi Luas Segitiga =’, W:5:1);
End;
Var
m, n, o : real;
begin
Clrscr;
Write (‘Masukkan Berapa Alasnya:‘);
Readln (m);
Write (‘Masukkan Tingginya:’);
Readln (n);
Luas (m,n,o);
Readln;
End.
Tampilan Output: