BAB PERULANGAN [Tugas UTS Semester 2]

Raden Syaifudin 09.26 Delphi 7 , Semester 2 , Tugas , Tutorial Tidak ada komentar

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

- For …To…Do

- For…DOwnTo…Do

- Repeat…Until

- While…Do

Untuk lebih jelasnya mari kita bahas satu per satu.

For …To…Do

Bentuk Umum :

For (counter):= (nilai awal) To (nilai akhir) Do

Begin

Perintah;

End;

For …DownTo…Do

Bentuk Umum :

For (counter):= (nilai awal) DownTo (nilai akhir) Do

Begin

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 di akhir.

Bentuk Umum :

Repeat

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;

End;

Itulah ulasan sekilas perulangan di bahasa pemrogaman delphi, Yukk langsung saja ke TKP :

1. Buka aplikasi Delphi 7

2. Kemudian klik menu file, pilih New, dan pilih Application

3. Buatlah desain program seperti gambar dibawah ini.

4. Kemudian masukkan script dibawah ini pada Code Explorer, pastikan tepat sesuai dengan obyek

procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;
b:string;
begin
b:= '';
j:= strtoint(Edit1.Text);
For i:=1 to j do
begin
b:= b+inttostr(i)+'     ';
end;
memo1.Text:= b;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
i,j:integer;
b:string;
begin
b:= '';
j:= 1;
For i:= strtoint(Edit1.Text) downto j do
begin
b:= b+inttostr(i)+'     ';
end;
memo1.Text:= b;

end;

procedure TForm1.Button3Click(Sender: TObject);
var
i,j:integer;
b:string;
begin
i:=1;
b:='';
j:= strtoint(Edit1.Text);
repeat
b:= b+inttostr(i)+'     ';
i:=i+1
until i>j;
memo1.Text:= b;
end;

procedure TForm1.Button4Click(Sender: TObject);
var
i,j:integer;
b:string;
begin
i:= strtoint(Edit1.Text);
j:= 1;
b:= '';
while i >= j do
begin
b:= b+inttostr(i)+'     ';
i:=i-1
end;
Memo1.Text := b;
end;

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

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

procedure TForm1.Edit1Change(Sender: TObject);
begin

end;

procedure TForm1.Memo1Change(Sender: TObject);
begin

end;

end.

5. Jalankan program dengan klik menu run, kemudian pilih run, dan hasilnya sepert ini. Sebagai contoh saya memasukkan angka sepuluh yang akan di repeat, silahkan coba sendiri untuk yang For To Do, For Downto Do, Repeat Util, While Do