TUGAS 4

Program Kombinasi_Faktorial;
uses wincrt;
var f1,f2,f3:longint;
n,r,nr:integer;
c: real;
Procedure fact( n:integer; var f:longint);
var i:integer;
begin
f:=1;
for i:=1 to n do
f:= f * i;
end;
Begin
writeln('Yeni Hidayana');
writeln('Program Kombinasi Faktorial');
writeln(' ');
write('Masukkan data yang akan di kombinasikan  :',' ');readln(n);
write('Masukkan jumlah kombinasi                :',' ');readln(r);
fact(n,f1);
fact(r,f2);
nr:=(n-r);
fact(nr,f3);
c:= f1/(f2*f3);
writeln(' ');
write('hasilnya adalah :',' ',c:2:0);
readln;
end.

Hasil tampilannya