Операторы ограничения и прерывания цикла
Данные операторы применяются внутри операторов цикла с параметром или условием. Операторы имеют вид:
Continue; - ограничение цикла,
Break; - прерывание цикла.
Операторы Continue и Break позволяют производить действия не для всех операторов внутри цикла. Действие оператора Continue заключается в передаче управления на начало цикла, при этом контролируется условие выхода из цикла. Действие оператора Break заключается в передаче управления оператору, следующему за последним оператором цикла, при этом не контролируется условие выхода из цикла. Во вложенных циклах операторы Continue и Break действуют только на цикл в котором они записаны. Приведем пример использования операторов для блокировки несанкционированного доступа в программу.
For i := 1 to 3 do
begin
Write( 'Введите ПАРОЛЬ:' ); Readln(S); {S и Parol - переменные одного типа}
If S = Parol Then Break { прерывание цикла }
else If i <> 3 Then Continue; { ограничение цикла }
Writeln( 'Доступ к программе ЗАПРЕЩЕН' );
Writeln( 'Нажмите Enter' );
Readln;
Halt { прерывание программы }
end; { продолжение программы }
Способы записи алгоритмов. Типовые элементы блок-схем.
Способы записи алгоритмов
Для записи алгоритмов используют самые разнообразные средства. Выбор средства определяется типом исполняемого алгоритма. Выделяют следующие основные способы записи алгоритмов:
- вербальный, когда алгоритм описывается на человеческом языке;
- символьный, когда алгоритм описывается с помощью набора символов;
- графический, когда алгоритм описывается с помощью набора графических изображений.
Общепринятыми способами записи являются графическая запись с помощью блок-схем и символьная запись с помощью какого-либо алгоритмического языка.
Описание алгоритма с помощью блок схем осуществляется рисованием последовательности геометрических фигур, каждая из которых подразумевает выполнение определенного действия алгоритма. Порядок выполнения действий указывается стрелками. Написание алгоритмов с помощью блок-схем регламентируется ГОСТом. Внешний вид основных блоков, применяемых при написании блок схем, приведен на рисунке:
В зависимости от последовательности выполнения действий в алгоритме выделяют алгоритмы линейной, разветвленной и циклической структуры.
В алгоритмах линейной структуры действия выполняются последовательно одно за другим:
В алгоритмах разветвленной структуры в зависимости от выполнения или невыполнения какого-либо условия производятся различные последовательности действий. Каждая такая последовательность действий называется ветвью алгоритма.
В алгоритмах циклической структуры в зависимости от выполнения или невыполнения какого-либо условия выполняется повторяющаяся последовательность действий, называющаяся телом цикла.Вложенным называется цикл, находящийся внутри тела другого цикла. Различают циклы с предусловием и послеусловием:
Итерационным называется цикл, число повторений которого не задается, а определяется в ходе выполнения цикла. В этом случае одно повторение цикла называется итерацией.
Оператор цикла с предусловием. Назначение, правила записи. Примеры.
Оператор цикла с предусловием используется в программе в случае, когда заранее не известно количество элементов последовательности и соответственно количество повторений операторов.
Данный оператор имеет следующую структуру:
While <условие> do <оператор>;
Здесь While, do - зарезервированные слова (пока [выполняется условие], делать);
<условие> - выражение логического типа;
<оператор> - произвольный оператор Turbo Pascal.
Работает оператор следующим образом. Вначале вычисляется условие, если результат вычисления имеет значение ИСТИНА, то выполняется оператор в цикле, после чего вычисление выражения <условие> и его проверка повторяются. Если логическое выражение имеет значение ЛОЖЬ, оператор While прекращает свою работу.
Также как и в операторе цикла с параметром, в цикле с предусловием при использовании нескольких исполняемых операторов эта группа оператор заключается в логические скобки.
Пример 1.
Дана последовательность целых чисел за которой следует ноль. Вычислить сумму элементов последовательности.
.... |
Program primer1; Var i, a, s : integer; Begin s := 0; Read (a); While a <> 0 do begin s := s + a; Read (a); end; Write ('Сумма элементов равна ', s); End. |
////
Базовые алгоритмические структуры.