Program Perulangan pada Delphi

Buatlah form seperti diatas dengan ketentuan :

Form/Control	Properties	Setting
Group Box	Caption	Perulangan Box
	Name	perulangan_box
Label	Caption	Angka Awal
Label	Caption	Banyak Perulangan
Edit	Name	input_perulangan
	Text	Kosongkan
Edit	Name	ulang_ perulangan
	Text	Kosongkan
Memo	Name	Memo1
Button	Caption	While-Do
	Name	btn_while
Button	Caption	Repeat-Until
	Name	btn_repeat
Button	Caption	For-Do
	Name	btn_for_do
Button	Caption	For_DownTo
	Name	btn_dwnto

Pada bagian button While-Do, klik 2x kemudian buat koding seperti dibawah ini:

procedure TForm1.btn_whileClick(Sender: TObject);

var

E, F : Integer;

begin

memo1.clear;

E:= StrToInt (input_perulangan.Text);

F:=1;

while F <> StrToInt(ulang_perulangan.Text) do

begin

Memo1.Lines.Add(‘Perulangan ke-’+IntToStr(F)+’ = ‘+IntToStr(E));

E:= E+1;

F:= F+1;

end;

end;

Di bagian button Repeat-Until, klik 2x kemudian buat koding seperti dibawah ini:

procedure TForm1.btn_repeatClick(Sender: TObject);

var

E, F : Integer;

begin

memo1.clear;

E:= StrToInt (input_perulangan.Text);

F:=1;

repeat

Memo1.Lines.Add(‘Perulangan ke-’+IntToStr(F)+’ = ‘+IntToStr(E));

F:= F+1;

E:= E+1;

until F = StrToInt(ulang_perulangan.Text)

end;

Pada bagian button For-Do, klik 2x kemudian buat koding jadi seperti dibawah ini:

procedure TForm1.btn_for_doClick(Sender: TObject);

var

E, F : Integer;

begin

memo1.clear;

E:= StrToInt (input_perulangan.Text);

for F := 1 to StrToInt(ulang_perulangan.Text) do

begin

Memo1.Lines.Add(‘Perulangan ke-’+IntToStr(F)+’ = ‘+IntToStr(E));

E:= E+1;

end;

end;

Pada bagian button For_DownTo, klik 2x kemudian buat koding seperti dibawah ini:

procedure TForm1.btn_dwntoClick(Sender: TObject);

var

E,F: Integer;

begin

memo1.clear;

E:= StrToInt (input_perulangan.Text);

F:= 1;

for E:= E downto (StrToInt(input_perulangan.Text)-StrToInt(ulang_perulangan.Text)+1) do

begin

Memo1.Lines.Add(‘Perulangan ke-’+IntToStr(F)+’ = ‘+IntToStr(E));

F:=F+1;

end;

end;

Sumber :

• Wordpress

Alfi R ☺