Цикл пока, элементарные алгоритмы
материал для подготовки к егэ (гиа) по информатике и икт (8, 9 класс)

Слайд 1

Слайд 2

Способы записи алгоритмов с помощью блок-схем начало конец a,b Блок ввода информации a<>0 нет да Блок проверки условия вывод max Блок вывода информации s=a*b/2 Простое действие , операция присваивания r eadln ( a,b ); writeln ( a,b ); if (a<>b) then < действие1 > else < действие 2 >; i =a, b Тело цикла, повторяющиеся операторы f or i :=a to b do begin Тело цикла, повторяющиеся операторы e nd;

Слайд 3

Условия поиска элементов последовательности Четные элементы: a mod 2 = 0 , нечетные: a mod 2 = 1 ; Двузначные числа: (a > 9 ) and ( a < 100 ) ; Число кратно 5 : a mod 5 = 0 ; Число оканчивается на 3: a mod 10 = 3 ; Число оканчивается на 2 и кратно 4: (a mod 10 = 2) and (a mod 4 = 0) Поиск количества или суммы элементов, отвечающих условию; м инимального или максимального элементов. В последовательности из n элементов найти количество элементов, кратных 3. Д ля этого заводим целую переменную k ( k:=0 до входа в цикл), и в цикле увеличиваем ее значение на 1, если очередное число кратно 3. В последовательности из n элементов найти сумму элементов, оканчивающихся на 5. Для этого заводим целую переменную sum ( sum:=0 до входа в цикл), и в цикле прибавляем к ней очередное число, если оно оканчивается на 5. Для поиска максимального элемента заводим переменную max (max:= минимальному элементу последовательности до входа в цикл), в цикле сравниваем значение max с очередным элементом. Если он больше max, то max:=a , иначе остается старое значение.

Слайд 4

Программа поиска количества элементов последовательности, удовлетворяющих условию Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 4. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). В последовательности всегда имеется число, кратное 4. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число — количество чисел, кратных 4. Для этого заводим целую переменную k ( k:=0 до входа в цикл), и в цикле увеличиваем ее значение на 1, если очередное число кратно 4. var k, a: integer; begin k:=0; readln ( a ); w hile (a<>0) do begin if (a mod 4 = 0) then k:=k+1; readln (a); end; writeln (k); end. начало a k:=k+1 k конец k:=0 a mod 4=0 a < > =0 a да нет Таблица трассировки. Цикл прекращается, когда вводится 0. a k 1 0 4 1 8 2 0 2

Слайд 5

Программа поиска суммы элементов последовательности, удовлетворяющих условию Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 6. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 В последовательности всегда имеется число, кратное 6. Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число — сумму чисел, кратных 6. Для этого заводим целую переменную sum ( sum:=0 до входа в цикл), и в цикле прибавляем к sum очередное введенное число, если оно кратно 6 . var n, i , k, a: integer; begin sum:=0; readln (a); while (a<>0) do begin if (a mod 6 = 0) then sum:= sum+a ; readln (a); end; writeln (sum); end. начало a sum:= sum+a k конец k:=0 a mod 6 =0 a < > =0 a да нет Таблица трассировки. Цикл прекращается, когда вводится 0. a sum 1 0 4 4 8 12 0 12

Слайд 6

Программа поиска максимального элемента последовательности, удовлетворяющего условию Напишите программу, которая в последовательности натуральных чисел определяет максимальное число, кратное 5. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 В последовательности всегда имеется число, кратное 5. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число — максимальное число, кратное 5. Для этого заводим целую переменную max ( max:=0 до входа в цикл), в цикле проверяем очередное введенное число, если оно кратно 5 и больше max, записываем его в переменную max . var i , n, a, max: integer; begin max:=0; readln (a); w hile (a <>0) do begin if (a mod 5 = 0) and ( a>max) then max :=a ; readln (a); end ; writeln (max); End. Если надо найти минимальное число в последовательности, то в min надо положить верхнюю границу интервала, т.е. min:=30000 и изменить условие ( amax) a < > 0 a да нет Таблица трассировки. Цикл прекращается, когда вводится 0. a max 1 0 15 15 5 15 0 15