Arsip: Permutasi Kata


by arioss in Articles more 14 years ago 1681
Buat yang mau tau bagaimana mem-permutasi-kan suatu kata, mungkin kode berikut ini bisa membantu.
Pertama-tama, buatlah proyek baru yang terdiri dari satu komponen Edit, Button, dan ListBox. Klik ganda pada tombol dan ketikkan kode program berikut ini:
procedure TForm1.Button1Click(Sender: TObject);
var
S        : TStrings;
K, Kata  : string;
procedure Permutasi(var A: string; B: string);
var
J  : Word;
C, D : string;
begin
if Length(B) = 0 then
S.Add(A);
else
for J := 1 to Length(B) do begin
C := B;
D := A + C[J];
Delete(C, J, 1);
Permutasi(D, C);
end;
end;
begin
S := TStringList.Create;
try
Kata := Edit1.Text;
Permutasi(K, Kata);
ListBox1.Items.Text := S.Text;
finally
S.Free;
end;
end;
Syntax Highlighted with https://pascal-id.org/syntax
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com