Program Kombinasi Menggunakan Procedure

Begini hasil run dari programnya : 









program combination;

uses crt;

var n,z,r,i,b:longint;

procedure faktorial(var a:longint);

var

x:longint;

begin

x:=1;

for i := a downto 1 do

x:=x*i;

a:=x;

end;

procedure kombinasi(var l:longint);

begin

faktorial(z);

b:=r*z;

l:=n div b;

writeln;

writeln('Hasil dari Kombinasi = ',l);

writeln('______________________________');

end;

begin

clrscr;

write('masukkan nilai n! =  '); readln(n);

b:=n;

faktorial(n);

write('masukkan nilai r! =  '); readln(r);

z:=b-r;

faktorial(r);

kombinasi(r);

readkey;

end.