PROGRAM PERMUTASI DAN KOMBINASI

program pascal dibawah ini:

program kombinasi_permutasi;
uses wincrt;
var
fn,fk,fn_k,Kombinasi,permutasi:real;
i,n,k:integer;
begin
writeln('MENGHITUNG PERMUTASI DAN KOMBINASI:') ;
write('Masukkan bilangan n =');readln(n);
write('Masukkan bilangan k =');readln(k);
fn:=1;
fk:=1;
fn_k:=1;
for i:= 2 to n do
fn:=fn*i;
for i := 2 to k do
fk:=fk*i;
for i:= 2 to (n-k) do
fn_k:=fn_k*i;
kombinasi:=fn/(fk*fn_k);
permutasi:=fn/(fn_k);
writeln(n,' Kombinasi ',k, ' = ',Kombinasi:0:0);
writeln(n,' Permutasi ',k, ' = ',Permutasi:0:0);
end.

hasil dari program diatas akan menghasilkan












SMOGA DAPAT MEMBANTU

Komentar

Postingan populer dari blog ini

Belajar Pythagoras

Mengenal Peluang dalam Matematika

MEMBUAT SUDUT 45 DERAJAT DARI GARIS 180 DERAJAT DENGAN JANGKA