Mavzu: 1 ­­– dars. Masalalarni kompyuterda yechish bosqichlari Darsning maqsadi

Yechish: Chop etiladigan sonlarni son, takrorlash parametrini i deb belgilaymiz.

Program Sonlar;

Var i,son : Integer;

Begin

son:=101;

For i:=1 to 100 Do Begin son:=son–1; 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 ishlatiladi. Buni hisobga olib yuqoridagi dasturni quyidagicha soddalashtirish mumkin:

Program Sonlar;

Var i : Integer;

Begin

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

End.

4–misol. 1 dan 21 gacha bo’lgan toq sonlar yig’indisini hisoblash dasturini tuzing.

Yechish: 1 dan 21 gacha bo’lgan sonlarni qarab chiqish uchun takrorlash operatori parametrini ishlatish mumkin. S=1+2+3+…+21 yig’indidagi qo’shiluvchilar 255 dan katta emas, demak, bu holda parametr uchun byte, S butun va manfiy bo’lmagani uchun word turini tanlash mumkin. Indekslarni toqligini tekshirish uchun Odd(x) funksiyasidan foydalanish qulay.

Program Summ;

Var s: word; i: byte;

Begin

S:=0;

For i:=1 to 21 Do If odd(i) then S:=S+i;

WriteLn(‘S= ‘, S);

End.

5–misol. Berilgan A[1..21] massivni juft indeksli elementlari yig’indisini hisoblash dasturini tuzing.

Yechish: Massivni kiritish va indekslarini qarab chiqish uchun yana takrorlash operatori parametridan, indekslarni juftligini tekshirish uchun NOT(Odd(x)) dan foydalanamiz.

Program Massiv;

Var i: Integer; s: real;

a: array[1..21] of real;

Begin

For i:=1 to 21 Do Begin WriteLn(‘a[‘, i, ‘]= ‘); readln(a[i]); end;

S:=0;

For i:=1 to 21 Do If NOT(odd(i)) then S:=S+a[i];

WriteLn(‘S= ‘, S); readln;

End.

Demak, takrorlash operatorida takrorlash parametrining o‘sish yoki kamayishiga qarab Do yoki Downto xizmatchi so‘zini tanlanishi dastur tuzishni yengillashtiradi.

4.