LAPORAN AKHIR PASCAL (FUNCTION & PROCEDURE)

1. Membuat program faktorial!

uses crt;
function fak (var a: integer):integer;
begin
fak := a-1;
end;
var tot,x : integer;
begin
clrscr;
writeln ('Masukkan Angka');
readln (x);
tot :=x;
while x>1 do
begin
tot:=tot*fak(x);
x:=x-1;
end;
writeln (tot);
readln;
end.

2. Buat pemrograman untuk mencari bilangan terbesar!

uses crt;
function besar (a,b:integer):integer;
begin
if a>b then
besar:=a
else
besar:=b;
end;
var nil1,nil2:integer;
begin
write ('Bilangan Pertama: '); readln (nil1);
write ('Bilangan Kedua : '); readln (nil2);
writeln ('Bilangan Terbesar Adalah ',besar(nil1,nil2):2);
readln;
end.