Program Permutasi dan Kombinasi

Sahabat-sahabat programers, ada contoh program kombinasi dan permutasi nih... Selamat belajar...

program asti_combinasi_permutasi;

uses wincrt;

var a,b,i:integer;

    k,p:real;

    jawab:string;

function faktorial(x:integer):longint;

begin

if (x=0) or (x=1) then faktorial:=1

else

faktorial:=x*faktorial(x-1);

end;

begin

repeat

clrscr;

begin

writeln('..:::Menghitung Combinasi(a,b) dan Permutasi(a,b):::..');

write('Masukkan nilai a= ');readln(a);

write('Masukkan nilai b= ');readln(b);

if (a<b) then

begin

     writeln('Nilai yang Anda masukkan salah!');

     writeln('Nilai a harus lebih besar dari b');

end

else

if (a<0) or (b<0) then

begin

     writeln('Nilai yang Anda masukkan salah!');

     writeln('Nilai a dan b harus positif');

end

else

begin

     k:=faktorial(a)/(faktorial(a-b)*faktorial(b));

     p:=faktorial(a)/faktorial(b);

     writeln('Combinasi(',a,',',b,') = ',k:4:2);

     writeln('Permutasi(',a,',',b,') = ',p:4:2);

end;

end;

writeln;

write('Apakah Anda ingin mencoba lagi? <y/t>');readln(jawab);

until (jawab<>'y');

end.

Hasil runningnya adalah: