Blog for Learning

This blog contains lesson material, material summary, questions and answers, definitions, types and examples, and others.

Advertisement

Powered by Blogger.

Visitors

Flag Counter

Pages

Contoh program menghitung kombinasi r objek dari n objek menggunakan prosedur pada pascal

Contoh program menghitung kombinasi r objek dari n objek menggunakan prosedur 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
0 Komentar untuk "Contoh program menghitung kombinasi r objek dari n objek menggunakan prosedur pada pascal"

Silahkan berkomentar sesuai artikel

 
Template By Kunci Dunia
Back To Top