Циклді басқарудың Break және Сontinue операторлары

Паскаль тілінде циклді басқару үшін 2 оператор қолданылады. Олар циклді қолдану мүмкіндігін кеңейтіп, программа құрылымын жақсартады.

var i, n, x, P: integer;

begin

read (n); санның нешеу екенін енгізу

begin

if (x=0) then break;

P:=P*x;

end;

end.

var i, n, x: integer;

begin

readln (n);

begin

if x mod 5=0 then break;

end;

writeln ('5-ке бөлінетін алғашқы санның индексі= ',i)

var i, n, x, k,S: integer;

begin

readln (n);

begin

if x<0 then continue;

S:=S+x; k:=k+1;

end;

end.

var i, n, x,S:word;

k: integer;

begin

for i :=1 to n do

begin

readln (x);

S:=S+x; k:=k+1;

end;

writeln ('Арифметикалық орта=',S/k);

Программа құру кезінде кейде басқаруды келесі оператордан басқа операторға беруге тура келеді. Ол үшін басқару берілетін оператор арнайы таңба бойынша белгіленіп қойылуы тиіс. Қолданылған таңба программаның label таңбалар бөлімінде сипатталуы қажет. Басқаруды операторға беру үшін Goto өту операторы қолданылады.

Оның жалпы түрі: Goto таңба;

Мысал:

begin

goto a1;

…

a1: оператор;

goto b1;

…

end.

var a, b, c, D: integer;

x1, x2, x: real; label 10;

begin

D:=b*b-4*a*c;

If D>0 then begin x1:= (-b+sqrt (D))/(2*a); x2:=(-b- sqrt (D))/(2*a);

writeln ('x1=', x1,'x2=', х2); Goto10; end;

If D<0 then writeln ('шешімі жоқ') else begin

x=-b/(2*a); writeln ('x1=x2=', x); end;

10: end.

Бұл программада D>0 шартының ақиқат жағдайында Goto10, яғни 10- жолға өту операторын қоймаған жағдайда экранға х1, х2 мәндерімен қатар, басқару else қызметші сөзінен кейін тұрған операторға беріліп, D=0 болғандағы х-тің мәні де шыққан болар еді. Ал мұндай жағдай программаның қате орындалуына әкеліп соғады.