For to do 2

// For to do 2

{
For = Untuk
down = bawah
to = sampai
do = maka/lalu
:= adalah

Contoh

For i := 10 downto 0 do
artinya
untuk i adalah 10 sampai bawah 1 lalu .... artinya Nilai i akan berulang mulai dari 10 sampai kebawah 0...

Maka dihasilkan nilai I ..
i = 10
i = 9
i = 8
i = 7
i = 6
i = 5
i = 4
i = 3
i = 2
i = 1


}


// contoh di delphi

procedure TForm2.Button1Click(Sender: TObject);
var i: integer ;
begin
Memo1.Clear ;

for I := 10 downto 1 do begin  // Perulangan 1 sampai 10
  Memo1.Lines.Add(IntToStr(i))  ;   // Mangisi paragraf memo dengan konfersi angka jadi string pada Nilai I
end;

end;