program kombinasi_permutasi;
uses wincrt;
var
fn,fr,fn_r,Kombinasi,permutasi:real;
i,n,r:integer;
lagi:char;
label baca;
begin
baca:clrscr;
writeln('MENGHITUNG PERMUTASI DAN KOMBINASI:') ;
write('Masukkan bilangan n =');readln(n);
write('Masukkan bilangan r =');readln(r);
fn:=1;
fr:=1;
fn_r:=1;
for i:= 2 to n do
fn:=fn*i;
for i := 2 to r do
fr:=fr*i;
for i:= 2 to (n-r) do
fn_r:=fn_r*i;
kombinasi:=fn/(fr*fn_r);
permutasi:=fn/(fn_r);
writeln(n,' Kombinasi ',r, ' = ',Kombinasi:0:0);
writeln(n,' Permutasi ',r, ' = ',Permutasi:0:0);
write('Mau coba lagi?<Y/T>:');readln(lagi);
if upcase(lagi)='Y' then goto baca;
donewincrt;
end.
Hasilnya:
Semoga Bermanfaat...
Langganan:
Posting Komentar (Atom)
0 komentar:
Posting Komentar