PROGRAM PASCAL UNTUK PERMUTASI

PERMUTASI

Merupakan contoh lain dari rekursi. Banyaknya permutasi akan sama dengan N faktorial. Contoh : jika ada 3 buah karakter A,B, dan C maka permutasi yang mungkin dari ketiga karakter tersebut adalah :
ABC  BAC  CAB
ACB  BCA  CBA

************* CONTOH PROGRAM PERMUTASI DALAM PASCAL**********
 
program permutasi;

uses wincrt;

type data = array[1..10] of char;

var

ulang : string;

a : data;

i,n : byte;

procedure prmutasi(a : data; mulai : byte);

var

i : byte;

elemn : char;

SELANJUTNYA....

begin

if mulai=n then

begin

for i:=1 to n do

write(a[i]);

writeln;

end

else

begin

for i:= mulai to n do

begin

elemn:=a[i];

a[i]:=a[mulai];

a[mulai]:=elemn;

prmutasi(a,mulai+1);

end;

end;

end;

begin

 writeln (' M. Irkham Mastur .. lagi coba bikin program ');

writeln (' NIM  :  11295144 ');

writeln (' *============================================================* ');

writeln;

 writeln (' MENCARI HASIL PERMUTASI DARI BEBERAPA ELEMEN DAN KOMBINASINYA ');

 writeln ( '                         *   *   *                            ');

 

repeat

 write ('Banyaknya N (permutasi) = ');readln(n);

 writeln;

 write (' Mau tau hasil permutasi dan kombinasinya ??? tekan "ENTER" ');readln;

 writeln;

for i:=1 to n do

 a[i]:=chr(i+64);

prmutasi(a,1);

writeln ;

 writeln;

writeln ( ' Mau Coba lagi ??? [Y / T] ');readln (ulang);

writeln;

 clrscr;

until (ulang = 'T')OR (ulang = 't');

writeln ('  ^_^ TERIMA KASIH ^_^');

writeln;

writeln (' Fb    : irhamnaa latu ');

writeln (' email : irhamnaa.latu@gmail.com ');

readln;

clrscr;

end.