PROGRAM MENGHITUNG KOMBINASI

PROGRAM MENGHITUNG KOMBINASI
As... Brow mari belajar bareng membuat program dasar pada aplikasi turbo pascal yuk... nah kali ini akan kami postingkan Program Menghitung Kombinasi Versi Pascal, langsung aja yach....
Brow Ada 2 cara untuk membuat program perhitungan jumlah kombinasi yang terjadi yaitu dengan memakai PROCEDURE DAN TANAPA MEMAKAI PROCEDURE alias kita menghitung satu demi satu faktorial kemudian hitung kombinasinya okey

1. DENGAN MEMAKAI PROCEDURE
program Menghitung_matriks;
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
writeln;
writeln;
writeln('************************************************');
writeln;
writeln('—————-ARIF HIDAYATULLAH—————–');
Writeln('——————-111221022——————–');
writeln('——————STRUKTUR DATA TEORI——————-');
writeln;
writeln('================================================');
writeln('Program Menghitung Jumlah Kombinasi Yang terjadi');
writeln('================================================');
writeln;
write('Masukkan Banyaknya Data Yang Di Kombinasikan =');readln(n);
writeln;
write('Masukkan Banyaknya Kombinasi =');readln(r);
nr:=n-r;
writeln;
writeln('Pengurangan N-R =',nr:4:0);
faktorial(n,f1);
faktorial(r,f2);
faktorial(nr,f3);
c:=f1/(f2*f3);
writeln('================================================');
writeln;
writeln('Jumlah Kombinasi Yang terjadi adalah =',c:4:0);
writeln('================================================');
writeln;
writeln('************************************************');
end.

Nah sekarang yang ke dua...
program kombinasi_Manual_Arif_Hidayatullah_111221022;
uses
wincrt;
var
i,j,k,n,r,nr,komb,f1,f2,f3:real;
begin
write('Masukkan Jumlah Data =');readln(n);
write('Masukkan Banyaknya kombinasi =');readln(r);
i:=1;f1:=1;
while i <= n do
begin
f1:=f1*i;
i:=i+1;
end;
writeln('Banyaknya data yang di kombinasikan =',f1:9:0);
nr:=n-r;
j:=1;f2:=1;
while j <= nr do
begin
f2:=f2*j;
j:=j+1;
end;
writeln('Banyaknya data (N-R)! =',f2:9:0);
k:=1;f3:=1;
while k <= r do
begin
f3:=f3*k;
k:=k+1;
end;
writeln('Banyaknya kombinasikan =',f3:9:0);
komb:=f1/(f2*f3);
writeln('jumlah kombinasikan =',komb:9:0);
end.