Nom kiritish bosManishini

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 qo'llash 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. Indekslarning ^toqligini tekshirish uchun Odd(x) funksiyasidan foydalanish qulay.

Program Summ;

Var s: word; i: byte;

Begin S:=0;

For i:=l to 21 Do If odd(i) then S:=S+i; WriteLn('S= ', S); End.

5-misol. Berilgan A[1..21] massivning juft indeksli elementlari yig'in-disini hisoblash dasturini tuzing.

Yechish. Massivni kiritish va indekslarini qarab chiqish uchun yana takrorlash operatori parametridan, indekslarning juftligini tekshirish uchun NOT(Odd(x)) dan foydalaniladi. Program Massiv; Var i: Integer; s: real; a: array[1..21] of real; Begin For i:=l to 21 Do Begin WriteLn('a[', i, ']= '); readln(a[i]); end;

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

WriteLn('S= ', S); readln; End. Ko'rib turganingizdek, massivlarni kiritish, chiqarish va ularning indeks­larini sanash kabi vazifalarni bajarish uchun parametrli takrorlash operatori juda qulaydir.