Nom kiritish bosManishini

2- misol. Ekranga 1 dan 20 gacha bo'lgan butun sonlarni o'sish tartibida chiqaruvchi dastur tuzing.

Yechish. Ekranga chiqariladigan sonlar S bilan belgilanadi. Awal S:=0 deb olinadi. S ning qiymatini 5:=.S+1 yordamida bittaga orttirib WriteLn(S) yordamida ekranga chiqariladi. Bu amallami 20 marta takrorlash lozim, shuning uchun For operatoridan foydalaniladi. Program Ketma_ketlik; Var I, S : Integer; Begin

S:=0;

For I:=l To 20 Do begin S:=S+1; WriteLn(S); end; End.

Umuman, takrorlash parametrini takrorlash tanasida ishlatish ham mumkin. Lekin uning qiymatini o'zgartirib bo'lmaydi. 2-misol dasturini tahlil qilib, takrorlanish davomida S o'zgaruvchi / bilan bir xil qiymatlar qabul qilayotganligini ko'rish mumkin. Shunday ekan, ekranga S ning o'rniga / ni chiqarish ham mumkin. U holda dasturda S o'zgaruvchini qo'llashga hojat qolmaydi. Bularni inobatga olib, dastur quyidagicha o'zgartiriladi:

Program Ketma_ketlik; Var I : Integer; Begin

For I:=l To 20 Do WriteLn(I); End.

3-misol. 1 dan 100 gacha bo'lgan butun sonlarni kamayish tartibida chop etuvchi dastur tuzing.

Yechish. Chop etiladigan sonlarni son takrorlash parametri i deb belgilanadi.

Program Sonlar; Var i,son : Integer; Begin son:=101;

For i:=l to 100 Do Begin son:=son-l; WriteLn(son); end; End.

For operatorida takrorlash parametri katta qiymatdan kichik qiymatga qarab kamayib borishi ham mumkin. Buning uchun To xizmatchi so'zi o'rniga Downto xizmatchi so'zi qo'llaniladi. Buni hisobga olib yuqoridagi dasturni quyidagicha soddalashtirish mumkin: Program Sonlar;

Var i : Integer; Begin

For i:=100 Downto 1 Do WriteLn(i); End.