Contoh program menghitung kombinasi pada pascal

Contoh program menghitung kombinasi pada pascal



Assalamu'alaikum Wr Wb

Kali ini saya akan posting contoh program menghitung kombinasi r objek dari n objek menggunakan prosedur pada pascal. Berikut script programnya :

program kombinasi_procedure;
uses wincrt;

procedure faktorial(var a, hasil:integer);
var count:integer;
begin
     hasil:=1;
     for count:=a downto 1 do
     hasil:=hasil*count;
end;

var n, r, hasiln, hasilr, n_r, hsl_n_r :integer;
var kombinasi :real;
begin
writeln('---PROGRAM MENGHITUNG KOMBINASI---');
writeln;
write('Masukkan n : ');read(n);
write('Masukkan r : ');read(r);
        faktorial(n,hasiln);
        faktorial(r,hasilr);
               n_r:=n - r;
        faktorial(n_r,hsl_n_r);
        kombinasi:= (hasiln / (hasilr*hsl_n_r));
writeln('n! = ',hasiln);
writeln('r! = ',hasilr);
writeln('(n-r)! = ',hsl_n_r);
write('Kombinasi ',r,' dari ',n,' objek adalah = ');writeln(kombinasi:5:0);
readln;
readln;
end.

Berikut hasil programnya :

Sekian postingan saya kali ini, semoga bermanfaat bagi teman-teman semua. Terima Kasih.

Wassalamu'alaikum Wr Wb