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 |
Random Articles
- Membaca Ukuran "file-teks"
- Permutasi Kata
- Aplikasi Delphi Konek database layaknya php namun dengan Zeos, Mysql dan TIniFiles Ber Enkripsi
- FolderCustomizer: Percantik & Protek Folder Anda
- Membaca Ukuran TaskBar Windws
- Bikin Rekaman Suara Sendiri Dengan Delphi
- Dynamic Menu based on MySQL Database Method I
- komponen TMyDateEdit
- Terbilang
- Tulis/Baca "string" di file .INI
Last Articles
Recent Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 1 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 1 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 1 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 1 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 1 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 1 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 2 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 9 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 9 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 9 years ago