Program Permutasi Turbo Pascal (TPW)

OVERDIV - Contoh Program Karakter Permutasi Pascal menggunakan Turbo Pascal for Windows 1.5 (TPW 1.5)

Bagi yang belum punya TPW 1.5, silahkan download aplikasinya disini >>

BERIKUT CODING PROGRAMNYA :

program Karakter_Permutasi;
Uses wincrt;
const Max= 255;
type larik = array [1..max] of char;
Var
L                       : Larik;
c_Permut, C_elemen, I   : integer;
lagi                    : char;
ulang                   : string;

procedure permutasi (Var B : integer ; L : larik ; X,Y : integer);
var  I     : integer;
     Temp  : char;

begin
     if X = Y then
        begin
             B := succ(B);
             write('Permutasi ke', B:2,':');
             for I := 1 to Y do
             write(L[I]:3);
             writeln;
        end
else
     for I := X to Y do
         begin
              Temp := L[I];
              L[I] := L[X];
              L[X] := Temp;
              permutasi (B, L, X+1 ,Y)
         end
end;            

begin
repeat
clrscr;
write('Masukan jumlah karakter yang akan dipermutasikan : ');
writeln;

repeat
gotoxy(52,1);write(' ');
gotoxy(52,1);readln(c_elemen);
until c_elemen <= max;

for I := 1 to C_elemen do
    L[I] := chr(I+64);

clrscr;
write('MAKA HASIL UNTUK :');
writeln(C_elemen:2, ' karakter');
writeln('-------------------------------------');
writeln;

c_permut:=0;
permutasi(c_permut,L,1,C_elemen);
writeln;
writeln('BANYAKNYA PERMUTASI: ', C_Permut:3);
writeln;
writeln;
writeln ('Coba lagi? Ketik [Y / T], Kemudian [ENTER] ');readln(ulang);
writeln;
clrscr;

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

clrscr;

end.


SCREENSHOT :

Semoga Bermanfaat :)

Tweet