MEMBUAT PROGRAM PE RULANGAN DENGAN  DELFHI

BUAT FORM sbb:
 

procedure TForm1.Button1Click(Sender: TObject);

Var i:integer;

begin

For i:=1 to 10 do

Edit1.selText:=inttostr(i);

end;

arti : i adalah integer

cetak i dari angka 1 dan ulangi hingga i=10

inttostr=untuk menampilkan nilai integer ke bentuk  string, karena type  pada property Edit adalah type string

procedure TForm1.Button2Click(Sender: TObject);

Var i:integer;

begin

For i:=10 downto 1 do

Edit2.SelText:=inttostr(i);

end;

downto=perulangan dari tinggi ke rendah

procedure TForm1.Button3Click(Sender: TObject);

var i:integer;

begin

 i:=1;

 while i<=10 do

 begin

  Edit3.SelText:=inttostr(i);

  i:=i+1;

end;

end;

arti nya kurang lebih sbb:

i adalah integer

masukan i=1

lihat kondisi apakah i tersebut <=10  bila benar  maka

cetak nilai  i

lanjut dengan i=i+1 berarti i=2

lihat kondisi apakah i tersebut <=10  bila benar  maka

terus cetak sampai kondisi  i=10

procedure TForm1.Button4Click(Sender: TObject);

var i:integer;

begin

 i:=1;

 repeat

      Edit4.SelText:=floatToStr(i);

      i:=i+2;

 until

 i>=10;

end;

procedure TForm1.Button5Click(Sender: TObject);

var i:integer;

begin

 i:=2;

 repeat

      Edit5.SelText:=floatToStr(i);

      i:=i+2;

 until

 i>10;

end;

procedure TForm1.Button7Click(Sender: TObject);

begin

CLOSE;

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

Edit1.Text:='';

Edit2.Text:='';

Edit3.Text:='';

Edit4.Text:='';

Edit5.Text:='';

end;

end.

semoga bermanfaat,,,heee