LABTI Delphi 7 - Kondisi Perulangan (For To Do, For Down To, dan Repeat Until)

1.    Penjelasan Delphi

Pada paktikum pertemuan ketujuhini, saya mendapat  kesempatan untuk menggunakan program Delphi. Delphi adalah tools dalam pengembangan  aplikasi visual yang yang berbasis objek. Pada praktikum kali ini saya membuat aplikasi program dari Delphi yaitu perulangan dan segitiga. Berikut adalah contoh sederhana program perulangan.

List Program 1

1.    Logika Program Unit 1

Analisa Program

Aplikasi Program ini saya 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 pada delphi.

Penjelasan Program

Saya 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. Semua itu untuk mendapat hasil output program yang ingin dibuat.

1.    procedure TForm1.Button1Click(Sender: TObject);

var

a,b:integer;

c:string;

Perintah syntax diatas ini digunakan untuk mendeklarasikan a dan b sebagai integer dan c sebagai string.

2.    begin

c:= '';

b:= strtoint(Edit1.Text);

Perintah syntax ini diatas bahwa variable b berisi spasi kosong dan variable b umutk mengkonversi variable dari string ke integer pada textbox 1  .

3.    For a:=1 to b do

begin

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

end;

ListBox1.Items.Add(c);

end;

Perintah syntax diatas berguna untuk a sama dengan 1 sampai b kemudian melakukannya, outputnya berbentuk horizontal, kemudian menambahkan outputnya di listbox 1, dan tutup program dengan end.

           

4.    b:= 1;

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

Perintah syntax diatas berguna untuk variabel b dibatasi hanya sampai 1 dan untuk a diubah dari string menjadi integer pada textbox 1 dan turun sampai batas b dan melakukannya secara teratur.

5.    a:=1;

c:='';

b:= strtoint(Edit1.Text);

repeat

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

a:=a+1

until a>b;

Perintah syntax diatas berguna untuk variable a dibatasi nilainya minimum 1 kemudian mengulang pada variabel c untuk outputnya horizontal dan a ditambah 1 sampai a lebih besar dari b.

6.    b:= 1;

c:= '';

while a >= b do

begin

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

a:=a-1

Perintah syntax diatas berguna untuk pada variabel b dibatasi dimulai dari satu kemudian jika a lebih besar sama dengan b kemudian mulai c output horizontal dan a dikurang 1.

7.    ListBox1.Clear;

Edit1.Clear;

end;

Perintah syntax diatas ini berguna untuk menghapus output yang berada pada textbox 1 dan listbox 1.

8.    begin

Application.Terminate;

end;

end.

Perintah syntax diatas ini berguna untuk menghentikan aplikasi yang sedang berjalan.

Berikut ini adalah seluruh syntaks dari Unit 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.

Output Program For To Do

Repeat Until

For Down To

While Do