Выпуск 5 - Российский государственный профессионально ...

Вариант с использованием оператора goto:
Выполняемое действие
Строки программы
Начало программы
program mas_find;
Объявление массива
var mas: array[1..10] of integer;
Объявление цикловой переменной i: integer;
Объявление метки (для перехода по goto) label 1;
begin
ввод массива
Цикл перебора элементов массива for i := 1 to 10 do
begin
Если очередной элемент массива равен
if mas[i] = 0 then goto 1;
нулю, то выполнить безусловный переход
на метку 1
Конец цикла end;
Вывод номера (индекса) последнего обработанного
в цикле элемента (на котором
1: writeln('Номер первого нулевого
элемента: ',i:2);
цикл был прерван)
Конец программы
end.
Вариант с использованием оператора break 2 :
Выполняемое действие
Строки программы
Начало программы
program mas_find;
Объявление массива
var mas: array[1..10] of integer;
Объявление цикловой переменной i: integer;
begin
ввод массива
Цикл перебора элементов массива for i := 1 to 10 do
begin
Если очередной элемент массива равен
if mas[i] = 0 then break;
нулю, то прервать цикл досрочно при помощи
оператора break
Конец цикла end;
Вывод номера (индекса) последнего обработанного
в цикле элемента (на котором
writeln('Номер первого нулевого
элемента: ', i:2);
цикл был прерван)
Конец программы
end.
Обе приведенные выше программы обладают существенным недостатком: в обоих случаях предполагается,
что искомый элемент гарантированно имеется в массиве.
Вопрос учащимся: почему это является недостатком? Что будет, если искомого элемента в массиве нет?
В противном случае невозможно точно определить, действительно ли на экран выведен номер элемента
массива, удовлетворяющего условию, или такой элемент не найден, а цикл перебора элементов полностью
завершен и управление естественным образом передано на оператор вывода на экран (очевидно, в этом
случае он напечатает номер последнего просмотренного элемента, так как по завершении цикла значения
цикловых переменных сохраняются).
Для устранения этого недостатка введем дополнительную переменную-флаг, значение которой
фиксирует факт обнаружения искомого элемента массива. Такая переменная может иметь логический
тип (boolean) и принимать значения true или false либо иметь целый тип (integer), и
тогда значение false обозначается, например, нулем, а true — любым ненулевым числом. (Цело-
2
Некоторые программисты считают, что использование оператора безусловного перехода goto противоречит принципам
структурного программирования. Однако при отсутствии в используемой версии языка Паскаль специального
оператора прерывания цикла break (он был добавлен только начиная с версии Turbo Pascal 7.0) попытки использования
цикла с постусловием (repeat … until) гораздо значительнее усложняют программу, чем применение goto, учитывая
необходимость в таком цикле вручную осуществлять изменение индекса/индексов текущего элемента и контроль
выхода за пределы массива. Поэтому здесь и далее ради универсальности получаемого алгоритма по отношению к версии
языка Паскаль мы будем использовать оператор goto. Если в используемой вами версии языка определен оператор
break, то в этом и последующих листингах достаточно заменить оператор goto 1 на break и удалить строку определения
метки 1.
35
май 2012 / ИНФОРМАТИКА