Презентация по информатике «Программирование. Задание №20_2 ОГЭ»,

Программирование   Задание №20_2 ОГЭ Учитель – Богачёва Г.В. Лицей № 144 Санкт­Петербурга

На что обратить внимание: • Числа не надо хранить в программе, к тому же мы не знаем, сколько чисел  будет  введено,  поэтому  отказываемся  от  массивов  (в  классическом  Паскале  нет  динамических  массивов  ­    в  описании  необходимо  указать  число элементов массива). • Вводим  количество  чисел  в  последовательность  и  организуем  цикл  (возможны  for  и  while).  Если  количество  чисел  не  задано,  а  есть  признак  окончания  ввода,  используем  repeat  (сначала  вводим  число,  затем  его  анализируем). • Необходимо знать операции mod – остаток от деления   (if a mod 10 = 8) и div – деление нацело (x := x div 10). • Знать, как считается количество (b:= b +1) и сумма (s:= s +a). • Уметь использовать сложные условия   (if (a mod 10 =2) and (a mod 6 =0))    или вложенные условные операторы. • Уметь  сравнивать  и  находить  в  последовательности  наибольшее  или  наименьшее число. • Избегаем подсказок и пояснений в операторах вывода.

Задача 20.2 из демоверсии 2018 (2017) программу,  которая  в  чисел  определяет  минимальное  последовательности  Напишите  натуральных  число,  оканчивающееся  на  4.  Программа  получает  на  вход  количество чисел в последовательности, а затем сами числа.  В  последовательности всегда имеется число, оканчивающееся на  4.  Количество  чисел  не  превышает  1000.  Введённые  числа  не  превышают  30 000. Программа должна вывести одно число –  минимальное число, оканчивающееся на 4.  Пример работы программы: Входные  данные 3  24 14 34 Выходные  данные 14

Вводим с клавиатуры  количество чисел  последовательности (read  (n)), заносим в переменную  min самое максимальное  возможное значение + 1.  Затем n раз повторяем одни и  те же действия (цикл):  вводим число, проверяем,  оканчивается ли это число на  4 (a mod 10 = 4) и,  одновременно, меньше ли  введённое число переменной  min. Если да, меняем  значение min. Выводим  результат. Обязательно  тестируем программу. program pr2; var n,i,a,min: integer; Begin readln(n); min := 30001; for i := 1 to n do   begin      readln(a);  if (a mod 10 = 4) and (a < min)           then  min :=  a; end;  writeln (min)  end. Минимальное число, оканчивающееся на 4.

которая  в  чисел  определяет  программу,  последовательности  Напишите  количество  чисел,  натуральных  оканчивающихся  на  8.  Программа  получает  на вход  количество  чисел  в  последовательности,  а  затем  сами  числа.  В последовательности  всегда  имеется  число,  оканчивающееся  на 8. Количество  чисел  не  превышает  1000.  Введённые  числа  по  модулю не превышают 30 000. Программа  должна  вывести  одно  число:  количество  чисел,  оканчивающихся на 8. Пример работы программы: Входные  данные Выходные  данные 2 3 18 28 24

Вводим с клавиатуры количество чисел последовательности  (read  (n)),  затем  n  раз  повторяем  одни  и  те  же  действия  (цикл): вводим число, проверяем, оканчивается ли это число  на 8 (a mod 10 = 8) и, если да, то увеличиваем счетчик на 1  (b:=  b  +  1).  Выводим  результат.  Обязательно  тестируем  программу. Количество  чисел,  оканчивающихся на 8. program pr1; var n,a,b,i: integer; begin read (n); b :=0; for i:=1 to n do begin read (a); if a mod 10 =8 then b:= b +1; end; writeln (b); end.

программу,  которая  в  чисел  определяет  максимальное  последовательности  Напишите  число,  натуральных  оканчивающееся  на  9.  Программа  получает  на  вход  количество  чисел  в  последовательности,  а  затем  сами  числа.  В последовательности  всегда  имеется  число,  оканчивающееся  на 9. Количество  чисел  не  превышает  1000.  Введённые  числа  по  модулю не превышают 30 000. Программа должна вывести одно число: максимальное число,  оканчивающееся на 9. Пример работы программы: Входные  данные Выходные  данные 19 3 9 19

Вводим с клавиатуры  количество чисел  последовательности (read  (n)), заносим в переменную  max самое минимальное  возможное значение. Затем n  раз повторяем одни и те же  действия (цикл): вводим  число, проверяем,  оканчивается ли это число на  9 (a mod 10 = 9) и,  одновременно, больше ли  введённое число переменной  max. Если да, меняем  значение max. Выводим  результат. Обязательно  тестируем программу. program pr2; var n,a,max,i: integer; begin read (n); max :=­30001; for i:=1 to n do begin read (a); if (a mod 10 =9) and (a > max) then max:= a; end; writeln (max); end. Максимальное число, оканчивающееся на 9.

а  сами  затем  Напишите  программу,  которая  в  последовательности  натуральных чисел определяет сумму чисел, оканчивающихся  на  8.  Программа  получает  на  вход  количество  чисел  в  последовательности,  числа.  В последовательности всегда имеется число, оканчивающееся  на 8. Количество  чисел  не  превышает  100.  Введённые  числа  по  модулю не превышают 300. Программа  должна  вывести  одно  число:  сумму  чисел,  оканчивающихся на 8. Пример работы программы: Входные  данные Выходные  данные 46 3 18 28 24

Вводим с клавиатуры количество чисел последовательности  (read (n)). В переменную s заносим 0 (сумма чисел). Затем n  раз повторяем одни и те же действия (цикл): вводим число,  проверяем, оканчивается ли это число на 8 (a mod 10 =8) и,  если  да,  то  прибавляем  число  к  переменной  s  (s:=  s  +  a).  Выводим результат (s). Обязательно тестируем программу. Сумма чисел,  оканчивающихся на 8. program pr3; var n,a,s,i: integer; begin read (n); s := 0; for i:=1 to n do begin read (a); if a mod 10 =8 then s:= s +a; end; writeln (s); end.

которая  в  программу,  Напишите  последовательности  натуральных чисел определяет количество чисел, кратных 6 и  оканчивающихся  на  2.  Программа  получает  на  вход  количество чисел в последовательности, а затем сами числа. Количество  чисел  не  превышает  1000.  Введённые  числа  по  модулю не превышают 30 000. Программа  должна  вывести  одно  число:  количество  чисел,  кратных 6 и оканчивающихся на 2. Пример работы программы: Входные  данные Выходные  данные 2 3 12 25 42

Вводим с клавиатуры  количество чисел  последовательности (read  (n)), заносим в переменную  b 0 (счетчик). Затем n раз  повторяем одни и те же  действия (цикл): вводим  число, проверяем,  оканчивается ли это число  на 2 (a mod 10 =2) и,  одновременно, кратно ли  это число 6 (a mod 6 =0).  Если да, то увеличиваем  счетчик на 1 (b:= b +1).  Выводим результат.  Обязательно тестируем  программу. program pr4; var n,a,b,i: integer; begin read (n); b := 0; for i:=1 to n do begin read (a); if (a mod 10 = 2) and (a mod 6 = 0)  then b:= b +1; end; writeln (b); end. Количество чисел, кратных 6 и оканчивающихся на 2.

в  среднее  чисел  которая  находит  программу,  Напишите  последовательности  натуральных  арифметическое  трёхзначных  чисел  или  сообщает,  что  таких  чисел  нет  (выводит NO). Программа получает на вход натуральные числа,  количество  введённых  чисел  неизвестно,  последовательность  чисел  заканчивается  числом  0  (0  признак  окончания  ввода,  не  входит в последовательность). числа  Введённые  Количество  чисел  не  превышает  100.  не  превышают 300.  вывести  Программа  среднее  арифметическое  трёхзначных  чисел  или  вывести  «NO», если таких чисел нет. должна  Входные  данные Выходные  данные 10 120 125 0 11 1 0 122.5 NO

До тех пор, пока не будет введён  0, повторяем в цикле (repeat, так  как сначала вводим, потом  проверяем): если это трёхзначное  число ((a>99) and (a<1000)) ,  увеличиваем счетчик таких чисел  на 1 и сумму на это число  (k:=k+1; b:=b+a;)  Если такие числа есть (k<>0),  находим среднее  арифметическое и выводим  результат, в противном случае  выводим 'NO'  Обязательно  тестируем программу. Среднее арифметическое  трёхзначных чисел или «NO» program pr5; var a, b, k: integer; m: real; begin b:=0; k:=0; repeat read (a); If (a>99) and (a<1000) then  begin b:=b+a; k:=k+1; end until a=0; if k<>0 then begin  m:=b/k; writeln (m); end else writeln ('NO') end.

Напишите программу для решения следующей задачи. На соревнованиях по бегу на 5000 метров для выхода в финал  необходимо показать время не более 18 минут 30 секунд. Сколько  спортсменов  по  результатам  соревнований  вышли  в  финал? Программа  получает  на  вход  количество  спортсменов,  принимавших участие в соревнованиях (1 ≤ N ≤ 100), затем для  каждого  спортсмена  вводится  два  числа:  минуты  и  секунды – время, показанное на дистанции. Входные  данные Выходные  данные 2 17  15 19  20 1

Вводим с клавиатуры  количество спортсменов  (read (n)), заносим в  переменную k 0 (счетчик).  Затем n раз повторяем одни и  те же действия (цикл):  вводим число минут (a),  вводим число секунд (b).  Проверяем, если число минут  меньше 18 или число минут  равно 18 и одновременно  число секунд не больше 30,  то увеличиваем счетчик на 1  (k := k +1). Выводим  результат. Обязательно  тестируем программу. program pr6; var n,a,b,i,k: integer; begin read (n); k:=0; for i:=1 to n do begin read (a); read (b); if (a <18) or (a=18) and (b<=30) then k:= k +1; end; writeln (k); end. Количество спортсменов, время которых не более 18 минут 30 секунд

30000,  не превосходящим  Для самостоятельной работы: Напишите  программу,  которая  по  двум  данным  натуральным  числам a и b,  подсчитывает  количество чётных натуральных чисел на отрезке [a, b] (включая  концы отрезка). Программа  получает  на  вход  два  натуральных  числа a и b,  при  этом  гарантируется,  что  1 ≤ a ≤ b ≤ 30000.  Проверять  входные  данные на корректность не нужно. Программа  должна  вывести  одно  число:  количество  чётных  чисел на отрезке [a, b]. Пример работы программы: Входные  данные Выходные  данные 10 6

Для самостоятельной работы: Напишите программу, которая в последовательности натуральных  чисел  находит  среднее  арифметическое  чисел,  кратных  4,  или  сообщает,  что  таких  чисел  нет  (выводит NO).  Программа  получает  на  вход  натуральные  числа,  количество  введённых    заканчивается  чисел  неизвестно,  последовательность  чисел  числом  0  ­   признак  окончания  ввода,    не  входит  в последовательность).  Количество чисел не превышает 100.  Введённые числа не превышают 300. Программа  должна  вывести  среднее  арифметическое  чисел,  кратных  4  или вывести «NO», если таких чисел  нет. Входные  данные (0  8 120 64 16 0 Выходные  данные 52.0

которая  в  программу,  Для самостоятельной работы: Напишите  последовательности  натуральных чисел определяет количество чисел, кратных 3 и  оканчивающихся  на  4.  Программа  получает  на  вход  количество чисел в последовательности, а затем сами числа. Количество  чисел  не  превышает  1000.  Введённые  числа  по  модулю не превышают 30 000. Программа  должна  вывести  одно  число:  количество  чисел,  кратных 3 и оканчивающихся на 4. Пример работы программы: Входные  данные Выходные  данные 2 3 24 25

в  последовательности,  а  затем  сами  чисел  программу,  которая  определяет  в  минимальное  Для самостоятельной работы: последовательности  Напишите  число,  натуральных  оканчивающееся на 2. Программа получает на вход количество  чисел  числа.  В последовательности  всегда  имеется  число,  оканчивающееся  на 2. Количество  чисел  не  превышает  1000.  Введённые  числа  по  модулю не превышают 30 000. Программа  должна  вывести  одно  число:  минимальное  число,  оканчивающееся на 2. Пример работы программы: 3 22 12 Входные  данные Выходные  данные 12

которая  в  программу,  Для самостоятельной работы: Напишите  последовательности  натуральных чисел определяет сумму чисел, оканчивающихся  на  5.  Программа  получает  на  вход  количество  чисел  в  последовательности, а затем сами числа.  В последовательности всегда имеется число, оканчивающееся  на 5. Количество  чисел  не  превышает  100.  Введённые  числа  по  модулю не превышают 300. Программа  должна  вывести  одно  число:  сумму  чисел,  оканчивающихся на 5. Пример работы программы: 3 15 25 Входные  данные Выходные  данные 40

Источники: заданий  по  информатике  • Открытый  банк  ФИПИ http://opengia.ru/subjects/informatics­9/topics/1 • Демоверсии    ОГЭ    и  ГИА  по  информатике  прошлых лет http://www.fipi.ru/oge­i­gve­9/demoversii­specifik acii­kodifikatory • Картинки:  http://clipart­library.com http://anatoliynikulininfo.ru,