LA Delphi tentang perulangan

Ndji Reza Rivai
56413371
1IA16
E01

Pada praktikum kedua kali ini, Masih dalam program Delphi, Delphi merupakan bahasa pemrograman yang hampir sama dengan Visual basic, melakukan pendekatan visual untuk merancang interface dalam bentuk form. Kodingannya pun tidak terlalu jauh dengan Visual Basic, hanya beberapa saja yang membedakan. Hal lain yang membedakan Visual Basic dan Delphi yaitu pada Delphi saat di save atau disimpan program yang telah dibuat akan menjadi Apllication, sedangkan di Visual Basic tidak.

Dalam program kali ini menggunakan metode perulangan For... To..Do, For...downTo, dan Repeat Until

Dibawah ini merupakan tampilan programnya :

Tampilan Form Program

Program pertama ini membuat tentang perulangan For..To..Do, For...downTo, dan Repeat Until. Program ini membuat banyak perulangan dalam satu form. Dalam perulangan For...To...Do akan mengeluarkan angka berurut ketika kita memasukkan angka, pada perulangan For..downTo akan mengeluarkan output terbalik ketika kita memasukkan angka. Dan Repeat Until mengeluarkan output yang hampir sama dengan For...To..Do.

Dibawah ini merupakan koding dari For...To...Do

var

i:Integer;

begin

for i:=1 to StrToInt(edit1.text) do

begin

listbox1.items.add(IntToStr(i));

end;

Logika :

Pertama mendeklarasikan variabel i sebagai Integer. Kemudian melakukan perulangan untuk i yang ditulis 1 merubah semua tipe data dari String ke Integer yang batasnya ditulis didalam edit1.text. Dan hasilnya ditampilkan didalam Listbox, yaitu “listbox1.items.add(IntToStr(i));”

Dibawah ini merupakan koding dari For...downTo

procedure TForm1.Button2Click(Sender: TObject);

var

i,j:Integer;

begin

i:=1;

for j:=StrToInt(edit1.text) downto i do

begin

listbox1.items.add(IntToStr(j));

end;

Logika :

Pertama mendeklarasikan variabel i dan j sebagai Integer. Dan mendeklarasikan i=1. Untuk variabel j yang ditulis di edit1.text menurun dari j ke i dan merubah semua tipe data dari String ke Integer. Dan apa yang ditulis di edit1.text ditampilkan di listbox1.

Dibawah ini merupakan koding dari Repeat....Until

procedure TForm1.Button3Click(Sender: TObject);

var a,b:integer;

begin

a:=0;

b:=StrToInt(Edit1.Text);

repeat

a:=a+1;

begin

listbox1.Items.Add(IntToStr(a));

end;

until b<=a;

end;

end.

Logika :

Mendeklarasikan variabel a,b sebagai integer. a=0 dan b yang ditulis didalam edit1.text merubah semua tipe data string ditulis ke dalam edit1.text ke tipe data Integer. Kemudian mengulangi ke fungsi berikutnya a:=a+1 dan mengulangi sampai b<=a. Hasilnya ditulis didalam listbox1.

Dibawah ini merupakan koding dari button Clear

procedure TForm1.Button4Click(Sender: TObject);

begin

edit1.Clear;

listbox1.Clear;

end;

Logika:

Pada saat button clear di klik, apa yang ada dalam di inputan(edit1.text) dan yang ada di output(Listbox1). Sehingga apapun yang ditulis di inputan dan output akan dihapus. Kembali ke keadaan kosong.

Inilah merupakan output dari program ketika di Running :

For..To..Do