Организация циклических процессов

В том случае, когда какая-либо группа операторов должна выполняться неоднократно требуется организовать циклический процесс. Имеется две разновидности операторов цикла.

Первая разновидность используется для задания циклического процесса, если число повторений не известно заранее.

Вторая разновидность используется для организации циклов с известным числом повторений.

Для организации циклов с неизвестным числом повторений используется оператор WHILE. Синтаксис оператора

WHILE <логическое выражение> Do

<оператор>;

Пока логическое условие истинно, выполняются оператор, следующий после слова “Do”. Если условие ложно, то выполняется оператор, следующий после завершения оператора "While".

Оператор WHILE является канонической конструкцией. Это значит, что с его помощью можно организовать любой циклический процесс.

Пример:

Обучающая программа, обеспечивающая усвоение материала по организации разветвлений алгоритма. После завершения процесса усвоения материала выдается анализ работы с количеством допущенных ошибок.

Program PrjWhile;

{$APPTYPE CONSOLE}

Uses

SysUtils;

Var

Answer:String;

Mistake:Integer;

FL:Boolean;

Begin

FL:=False;

Mistake:=0;

While FL= False Do

Begin

Writeln ('Kakoi operator ispolzyetsia');

Writeln ('esli neobhodimo razvetvlenie');

Writeln ('na znachitelnoe chislo');

Writeln ('vetvei algoritma');

Writeln ('Var; While; Case;');

Writeln ('If; Begin ');

Writeln ('Vvedite oboznachenie operatora');

Readln(Answer);

If Answer = 'Case' Then

Begin

Writeln ('Otvet veren');

FL:=True;

End

Else

Begin

Writeln ('Otvet ne veren');

Mistake:=Mistake +1;

End;

End;

Writeln ('Kolichestvo oshibok ', Mistake);

Readln;

End.