Program Faktorial_Procedure;
uses crt;
Procedure Faktorial1 (x,y:integer; var c:integer);
var d:integer;
begin
d:=1;
for x:=1 to y do
begin
d:=d*x;
c:=d;
end;
end;

Function Faktorial2 (x,y:integer):integer;
var d:integer;
begin
d:=1;
for x:=1 to y do
begin
d:=d*x;
Faktorial2 :=d;
end;
end;



Var a,z,c: integer;
begin
clrscr;
writeln ('1. Program Faktorial dengan Prosedur');
writeln ('2. Program Faktorial dengan Function');
writeln;
write ('Masukan Pilihan Anda : '); readln (a);
if a=1 then
begin
writeln ('Yang anda pilih menggunakan program Procedure');
write ('Masukan Bilangan yang akan di Faktorialkan : ');readln (z);
Faktorial1 (1,z,c);
write ('Maka ',z,' Faktorial adalah : ',c);
readln;
end
else
if a=2 then
begin
writeln ('Yang anda pilih menggunakan program Function');
write ('Masukan Bilangan yang akan di Faktorialkan : ');readln (z);
write ('Maka ',z,' Faktorial adalah : ', Faktorial2 (1,z) );
readln;
end;
end.

Untuk Mendownload Klik Dibah Ini

Download FAKTORIA.PAS

Download FAKTORIA.EXE