More documents

Recommendations

Info

МЕТОДИКА Будем сразу решать “универсальную” задачу поиска в массиве n-го элемента, соответствующего заданному условию. В этом случае следует использовать целочисленную переменную-флаг, нулевое значение которой означает отсутствие подходящего по условию элемента, значение, равное n, указывает, что искомый элемент найден, а любое положительное значение меньше n указывает на факт обнаружения соответствующего количества предыдущих удовлетворяющих условию элементов. Пример Найти в одномерном целочисленном массиве n-й нулевой элемент (третий — n = 3) и вывести на экран его номер (наличие нулевых элементов в массиве не гарантируется): Начало Объявление константы n Ввод массива mas[] flag = 0 i = 1 to 10 Нет mas[i] = 0 Да flag = flag + 1 Нет flag = n Да Нет flag = n Да Искомый элемент не найден Номер n-го нулевого элемента: i 38 май 2012 / ИНФОРМАТИКА Конец Выполняемое действие Строки программы Начало программы program mas_find; Инициализация константы n — поиск третьего const n : integer = 3; по счету нулевого элемента Объявление массива var mas : array[1..10] of integer; Объявление цикловой переменной i : integer; Объявление целочисленной переменной-флага flag : integer; Объявление метки label 1; begin
ввод массива Первоначально флаг приравнивается нулю 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 / ИНФОРМАТИКА
Page 1 and 2: №5 Издание основан
Page 3 and 4: ПАРА СЛОВ На заметк
Page 5 and 6: коммуникативных на
Page 7 and 8: направо и от передн
Page 9 and 10: Приближение к слуш
Page 11 and 12: В ЗАКЛЮЧИТЕЛЬНОЙ Ч
Page 13 and 14: 13 май 2012 / ИНФОРМАТИ
Page 15 and 16: Введение Со времен
Page 17 and 18: Решение проблемы П
Page 19 and 20: Необходимые базовы
Page 21 and 22: • Как вы считаете,
Page 23 and 24: ти и новых друзей! З
Page 25 and 26: d := (d + 1) mod 7; end end; writel
Page 27 and 28: if days[13] = 5 then black := black
Page 29 and 30: зация модульно-рей
Page 31 and 32: Инструкционная кар
Page 33 and 34: for i := 5 downto 1 do write(mas[i]
Page 35 and 36: Вариант с использо
Page 37: Если условия задач
Page 41 and 42: Таблица трассировк
Page 43 and 44: end. else writeln('Искомого
Page 45 and 46: Образец заполнения
Page 47 and 48: КОД « » ДЛЯ УЧИТЕЛ
Page 49 and 50: эра стремительного
Page 51 and 52: Модель одной части
Page 53 and 54: Согласно факту 4 от
Page 55 and 56: 2 2 2 2 2 2 2 2 Расстанов
Page 57 and 58: “Крепкий орешек”
Page 59 and 60: вить номер типа кор
Page 61 and 62: Next i 'Расставляем ко
Page 63 and 64: станица Барсуковск

ÐÑÐ¿ÑÑÐº 5 - Ð Ð¾ÑÑÐ¸Ð¹ÑÐºÐ¸Ð¹ Ð³Ð¾ÑÑÐ´Ð°ÑÑÑÐ²ÐµÐ½Ð½ÑÐ¹ Ð¿ÑÐ¾ÑÐµÑÑÐ¸Ð¾Ð½Ð°Ð»ÑÐ½Ð¾ ...

Create successful ePaper yourself

Delete template?

Save as template?

ÐÑÐ¿ÑÑÐº 5 - Ð Ð¾ÑÑÐ¸Ð¹ÑÐºÐ¸Ð¹ Ð³Ð¾ÑÑÐ´Ð°ÑÑÑÐ²ÐµÐ½Ð½ÑÐ¹ Ð¿ÑÐ¾ÑÐµÑÑÐ¸Ð¾Ð½Ð°Ð»ÑÐ½Ð¾ ...