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

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