1. For –To- Do
digunakan untuk melakukan perulangan dari angka kecil ke angka
besar.
2. For – Down -To Do
digunakan untuk melakukan perulangan dari angka besar ke angka
kecil.
3. While - do
pada while…do syarat melakukan looping diajukan terlebih dahulu jika memenuhi maka proses akan dilakukan tapi jika tidak maka looping tidak dilakukan.
pada while…do syarat melakukan looping diajukan terlebih dahulu jika memenuhi maka proses akan dilakukan tapi jika tidak maka looping tidak dilakukan.
4. repeat – until
pada repeat…until dilakukan proses dahulu baru dilihat syarat
mengakhiri looping masih memenuhi atau tidak. Jika memenuhi maka proses looping
akan berhenti tapi kalau tidak maka looping akan terus berjalan.
Untuk contoh programnya buwatlah desain form seperti ini :
Atur propertsnya seperti ini :
nama
|
propertis
|
keterangan
|
Label1
|
Caption
|
Masukkan Suku ke-N
|
Label2
|
Caption
|
PERULANGAN
|
Memo1
|
Weidth/Height
|
89/241
|
Memo2
|
Weidth/Height
|
89/241
|
Memo3
|
Weidth/Height
|
89/241
|
Memo4
|
Weidth/Height
|
89/241
|
Edit1
|
Text
|
Di kosongkan
|
Button1
|
Caption
|
For-To-Do
|
Button2
|
Caption
|
For-DownTo-Do
|
Button3
|
Capion
|
While-Do
|
Button4
|
Caption
|
Repeat-Until
|
Klik dua kali pada Button1(For-To-Do) isikan script dibawah ini :
procedure TForm1.Button1Click(Sender: TObject);
var
b,c:integer;
begin
b:=strtoint(edit1.Text);
memo1.Clear;
for c:=1 to b do
begin
memo1.Lines.Add(inttostr(c));
end;
end;
Klik dua kali pada Button2(For-DownTo-Do) isikan script dibawah ini :
procedure TForm1.Button2Click(Sender: TObject);
var
b,c:integer;
begin
b:=strtoint(edit1.Text);
memo2.Clear;
for c:=b downto 1 do
begin
memo2.Lines.Add(inttostr(c));
end;
end;
Klik dua kali pada Button3(While-Do) isikan script dibawah ini :
procedure TForm1.Button3Click(Sender: TObject);
var
b,c:integer;
begin
b:=strtoint(edit1.Text);
memo3.Clear;
c:=1;
while c<=b do
begin
memo3.Lines.Add(inttostr(c));
c:=c+1;
end;
end;
Klik dua kali pada Button4(Repeat-Until) isikan script dibawah ini
procedure TForm1.Button4Click(Sender: TObject);
var
b,c:integer;
begin
b:=strtoint(edit1.Text);
memo4.Clear;
c:=1;
repeat
memo4.Lines.Add(inttostr(c));
c:=c+1;
until c>b;
end;
Jika di Run(f9) Hasilnya Seperti ini :
Sekian dulu untuk Trik dan Tutorial sederhana ini. Semoga bisa membantu. Terimakasih.
NB : Kritik dan Saran bisa di komentar.
0 komentar:
Post a Comment