FINAL 2: PROGRAM KOMBINASI DENGAN PROCEDURE

program combination;
uses crt; {atau uses wincrt;}
var m,z,n,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:=n*z;
l:=m div b;
writeln;
writeln('Hasil dari Kombinasi = ',l);
writeln('______________________________');
end;
begin
clrscr;
gotoxy(23,2); writeln('NAMA           = MUHAMMAD BIBI');
gotoxy(23,3); writeln('STAMBUK        = F1A1 11 103');
gotoxy(23,4); writeln('JURUSAN        = MATEMATIKA');
gotoxy(20,5); writeln('______________________________________');
writeln;
write('masukkan nilai n! =  '); readln(m);
b:=m;
faktorial(m);
write('masukkan nilai r! =  '); readln(n);
z:=b-n;
faktorial(n);
kombinasi(n);
readkey;
end.