FOR Döngüsü Kullanarak Aynı İşlemi Nasıl Yaparız ?

FOR döngüsünü kullanarak rakamları tek tek yazmaktan kurtulmuş oluruz. Yaptığımız bir önceki programın üstünde de FOR döngüsünü kullanabiliriz.
Nasıl mı?

    Öncelikle, Begin , End bloklarının arasına yazdığımız  satırları etkisiz hala getirmek için çift taksim kullunmamız gerekiyor.

begin
//t:=1+2+3.........+9+10;
//edit1.text:=inttostr(t);
end;

Bu işlemi tamamladıktan sonra yapacağımız işlem sıralaması şöyle olmalı;
Önceki programı aynen yazıp yeni eklediğim yerleri kırmızı ile yazacağım.


var
a,t:integer;
begin
//t:=1+2+3........+9+10;
//edit1.text:=inttostr(t);
t:=0;
for a:=1 to 10 do begin
t:=t+a;
end;
edit1.text:=inttostr(t);
end;
end.

(Açıklama)

        *Döngü için bir değişken daha tanımlıyoruz ve önceki satırların alt kısmına gelerek t:=0 yazıp t'mizi sıfırlıyoruz.Daha sonra döngümüzü açıp toplama yapmasını istediğimiz rakam aralığını yazıyoruz. Ve sonucu göstermek istediğimiz alanı belirtip programı bitiriyoruz.*