Program Mencari Prefix, Suffix, StarClauser dan PositifClauser dengan delphi 7

             Pada praktikum TBO kedua kali ini diberikan tugas untuk mencari sebuah suffix dan positifClauser dengan delphi 7. Sebenarnya saya juga kurang paham dengan hal tersebut. Tetapi saya mencoba untuk memahaminya melewati contoh yang ada didalam buku petunjuk praktikum TBO saya.

Sesuai dengan yang ada didalam buku petunjuk praktikum atau modul, berikut ini adalah pengertian tentang Prefix , Suffix, positif dan star Clauser.

No Operasi Definisi Contoh
1 Prefix Prefix String w adalah string yang dihasilkan dari string w dengan menghilangkan nol atau lebih simbol-simbol paling belakang dari string w tersebut abc,ab,a dan e adalah semua prefix x
2 Suffix string w adalah string yang dihasilkan dari string w dengan menghilangkan nol atau lebih simbol-simbol paling depan dari string w tersebut abc,bc,c dan e adalah suffix(x)
3 Star Clauser Jika Σ adalah alphabet, kita menggunakan Σ* untuk menotasikan himpunan string(bahasa universal) yang dihasilkan oleh penggabungan nol atau lebih symbol Σ. Σ* selalu mengandung λ agar bisa mengeluarkan string yang kosong. Sedangkan Σ+ tidak mengandung string kosong λ atau Σ+ = Σ*- λ. lamda,a,aa,aaa,aaaa,…..
4 Positif Clauser a,aa,aaa,aaaa,…..

     

      Nah karena sudah mengerti dengan pengertiannya, langsung saja kita buat procedurenya. Disini saya hanya akan membahas menggenai suffix dan positifClauser saja. karena untuk yang prefix dan starClauser sudah ada didalam modul.

          Pertama-tama untuk suffix, jika melihat dalam contoh yang ada didalam tabel. dapat dimengerti bahwa misalkan ada sebuah inputan string berupa abc , maka suffix yang terbentuk haruslah abc,bc,c. Lalu bagaimana dalam pengimplementasiannya dalam sebuah program didalam delphi? mari kita bahas satu persatu.

» disini abc adalah sebuah inputan yang berupa string

» Langkah pertama lakukan lah perulangan sepanjang string tersebut :

misal for i := 0 to Length(karakter)

perulangan ke-1    abc     –> nilai i = 0

perulangan ke-2    abc    –> nilai i = 1

perulangan ke-3    abc    –> nilai i = 2

» Dari hasil output perulangan tersebut maka hilangkan karakter awal sebanyak(i) dalam setiap perulangan. misal perulangan ke-1 dengan nilai i = 0 maka hilangkan karakter awal sebanyak 0 karakter dalam perulangan / iterasi tersebut. dan perulangan ke-2 dengan nilai i = 1 maka hilangkan  karakter awal sebanyak 1 karakter ,  dan seterusnya hingga iterasi berakhir.

jika langkah diatas sudah dijalankan , maka  outputnya akan seperti ini :

abc

bc

c

   Eapz dari pada pusing-pusing mikir langkahnya langsung saja saya berikan procedurenya langsung,  dan kalau mau download program jadinya bisa klik linknya.

{procedure Sufix / postfix}
procedure Tform1.sufixmethod(karakter : string);
 var i,j: Integer;
 begin
  edit4.Text:=”;
    memo1.Lines.Add(‘Hasil Sufix string = ‘+karakter);
    memo1.Lines.Add(‘——————————–‘);
      for i := 0 to Length(karakter) do
        begin
           edit4.Text:=”;
           for j:=i+1 to Length(karakter) do
            begin
              Edit4.Text:=Edit4.Text+”+karakter[j];
            end;
             memo1.Lines.Add(edit4.Text);
        end;
  memo1.Lines.Add(‘——————————–‘);
end;

About these ads

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s