Laporan Pendahuluan AP2A

1. JELASKAN PERULANGAN PADA DELPHI

Perulangan adalah cara mengulang perintah-perintah sampai pada kondisi tertentu. Ada beberapa perulangan dalam pemrograman Delphi Antara lain :

• Perulangan menggunakan For To Do
• Perulangan menggunakan For DownTo Do
• Perulangan menggunakan Repeat Until
• Perulangan menggunakan While Do

2. SEBUTKAN & JELASKAN MACAM- MACAM PERULANGAN PADA DELPHI

For …To…Do
Bentuk Umum :
For (counter):= (nilai awal) To (nilai akhir) Do
Begin
Perintah;
Perintah;
End;

For …DownTo…Do
Bentuk Umum :
For (counter):= (nilai awal) DownTo (nilai akhir) Do
Begin
Perintah;
Perintah;
End;
Catatan : Perbedaan perulangan For…To…Do dan For…Down…To…Do adalah : Jika perulangan For…To…Do bergerak naik dari kecil ke besar. Sedangkan For…DownTo…Do bergerak turun dari besar ke kecil.

Repeat…Until
Repeat..Until disini program akan mengulang terlebih dahulu perintah-perintahnya. Sedangkan pengecekannya atau program counternya diakhir di akhir.
Bentuk Umum :
Repeat
Perintah;
Perintah;
Until (Kondisi);

While…Do
While…Do disini batas akhir perulangannya dikondisikan di awal. Setelah itu program akan mengulang perintah-perintah sampai batas yang telah ditentukan diawal tersebut. Pada perulangan ini menggunakan program counter (mis. i :=i + 1).
Bentuk Umum :
While (Kondisi) Do
Begin
Perintah;
Perintah;
End;

3. Berikan contohnya !

Klik 2x pada tombol For To Do. Masukkan  script dibawah ini :

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;
memo1.Text:= c;
end;

Klik 2x pada tombol For DownTo Do. Masukkan  script dibawah ini :

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;
memo1.Text:= c;

end;

Klik 2x pada tombol Repeat Until. Masukkan  script dibawah ini :

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;
memo1.Text:= c;
end;

Klik 2x pada tombol While Do. Masukkan  script dibawah ini :

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;
Memo1.Text := c;
end;

Klik 2x pada tombol Baru. Masukkan  script dibawah ini :

 procedure TForm1.Button5Click(Sender: TObject);
begin
Edit1.Text := ”;
Memo1.Text := ‘Memo1′;
Edit1.SetFocus;
end;

Klik 2x pada tombol Keluar. Masukkan  script dibawah ini :

procedure TForm1.Button6Click(Sender: TObject);
begin
Halt;
end;

end.