PASCAL!

Program Kombinasi Cieeen...

program Jumlah_Kombinasi;
uses
wincrt;
procedure faktorial(var fak,hasil:real);
var i:integer;
begin
i:=1;hasil:=1;
while i<=fak do
begin
hasil:=hasil*i;
i:=i+1;
end
end;
var
n,r,nr,c,f1,f2,f3:real;
begin
write(‘INPUT BANYAKNYA DATA YANG DIKOMBINASIKAN =’);readln(n);
write(‘INPUT BANYAKNYA KOMBINASI=’);readln(r);
nr:=n-r;
writeln(‘N-R =’,nr:2:0);
faktorial(n,f1);
faktorial(r,f2);
faktorial(nr,f3);
c:=f1/(f2*f3);
writeln(‘================================================’);
writeln(‘RUMUS = c:=N!/(R!*(N-R)!’);
writeln(‘================================================’);
writeln(‘JUMLAH KOMBINASI =’,c:2:0);
writeln(‘================================================’);
end.