7-мавзу. Шартли операторлар. Такрорлаш операторлар. Функция ва процедуралар эълон қилиш ва аниқлаш

while B do S;

бу ердаwhile (ҳозирча), do (бажармоқ) - хизматчи сўзлари;

B - циклдан чиқишни ифодаловчи мантиқий ифода;
S - циклнинг танасини ташкил этувчи оператор.
Бу операторда олдин В шарти текширилади, агар у false (ёлғон) қийматли натижага эришсагина цикл ўз ишини тугатади, акс ҳолда циклни тана қисми қайта - қайта ҳисобланаверади.
While операторига мисол сифатида, яна юқорида берилган йиғинди ҳисоблаш мисолини кўриб чиқайлик:


Program ex;
Var S,R,X,eps:real;
Begin
WriteLn( 'x ва эпсилоннинг қийматини киритинг:');
ReadLn(X,eps);
If abs(x)>1 then {агар x > 1 бўлса, у ҳолда қаторнинг суммасини аниқлаймиз}
begin
S:=1;
R:=1;
while abs(R)>eps do
begin
R:=-R/X;
S:=S+R;
end;


WriteLn('x=', x:6:2,' да S=',S:8:2, ' R=',R:8:6)


end
else Writeln('Қатор узоқлашади');
End.
4. Бўш оператор
Бу оператор ўзидан кейинги операторни аниқлаб беради холос. Операторлар кетма-кетлиги орасида бошқа операторлардан ";" белгиси билан ажратилиб турилади. Бундан ташқари, бўш оператор метка билан жиҳозланган ҳам бўлиши мумкин.
Мисол:

1. 
   begin L1:; k:=5; M:=k+6; end.
   
2. 
   begin M:=5; k:=M-2.7; L4: end.
   

Айрим пайтларда, баъзи бир операторларга бир нечта метка билан мурожаат қилишга тўғри келганда бўш оператордан фойдаланиш қўл келади.

S5:; S6:; S7: x:=0.5;

Назарий саволлар ва таянч иборалар:

1. 
   Такрорлаш операторларининг неча хили мавжуд?
   
2. 
   Параметрли такрорлаш операторининг ишлаш принципини тушунтиринг;
   
3. 
   Камайиш тартибида ишловчи параметрли такрорлаш операторини ёзинг ва уни ишлаш принципини тушунтиринг;
   
4. 
   Чекли йиғиндини ҳисоблаш дастурни тузинг;
   
5. 
   Қандай холларда Repeat ва While операторларидан фойдаланиш мақсадга мувофиқ?
   
6. 
   Repeat операторининг ишлаш принципини тушунтиринг;
   
7. 
   While операторининг ишлаш принципини тушунтиринг;
   
8. 
   Чекли ва чексиз йиғиндини Repeat ва While операторлари ёрдамида ҳисоблаш дастурини тузинг;
   
9. 
   Бўш операторнинг вазифасини тушунтиринг.