RROGRAM LOOPING DENGAN DELPHI

PROGRAM LOOPING DENGAN DELPHI

Dobel klik for to do

var

i:integer;

begin

for i:=1 to 10 do

 eftd .SelText:=IntToStr(i);

end;

dobel klik button  for down to

dobel klik while do

var

i:integer;

begin

i :=1;

   while i <= 10 do

   begin

     ewd .SelText:=IntToStr(i);

     i :=i + 1;

end;

dobel klik repeat until ganjil

var

i:integer;

begin

 i := -1;

repeat

i := i + 2;

erug .SelText := inttostr(i);

until i = 9;

end;

dobel klik repeat until genap

var

i:integer;

begin

 i := 0;

repeat

i := i + 2;

erugp .SelText := inttostr(i);

until i = 10;

end;