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.*
Hiç yorum yok:
Yorum Gönder