PROGRAM PERMUTASI LAGI.. DALAM PASCAL

 PROGRAM PERMUTASI LAGI NIH...

program karakter_Permutasi;
Uses wincrt;
const Max= 5;
type larik = array [1..Max] of char;
Var A           : Larik;
    c_Permutasi,
    C_elemen,I  : integer;
    lagi        : char;
    ulang       : string;

Procedure permutasi (Var B : integer ; A : larik;

                    K,N    : integer);

var  I     : integer;

     Temp  : char;

begin

     if K = N then

        begin

             B := succ(B);

             write('Permutasi ke', B:2,':');

             for I := 1 to N do

             write(A[I]:3);

             writeln;

        end

     else

         for I := K to N do

             begin

                  Temp := A[I];

                  A[I] := A[K];

                  A[K] := Temp;

                  permutasi (B, A, K+1 ,N)

             end

end;             

begin

repeat

clrscr;

write('MASUKAN JUMLAH KARAKTER YG AKAN DIPERMUTASI :');

writeln;

writeln;

writeln('  -------------------------------------  ');

repeat

gotoxy(47,1);write(' ');

gotoxy(47,1);readln(c_elemen);

until c_elemen <= max;

for I := 1 to C_elemen do

A[I] := chr(I+64);

clrscr;

write('SUSUNAN PERMUTASI UNTUK :');

writeln(C_elemen:2, ' karakter');

writeln('-------------------------------------');

writeln;

c_permutasi:=0;

permutasi(c_permutasi, A, 1, C_elemen);

writeln;

writeln('BANYAKNYA PERMUTASI: ', C_Permutasi:3);

writeln;

writeln;

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

writeln;

clrscr;

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

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

writeln;

readln;

clrscr;

end.

............................................

HASIL EKSEKUSI....