Blog for Learning

| lesson material | material summary | questions and answers | definitions | types and examples | other information | materi pelajaran | ringkasan materi | pertanyaan dan jawaban | definisi | jenis-jenis dan contoh-contoh | informasi lainnya |

Powered by Blogger.

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
0 Komentar untuk "Contoh program menghitung kombinasi pada pascal"

Silahkan berkomentar sesuai artikel

 
Copyright © 2015 - 2024 Blog for Learning - All Rights Reserved
Template By Kunci Dunia
Back To Top