Ш. И. Раззоќов, М. Д. Юнусова turbo pascal алгоритмик тилида дастурлаш касб-ћунар коллеж талабалари учун ўќув ќўлланма

if операторининг умумлашган кўриниши

then	else
Битта	Битта	if ифода then оператор else оператор
Бир нечта	Битта	if ифода then begin оператор; . . . . . . . . оператор; end else оператор
Битта	Бир нечта	if ифода then оператор else begin оператор; . . . . . . . . оператор; end
Бир нечта	Бир нечта	if ифода then begin оператор; . . . . . . . . оператор; end else begin оператор; . . . . . . . . оператор; end

8.3. Такрорлаш операторлари

Турбо Паскал тилида такрорланувчи бўлакларни дастурлашга ёрдам берувчи 3 та ћар хил оператор бор.
8.3.1. Ћисобчи FOR цикл оператори
У ќуйидаги структурага эга:
FOR <цикл_парам.>: = <бошл._ќийм.> TO <охир_ќийм.> DO <оператор> .
Бу ерда FOR, TO, DO – резерв сўзлар (учун, бўлгунча, бажар);
<цикл_парам.> - Integer туридаги ўзгарувчи - цикл параметри;
<бошл._ќийм.> - ўша турдаги ифоданинг бошланѓич ќиймати;
<охир._ќийм.> - ўша турдаги ифоданинг охирги ќиймати;
<оператор> - Турбо Паскалнинг ихтиёрий оператори
FOR операторининг бажарилишида аввал <бошл._ќийм.> ифода ћисобланади ва <цикл._парам.>: = <бошл._ќийм.> ўзлаштириш амалга оширилади. Шундан кейин циклик равишда ќуйидагилар такрорланади:

• 
  <цикл_парам.> < = <охир._ќийм.>; шарти текширилади, агар шарт бажарилса, FOR оператори ўз ишини тугатади;
  
• 
  <оператор> оператори бажарилади;
  
• 
  <цикл_парам.> параметр бир ќийматга оширилади.
  

FOR операторининг ќўлланилишини ќуйидаги дастурда кўрсатамиз, унга кўра клавиатурадан ихтиёрий бутун N сони киритилади ва барча 1 дан N гача бўлган бутун сонлар йиѓиндиси ћисобланади.
8.2-дастур
Program Summ_of_Integer
var
i,n,s: integer;
begin
write (`N=`);
Readln (n); {N киритилади}
s: = 0; {йиѓиндининг бошланѓич ќиймати}
for i:=1 to n do {йиѓиндини ћисоблаш цикли}
S:=s +i;
writeln (`йиѓинди=`,s) {натижани чиќариш}
end.
Икки ћолатни айтиб ўтамиз. Биринчидан, FOR оператор ишини бошќарувчи шарт <оператор> операторининг бажарилишидан олдин текширилади: агар шарт FOR операторининг энг бошидаёќ бажарилмаса, бажарилувчи оператор бирор марта ћам бажарилмайди. Иккинчи ћолат, цикл параметрининг ўсиш ќадами ќатъий бир хил ва (+1) га тенг. Операторнинг бошќа кўриниши мавжуд:
FOR <цикл_парам.>: = <бошл._ќийм.> DOWNTO <охир._ќийм.> DO <оператор>.
Резерв ТО сўзнинг -1 DOWNTO га алмаштирилиши, цикл параметрининг ўсиш ќадами (-1) га тенг, бошќарувчи шарт эса <цикл._парам.> = <охир._ќийм.> кўринишини олади.
Охирги дастурни ихтиёрий йиѓиндини (мусбат ва манфий) ћисоблашга яроќли ќилиш учун ўзгартирамиз:
…………….
s:=0;
if n>=0 then
for i:=1 to n do
s:=s+i
else
for i:=-1 downto n do
s:=s+i;
………………
Такрорлашнинг ќолган икки оператори фаќат циклнинг бажарилиши ёки такрорланиши шартини текширади, лекин цикл ћисобчисининг ўзгариши билан боѓлиќ эмас.


8.3.2. WHILE цикл оператори
Унинг умумий кўриниши: