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

ввод массива
Первоначально флаг приравнивается нулю flag := 0;
Цикл перебора элементов массива for i := 1 to 10 do
begin
Если текущий элемент массива равен нулю, то: if mas[i] = 0 then
begin
— значение флага увеличивается на 1; flag := flag+1
— если теперь флаг равен заданному n, то
if flag = n then goto 1;
выполняется безусловный переход на метку 1
Конец ветви then внешнего условного
end
оператора
Конец цикла end;
Если флаг равен n, то выводится номер (индекс) 1: if flag = n
последнего обработанного в цикле элемента, на then writeln('Номер ',n:1,'-го нулевого
котором цикл был прерван. Иначе (если флаг элемента: ',i:2)
равен нулю — ни одного нулевого элемента else writeln('Искомый элемент не найден');
не найдено, или если он меньше n — найдено
меньше нулевых элементов, чем нужно)
выводится сообщение об отсутствии в массиве
такого элемента
Конец программы
end.
Таблица трассировки (для конкретного примера массива):
Строки программы
Значения
переменных
i mas[i] flag
ввод массива
mas[] = (1,0,2,0,3,0,4,0,5,0)
flag := 0; – – 0
for i := 1 to 10 do 1 1 0
if mas[i] = 0 then
текущий элемент — не нулевой: ветвь then пропускается
1 1 0
if mas[i] = 0 then
текущий элемент — нулевой: выполняется ветвь then
2 0 0
flag := flag+1; 2 0 1
if flag = n then goto 1;
значение flag не равно n (трем): ветвь then пропускается
2 0 1
if mas[i] = 0 then
текущий элемент — не нулевой: ветвь then пропускается
3 2 1
if mas[i] = 0 then
текущий элемент — нулевой: выполняется ветвь then
4 0 1
flag := flag+1; 4 0 2
if flag = n then goto 1;
значение flag не равно n (трем): ветвь then пропускается 4 0 2
if mas[i] = 0 then
текущий элемент — не нулевой: ветвь then пропускается
5 3 2
if mas[i] = 0 then
текущий элемент — нулевой: выполняется ветвь then
6 0 2
flag := flag+1; 6 0 3
if flag = n then goto 1;
значение flag равно n (трем): выполняется ветвь then и производится
6 0 3
досрочное прерывание цикла
1: if flag = n
then writeln('Номер ',n:1,'-го нулевого элемента: ',i:2)
else writeln('Искомый элемент не найден'); 6 0 3
flag = 3: выполняется ветвь then — на экран выводится строка
Номер 3-го нулевого элемента: 6
Если по условию задачи требуется лишь определить факт наличия в массиве n-го по счету элемента,
соответствующего заданному условию, то (так же, как и в предыдущей задаче при выяснении
факта наличия первого такого элемента) тоже можно для упрощения программы исключить из
39
май 2012 / ИНФОРМАТИКА