Program Perulangan Pada Delphi

PROGRAM PERULANGAN PADA DELPHI

Delphi adalah tools dalam pengembangan  aplikasi visual yang yang berbasis objek. Praktikum ini saya membuat aplikasi dari Delphi yaitu perulangan dan segitiga. Berikut adalah contoh sederhana program perulangan dan segitiga menggunakan Delphi.

1.    List Program 1

 

 

 

2.    Logika Program 1

Program ini di buat untuk latihan membuat program menggunakan Delphi. Versi yang di gunakan pada program ini adalah Delphi 7. Pada program ini kita menggunakan Form yang terdapat pada Delphi. Di sini kita akan membuat program untuk perulangan.

Jika ingin membuat program dengan output seperti itu, maka kita dapat menggunakan 6 CommandButton yang kita buat untuk for to do, repeat until, for downto do, while, baru, dan exit serta 1 TextBox untuk mengisi angka, dan membuat 2 label untuk masukkan angka, dan Judulnya.    

Pada list program command button pertama atau for to do terdapat sintaks ” var a,b:integer;c:string;”, perintah ini digunakan untuk mendeklarasikan a dan b sebagai integer dan c sebagai string.

Pada list sintaks berikutnya terdapat sintaks ” begin c:=’ ‘; b:= strtoint(Edit1.Text);”, ini berarti bahwa variable b berisi spasi kosong dan variable b umutk mengkonversi variable dari string ke integer pada textbox 1  .

Pada list sintaks berikutnya terdapat sintaks “For a:=1 to b do ; begin c:= c+inttostr(a)+ ' '; end ; ListBox1.Items.Add(c); end;” untuk a sama dengan 1 sampai b kemudian melakukannya, outputnya berbentuk horizontal, kemudian  menambahkan outputnya di listbox 1, dan tutup program dengan end.

           

Pada list sintaks command button for downto do berikutnya hanya berbeda di list sintaks “b:= 1; For a:= strtoint(Edit1.Text) downto b do”, variabel b dibatasi hanya sampai 1 dan untuk a diubah dari string menjadi integer pada textbox 1 dan turun sampai batas b dan melakukannya.

Pada list sintaks command button repeat until berikutnya hanya berbeda di list sintaks “a:=1; repeat c:= c+inttostr(a)+' '; a:=a+1 until a>b;”, a dibatasi nilainya minimum 1 kemudian mengulang variabel c untuk outputnya horizontal dan a ditambah 1 sampai a lebih besar dari b.

Pada list sintaks command button while do berikutnya hanya berbeda di list sintaks “b:= 1; while a >= b do begin c:= c+inttostr(a)+' '; a:=a-1”, variabel b dibatasi dimulai dari satu kemudian jika a lebih besar sama dengan b kemudian mulai c output horizontal dan a dikurang 1.

  Pada list sintaks command button baru berikutnya terdapat list sintaks “ListBox1.Clear; Edit1.Clear;”, ini akan menghapus output yang berada pada textbox 1 dan listbox 1.

Pada list sintaks command button exit yang terakhir terdapat list sintaks “Application.Terminate;”, ini akan menghentikan aplikasi yang sedang berjalan.   

 Berikut adalah seluruh sintaks dari Program 1 :

procedure TForm1.Button1Click(Sender: TObject);

var

a,b:integer;

c:string;

begin

c:= '';

b:= strtoint(Edit1.Text);

For a:=1 to b do

begin

c:= c+inttostr(a)+ ' ';

end;

ListBox1.Items.Add(c);

end;

procedure TForm1.Button2Click(Sender: TObject);

var

a,b:integer;

c:string;

begin

c:= '';

b:= 1;

For a:= strtoint(Edit1.Text) downto b do

begin

c:= c+inttostr(a)+' ';

end;

ListBox1.Items.Add(c);

end;

procedure TForm1.Button3Click(Sender: TObject);

var

a,b:integer;

c:string;

begin

a:=1;

c:='';

b:= strtoint(Edit1.Text);

repeat

c:= c+inttostr(a)+' ';

a:=a+1

until a>b;

ListBox1.Items.Add(c);

end;

procedure TForm1.Button4Click(Sender: TObject);

var

a,b:integer;

c:string;

begin

a:= strtoint(Edit1.Text);

b:= 1;

c:= '';

while a >= b do

begin

c:= c+inttostr(a)+' ';

a:=a-1

end;

ListBox1.Items.Add(c);

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

ListBox1.Clear;

Edit1.Clear;

 end;

procedure TForm1.Button6Click(Sender: TObject);

begin

Application.Terminate;

end;

end.

 3.    LIST PROGRAM 2

4.    Logika Program 2

Program ini di buat untuk latihan membuat program menggunakan Delphi. Versi yang di gunakan pada program ini adalah Delphi 7. Pada program ini kita menggunakan Form yang terdapat pada Delphi. Di sini kita akan membuat program untuk perulangan diamond 1/2.

Jika ingin membuat program dengan output seperti itu, maka kita dapat menggunakan 3 CommandButton yang kita buat untuk check, clear , dan exit, 1 TextBox untuk mengisi angka, 1 ListBox untuk tempat outputnya dan membuat 2 label untuk masukkan angka, dan Judulnya.   

Pada list program command button pertama atau check terdapat sintaks ” var a,b,c: integer; bintang : string;”, perintah ini digunakan untuk mendeklarasikan a, b, c sebagai integer dan bintang sebagai string.

Pada list sintaks berikutnya terdapat sintaks ” begin bintang := '*'; b := StrToInt (Edit1.Text);”, ini berarti bahwa akan memulai bintang berisi varibael “*” dan b dikonversi dari string menjadi integer yang diinputkan pada textbox 1.

Pada list sintaks berikutnya terdapat sintaks “for a:= 0 to b  do begin ListBox1.Items.Add (bintang); bintang := bintang + '*'; end;” untuk a sama dengan 0 sampai b kemudian melakukannya, outputnya berbentuk vertical dan memanggil variabel bintang diatas, kemudian  menambahkan outputnya di listbox 1, dan tutup program dengan end.

Pada list sintaks berikutnya terdapat sintaks “for a:= b downto 0 do begin bintang := ' '; for c:= 0 to a do begin bintang := bintang + '*';  end; ListBox1.Items.Add (bintang); end; end;” untuk a sama dengan b kemudian turun  sampai 0 kemudian, bintang berisi spasi kosong untuk menghapus dulu dari program for pertama diatas.

Kemudian untuk c sama dengan 0 sampai a kemudian memulai bintang sama dengan memanggil bintang dan outputnya berbentuk vertical, dan tutup program dengan end.

               Pada list sintaks command button clear berikutnya terdapat list sintaks “ListBox1.Clear; Edit1.Clear;”, ini akan menghapus output yang berada pada textbox 1 dan listbox 1.

Pada list sintaks command button exit yang terakhir terdapat list sintaks “Application.Terminate;”, ini akan menghentikan aplikasi yang sedang berjalan.  

 Berikut adalah seluruh sintaks dari Program 2 :

procedure TForm1.Button1Click(Sender: TObject);

var a,b,c: integer;

bintang : string;

begin

bintang := '*';

b := StrToInt (Edit1.Text);

for a:= 0 to b  do

  begin

  ListBox1.Items.Add (bintang);

  bintang := bintang + '*';

  end;

for a:= b downto 0 do

begin

bintang := '';

  for c:= 0 to a do

  begin

  bintang := bintang + '*';

  end;

  ListBox1.Items.Add (bintang);

end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

ListBox1.Clear;

Edit1.Clear;

Edit1.SetFocus;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

Application.Terminate;

end;

end.

5.    Output Program 1 & 2

FOR TO DO dan REPEAT UNTIL                                   

  FOR DOWNTO DO dan WHILE DO