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.
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