Счетный цикл, элементарные алгоритмы (Pascal)
материал для подготовки к егэ (гиа) по информатике и икт (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. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 4. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число — количество чисел, кратных 4. Для этого заводим целую переменную k ( k:=0 до входа в цикл), и в цикле увеличиваем ее значение на 1, если очередное число кратно 4. var n, i , k, a: integer; begin k:=0; readln (n); for i :=1 to n do begin readln (a); if (a mod 4 = 0) then k:=k+1; end; writeln (k); end. начало n i := 1 , n k:=k+1 k конец k:=0 a a mod 4=0 Таблица трассировки. Количество элементов n =3 i a k n До входа в цикл. 0 3 1 5 0 цикл 2 8 1 3 4 2

Слайд 5

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

Слайд 6

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