Permutasi & Kombinasi

Program pascal untuk permutasi dan kombinasi

Oleh : Andri Muchsin

 ***********************************

Program menghitung_permutasi_dan_kombinasi;
uses wincrt;
var
i,j,k,n,r:integer;
faktorial1,faktorial2,faktorial3:integer;
c,p:integer;
procedure nfaktorial;
begin
faktorial1:=1;
for i:=n downto 1 do;
begin
faktorial1:=faktorial1*i;
end;
end;
procedure rfaktorial;
begin
faktorial2:=1;
for j:=r downto 1 do;
begin
faktorial2:=faktorial2*j;
end;
end;
procedure n_rfaktorial;
begin
faktorial3:=1;
for k:=r downto 1 do;
faktorial3:=faktorial3*3;
end;
begin
writeln('program menghitung permutasi dan kombinasi');
write('n=');readln(n);
write('r=');readln(r);
nfaktorial;
rfaktorial;
n_rfaktorial;
c:=faktorial1 div (faktorial2*faktorial3);
p:=faktorial1 div faktorial3;
writeln(n,'kombinasi',r,'adalah',c);
writeln(n,'permutasi',r,'adalah',p);
end.