Hosting Your Business Can Count On - GoDaddy.com

Rabu, 28 Desember 2011

Menghitung Permutasi dan Kombinasi dengan Pascal

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

0 komentar:

Posting Komentar