program permutasiKombinasi;
uses wincrt;
label baby;
var n, m : byte;
kombinasi,permutasi : real;
pil:char;
Function fak(a:byte):longint;
Begin
if (a=0) or (a=1) then fak:=1 else fak:=a*fak(a-1);
End;
begin
baby:
writeln(' =======================');
writeln(' |==|Permutasi dan Kombinasi|==|');
writeln;
writeln('pilihan');
writeln('1. permutasi');
writeln('2. kombinasi');
writeln('3. selesai');
write('pilihan anda : ');readln(pil);
case pil of
'1':begin
writeln;
writeln(' |==|Permutasi|==|');
writeln;
write('masukan n : ');readln(n);
write('masukan m : ');readln(m);
permutasi:=fak(n)/fak(n-m);
write('hasil permutasi dari ',m:2,' sampai',n:2,' adalah ',permutasi:5:2);
writeln;
end;
'2':begin
writeln;
writeln(' |==|kombinasi|==|');
writeln;
write('masukan n : ');readln(n);
write('masukan m : ');readln(m);
kombinasi :=fak(n)/(fak(n-m)*fak(m));
write('hasil kombinasi dari ',m:2,' sampai',n:2,' adalah',kombinasi:5:2);
writeln;
end;
'3':halt;
end;
goto baby;
end.
Belum ada tanggapan untuk "Permutation and Combination Program With Pascal"
Post a Comment