LOOPING "FOR TO DO"

haloo semua ,
kali ini saya akan memposting mengenai contoh program looping for to do dengan menggunakan Delphi.
sebelumnya saya akan menjelaskan terlebih dahulu mengenai Looping .
Looping dapat diartikan sebagai proses berulang terhadap statement maupun serangkaian statement lebih dari satu kali dengan menggunakan kode atau perintah tertentu.

salah satu jenis looping yang akan saya jelaskan kali ini adalah
FOR...TO...DO

For dilakukan untuk melakukan perulangan sebanyak yang anda tentukan mulai dari awal sampai dengan nilai akhir yang anda berikan. Pendeklarasian for diikuti dengan nama variabel yang bertipe integer.

For To Do adalah program yang berjalan dengan menggunakan suatu vaariabel counter yang akan bertambah secara otomatis ketika perintah yang diulang selesai.

Pada setiap Perulangan, variabel tersebut akan bertambah satu(ascending) atau berkurang satu(descending)

For To Do Di gunakan untuk menginputkan  nilai kecil ke nilai yang lebih besar

—Contoh:1,2,3…dst

Contoh :

1. Buka Program Dephi di komputer anda

2. Setelah itu akan muncul lembar kerja dengan nama Form1

3. Kemudian buatlah dua label (ikon A pada menu bar) dengan caption : angka awal (label1) dan perulangan (label2) , dua edit (ikon ab disebelah label) , 1 button (ikon ok) dengan caption FOR TO DO, dan 1 memo (ikon setelah ab). caption dapat diganti pada properties . Seperti gambar berikut :

.






4. Setelah itu double klik pada button for to do (yang diberi tanda panah)

5. Maka akan muncul seperti berikut :

7. Kemudian ketikkan rumus berikut :

procedure TForm1.Button1Click(Sender: TObject);

var

i,j:integer;

begin

memo1.clear;

i:=StrToInt(edit1.Text);

FOR j:=1 TO StrToInt(edit2.Text) DO

begin

memo1.lines.add('ke:'+IntToStr(j)+'='+IntToStr(i));

i:=i+1;

end;

end;

end.

seperti gambar dibawah ini :

8. Agar tampilan program lebih menarik dan tidak membosankan, anda dapat memberi warna dengan menggunakan menu color pada properties, dan dapat menggantin nama Form1 menjadi "EXAMPLE OF LOOPING 'FOR TO DO'" ataupun dengan nama lain sesuai dengan keinginan anda dengan menggunakan menu caption pada properties . Seperti gambar di bawah ini :

9. Setelah itu run (play) program dengan mengklik tombol run (yang diberi tanda panah)

10 . Maka akan muncul seperti ini , 

lalu inputkan angka awal (misal : 1) , perulangan (misal :10) , kemudian klik button FOR TO DO (yang diberi tanda panah) , maka akan muncul output seperti gambar diatas 

output :

ke:1=1

ke:2=2

ke:3=3

ke:4=4

ke:5=5

ke:6=6

ke:7=7

ke:8=8

ke:9=9

ke:10=10

11. finish !!!!

semoga bermanfaaaaaattttttttttttttt! 

salam S.W.A.G !!!!

NAMA : I GUSTI AYU ARISANTHI
NIM : 13.MI.065
KELAS : MI.A