Delphi – Perulangan For To Do

MP Shio copy

Perulangan adalah suatu cara untuk mengulang satu atau sekumpulan perintah sampai mencapai kondisi tertentu.

Dalam Delphi terdapat beberapa perulangan yaitu:

  • Perulangan menggunakan For To Do
  • Perulangan menggunakan For DownTo Do
  • Perulangan menggunakan Repeat Until
  • Perulangan menggunakan While Do
  • Perulangan menggunakan Label
  • Perulangan tersarang (perulangan dalam perulangan)
  • Perulangan dengan banyak kondisi

Bentuk Umum Perulangan For To DO

Perulangan ini berjalan dengan menggunakan suatu variabel counter yang akan bertambah secara otomatis ketika perintah yang diulang telah selesai dikerjakan.
Bentuk umum dari perulangan ini adalah :

For counter := nilai awal To Nilai akhir Do
Begin
   Perintah;
   Perintah;
End;

Perulangan ini akan berulang selama nilai variabel counter masih lebih kecil atau sama dengan nilai akhir.

Bentuk Umum Perulangan For DownTo Do

Perulangan ini sama seperti perulangan dengan menggunakan For To Do tetapi arah isi counternya berkurang (mundur/turun).
Bentuk umum dari perulangan ini adalah :

For counter := nilaiawal DownTo Nilaiakhir Do
Begin
    Perintah;
    Perintah;
End;

Perulangan ini akan berulang selama nilai variabel counter masih lebih besar atau sama dengan nilai akhir. Nilai awal suatu counter harus lebih besar atau sama dengan daripada nilai akhirnya.

Latihan Pertama For To Do

Desain Form

Desain form sebagai berikut:

latihan for

 

Kode Program

procedure TfrmLatihanFor.Button1Click(Sender: TObject);
var i: Integer;
begin
 Listbox1.Clear;
 for i:=1 to 10 do
 listbox1.Items.Add(inttostr(i));
end;

procedure TfrmLatihanFor.Button2Click(Sender: TObject);
var i: Integer;
begin
 Listbox1.Clear;
 for i:=10 downto 1 do
 listbox1.Items.Add(inttostr(i));
end;

procedure TfrmLatihanFor.Button3Click(Sender: TObject);
var kar: char;
begin
 Listbox1.Clear;
 for kar:='A' to 'Z' do
 listbox1.Items.Add(kar);
end;


procedure TfrmLatihanFor.Button4Click(Sender: TObject);
var i: Integer;
begin
 Listbox1.Clear;
 for i:=1 to 10 do
 listbox1.Items.Add('Yanti');
end;

procedure TfrmLatihanFor.Button5Click(Sender: TObject);
var i: Integer;
begin
 Listbox1.Clear;
 for i:=1 to 10 do
 listbox1.Items.Add(IntToStr(i*2-1));
end;

procedure TfrmLatihanFor.Button6Click(Sender: TObject);
var i: Integer;
begin
 Listbox1.Clear;
 for i:=1 to 10 do
 listbox1.Items.Add(IntToStr(i*10));
end;

procedure TfrmLatihanFor.Button7Click(Sender: TObject);
begin
 Close;
end;

Latihan Kedua For To Do

Berikut ini contoh program faktorial menggunanakan pernyata FOR..DO…

Dalam matematika, faktorial dari bilangan asli n adalah hasil perkalian antara bilangan bulat positif yang kurang dari atau sama dengan n. Faktorial ditulis sebagai n! dan disebut n faktorial. Secara umum dapat dituliskan sebagai:

n!=n×(n−1)×(n−2)×(n−3)⋅…⋅3⋅2⋅1
Sebagai contoh, nilai dari 7! adalah 7×6×5×4×3⋅2×1=5040.

Desain Form

Kode Program

Procedure TForm1.Button1Click(Sender: TObject);
var i, n : integer;
 nfak : longint;
begin
 n:=strtoint(edit1.Text);
 nfak:=n;
 for I := n-1 downto 1 do
 nfak:=nfak*i;
 edit2.text:=inttostr(nfak)
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
  Edit1.Text:='';
  Edit2.Text:='';
  Edit1.SetFocus;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
   Close;
end;

 

Tugas 1 For To Do

Buatlah program deret sesuai caption masing-masing tombol

Tugas For

Tugas 2 For To Do

Buatlah program perpangkatan dengan input X dan n. Dengan Outpun Xn dengan desain form sebagai berikut:

 

 

Tuliskan komentar anda

Komentar

Tinggalkan Balasan