Урок Программирование циклических алгоритмов
презентация к уроку по информатике и икт (8 класс)

Слайд 1

Начала программирования Программирование циклических алгоритмов. Программирование циклов с заданным числом повторений

Слайд 2

Алгоритм чтения книги : о ткрыть книгу; 50 раз повторить: п рочесть 2 страницы, п еревернуть страницу; з акрыть книгу.

Слайд 3

Цикл с заданным числом повторений (с параметром) Организация цикла с параметром: у казывается параметр; у казывается начальное и конечное значение параметра, а также шаг его изменения; п ри каждом исполнении тела цикла параметр изменяется на значение шага; ц икл выполняется пока параметр не станет больше (меньше) конечного значения.

Слайд 4

Цикл с заданным числом повторений (с параметром) Цикл по i от 1 до n , шаг 1 Тело цикла

Слайд 5

Запись цикла с параметром на языке Pascal for t o downto < начальное значение > < < конечное значение > < начальное значение > > < конечное значение > b egin < оператор 1 > ; < оператор 2 > ; … e nd ; < параметр > := < начальное значение > < конечное значение > do

Слайд 6

Задача Написать программу, которая возводит число k в целую положительную степень n . k n

Слайд 7

Блок-схема алгоритма Начало r Конец k , n r :=1 Цикл по i от 1 до n r :=r*k

Слайд 8

Написание программы program stepen ; var n , i: byte ; k , r: real ; begin writeln ( 'Программа вычисления значения k^n .' ); write ( 'k=' ); readln (k); write ( 'n=' ); readln (n); r :=1; for i:=1 to n do r :=r*k; write ( ' k^n =' , r); end . Исходный код программы

Слайд 9

Вложенные циклы f or i:=1 to n do begin < оператор 1 > ; for j:=i+1 to n+1 do < оператор 2 > ; … e nd ; Вложенный цикл

Слайд 10

15

Слайд 11

Задача Гаусса Однажды учитель дал задачу: найти сумму всех целых чисел от единицы до ста. По заведенному порядку аспидные доски с решением задач складывались на середине стола стопкой, а потом стопка переворачивалась, и учитель проверял задания. Едва только учитель кончил диктовать, как послышался голос Гаусса: — А я уже решил! При этом свою доску с решением он положил на середину стола. Долго решали ученики задачу. Тем временам учитель прохаживался между партами и не без ехидства сделал Гауссу замечание: — Карл, ты, наверное, ошибся! Нельзя в столь короткое время решить столь трудную задачу. Уверенный в правильности своего решения, Гаусс смело ответил учителю: — Извините, господин учитель! Я правильно решил задачу. — Посмотрим, насколько правильно. А если неправильно? — И он угрожающе хлопнул хлыстом по своей ноге... Каково же было изумление учителя, когда при проверке оказалось, что Гаусс решил задачу совершенно правильно, причем само решение отличалось чрезвычайной простотой и остроумием. — Карл, расскажи классу, как ты решил задачу,—обратился к нему учитель. Решить задачу Гаусса, используя циклический алгоритм.

Слайд 12

Блок-схема алгоритма Начало s Конец n:=100 Цикл по i от 1 до n s:=s+i s:=0

Слайд 13

Program gauss_summa ; var i,s,n:integer ; BEGIN n:=100; s:=0; for i:= 1 to n do s:= s+i; writeln ('S= ',s); readln END.

Слайд 14

Начало Руки на пояс i =1,2 присядь встань i =1,2 Наклонись влево Наклонись вправо Ты парень? Руки вперед Руки вверх да Нет Опусти руки Устал(а)? Конец Да Нет

Слайд 15

Д.З. №199, 200, 201, 202

Слайд 16

Практическое задание. Написать программу, которая 10 раз выводит на экран Ваши имя и фамилию.

Слайд 17

Program а 1; Var i:integer; Begin For i:=1 to 10 do Writeln (‘ Иванов Иван ’); Readln ; End.

Слайд 18

Написать программу, которая выводит таблицу квадратов первых 10 целых положительных чисел.

Слайд 19

Program a2; Var a:integer; Begin For a:=1 to 10 do Writeln (a,’ ‘, sqr (a)); Readln ; End.