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

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