For-Do

For-Do
For deyimi, bir program parçasının herhangi bir boolean şartına bağlı olmaksızın belirlenen sayıda üstüste çalıştırılması için kullanılır. For deyiminin genel kullanım şekilleri aşağıda verilmiştir.
1. FOR Kontrol Değişkeni :=Başlangıç_Değeri TO Son_değer DO
Begin
İşlemler
End;
Bu kullanım şeklinde başlangıç değeri bitiş değerinden küçük olmak zorundadır. TO ifadesiyle başlangıçtan bitişe kadar artarak tekrar yapılacağını, DO ifadesi de tanımlanan işlemlerin tekrarlanacağını bildirir
For-Downto
FOR Kontrol Değişkeni :=Başlangıç_Değeri DOWNTO Son_değer DO
Begin
İşlemler
End;
For deyiminin bu kullanım şeklinde başlangıç değeri bitiş değerinden daima büyük olup DOWNTO ifadesi de döngü değişkeninin tekrarlama işleminde azalacağını belirtir. DO ifadesi ise belirtilen işlemlerin döngü sayısınca tekrarlanacağını bildirir.
Turbo Pascal dilinde diğer programlama dillerinden farklı olarak başlangıç değerinden son değere artışlar/azalmalar birer birer olmaktadır. Aşağıdaki örnek programları inceleyiniz.
Program Hesap_plani;Uses Crt; {Windows için Wincrt}var i:byte;Hesapkodtring[ 10] ;Hesapaditring[ 20] ;begin clrscr;for i:=1 to 5 dobeginWrite('Hesap Kodu ........:');Readln(HesapKod);Write('Hesap Adı............:');Readln(HesapAdi);end;Readln;end .
Örnek:Aşağıdaki örnek Program; 1'den 8'e kadar artan ve 9'dan 3'e kadar birer birer azalan içiçe for do döngülerinin kullanımını göstermektedir.
Program icice_for_ornek;Uses crt; {Windows için Wincrt}Vari,j:byte;BeginFor i:=1 to 8 doBeginfor j:=9 downto 3 doBeginWrite(i*j:6);end;Writeln;end;Readln;End.
Örnek: 'A' dan 'Z' ye kadar büyük harfleri ekrana yazdıran Pascal programı.
Program Odev;var ch:=Char;beginWriteln('BÜYÜK HARFLER');for ch:='A' to 'Z' DOWrite(Ch,' ');end.
Örnek. Klavyeden girilen bir ifadeyi tersten yazdıran program.
program terstenyazma;uses crt; {Windows için Wincrt}varmesaj:string;i,l:byte;beginWrite('Bir mesaj yazınız');Readln(mesaj);l:=length(mesaj);Writeln(L );for i:=L downto 1 doWrite(Copy(mesaj,i,1));End.