Contoh Membuat Program Faktorial Menggunakan sistem Procedure

Di posting sebelumnya sudah saya jelaskan contoh dasar dari sistem procedure, kali ini saya akan memberikan contoh membuat program faktorial menggunakan sistem procedure.
Biasanya faktorial ini di tulis: N! (artinya => N faktorial)

Contoh : misal N =3
Maka 3! = 3*2*1 = 6

Tanpa panjang lebar mari kita langsung mencoba ke scripnya saja, Berikut scripnya:

{$APPTYPE CONSOLE}
uses
  SysUtils;
procedure faktorial (var fak, hasil:integer);
  var
    i:integer;

begin
  hasil:=1;
  for i := 2 to fak do
  hasil:=hasil*i;
end;

var
  n,f:integer;

begin
  writeln ('WELCOME TO munawir2706.blogspot.com');
  writeln ('Contoh Program Faktorial');
  writeln ('=================================');
  writeln ('Nama : MUNAWIR');
  writeln ('NIK : 114224030');
  writeln ('=================================');
  write ('berapa faktorial dari=');readln(n);
  faktorial(n,f);
  writeln (n,' faktorial (',n,'!) = ',f);readln;
end.

Biar lebih faham coba kita buat Program dengan  soal seperti ini:
Dengan menggunakan procedure buat program menghitung banyaknya kombinasi dengan rumus:
CRN = N! / (N-R)! * R!
Dimana:
N = banyaknya data yang di kombinasikan
R = banyaknya kombinasi
C = jumlah

Contoh:
N = hasilny nanti???
R = misal kita buat 2
N = misal kita buat 3
Maka
CRN = N! / (N-R)! * R!
C23 =  3! / (3-2)! * 2!
CRN = 6 / 1*2
CRN = 3
Dimana     : 3! = 3*2*1 = 6
                : 2! = 2*1 = 2
                : 1! = 1


Berikut ini scripnya:

{$APPTYPE CONSOLE}
uses
  SysUtils;

procedure faktorial (var fak, hasil:integer);
  var
    i:integer;

begin
  hasil:=1;
  for i := 2 to fak do
  hasil:=hasil*i;
end;

var
  n,f,r:integer;
  c:real;
  f1,f2,NminR,f3:integer;
begin
  writeln ('WELCOME TO munawir2706.blogspot.com');
  writeln ('=================================');
  writeln ('Contoh Soal');
  writeln ('Nama : MUNAWIR');
  writeln ('NIK : 114224030');
  writeln ('=================================');
  write ('input n = ');readln(n);
  write ('input r = ');readln(r);
  faktorial(n,f1);
  NminR:=n-r;
  faktorial(NminR,f2);
  faktorial (r,f3);
  c:=f1/(f2*f3);
  writeln ('c=',c:10:2);readln;
end.

Sekian dari saya semoga bermanfaat.

amiinnn!!!