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 = ABISAI JIRA');
gotoxy(23,3);
writeln('STAMBUK = F1A1 10 045');
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.
Tidak ada komentar:
Posting Komentar