Praktikum Pertemuan 3 Logika Perulangan

PERTEMUAN KE – III

Logika Perulangan

Nama   : Avila Marlini

NIM    : J1F111245

FAKULTAS MATEMATIKA DAN ILMU PENGETAHUAN ALAM

UNIVERSITAS LAMBUNG MANGKURAT

PROGRAM STUDI S-1 ILMU KOMPUTER

BANJARBARU

2014

 I.             Tujuan Praktikum

Tujuan dari praktikum yang berjudul ”Logika Perulangan” ini adalah untuk mempelajari alternatif perulangan yang sering digunakan dalam perulangan program delphi. Selain itu dengan praktikum ini dapat menyelesaikan masalah dalam melakukan proses perulangan yang lebih dari satu kali.

II.          Deskripsi Program

Program dengan menggunakan perulanngan yang dibuat adalah program yang memuat dua buah perulangan yaitu perulangan for to do dan for downto do, yaitu dengan menginputkan nilai batas awal dan batas akhir dan setelah di [enter] maka akam muncul pada ComboBox hasil perulangan. Jika batas awal lebih kecil dibanding batas akhir maka perulangan yang digunakan adalah for to do sedangankan jika lebih besar batas akhir maka menggunakan perulangan for downto do.

III.         Interface Program

 IV.       Coding Program

Nama Komponen	Event	Perintah
ComboBox1	OnEnter	procedure TForm1.ComboBox1Enter(Sender: TObject); var   i,a,b:integer; begin a:=strtoint(edit1.Text); b:=strtoint(edit2.Text); if a < b then begin comboBox1.Clear;  for i:= a to b do  begin  comboBox1.Items.Add(inttostr(i));   end; end else if a > b then begin comboBox1.Clear;  for i:= a downto b do  begin  comboBox1.Items.Add(inttostr(i));  end; end; end;