X
Код презентации скопируйте его
Паскаль. Цикл WHILE
Скачать эту презентацию
Презентация на тему Паскаль. Цикл WHILE
Скачать эту презентациюCлайд 1
Презентация к уроку информатики в 9 классе на тему «Паскаль. Цикл while» Автор учитель математики, информатики Иванова Елена Васильевна г.Новочебоксарск Чувашская Республика see69@rambler.ru www.sosh5-nowch.edu.cap.ru
Cлайд 2
Программирование циклов. Цикл while. *
Cлайд 3
Цикл – это многократно выполняемая последовательность операторов (команд). WHILE ... DO… REPEAT ... UNTIL … FOR ... TO / DOWNTO ... DO … Цикл с параметром (FOR … DO …) является частным случаем цикла с предусловием.
Cлайд 4
3. Цикл с параметром 1. Цикл с предусловием (пока) да нет WHILE x
Cлайд 5
Помните Цикл с предусловием (WHILE . . . DO . . .) многократно выполняет одни и те же действия при истинности условия, которое изменяется обычно внутри цикла. Истинность условия проверяется перед выполнением операторов. Таким образом, если условие с самого начала оказалось ложным, то операторы тела цикла не будут выполнены ни разу. Если в цикле необходимо выполнить несколько простых операторов, они объединяются после служебного слова DO в составной оператор операторными скобками BEGIN . . . END (см. задачу 1).
Cлайд 6
Цикл с предусловием, цикл «пока». Задача 1 Вычислить сумму ряда чисел 2+4+6+…+1000. Program sum; var a, s: integer; Begin writeln (‘ вычисление суммы ряда’); a:=0; s:=0; while a
Cлайд 7
Дом. задание (запишите в тетрадь) Найти сумму всех натуральных чисел от 1 до n. Допол. Вычислить сумму ряда чисел
Cлайд 8
Задача 2 (самостоятельно на компьютерах) Вычислить сумму ряда чисел Program sum; var a, s: integer; Begin writeln (‘ вычисление суммы ряда’); a:=0; s:=0; while a
Cлайд 9
Решение задачи из дом. задания Program sum; var Begin writeln (‘ readln ( a:= 1 ; s:=0; while a< n do begin a:=a+1; s:=s+а; end; writeln (‘сумма’ , n, ‘натуральных чисел равна s=‘, s); end.
Cлайд 10
Решение дополнительной задачи Program sum; var Begin writeln (‘ readln ( a:= 1 ; s:=0; s1:=0; s2:=0; while a< n do begin a:=a+1; if a mod 2=0 do s1:=s1+1/a else s2:=s2-1/a end; s:=s1+s2; end; writeln (‘сумма ряда равна s=‘, s); end.
Cлайд 11
Program sum; var a, s: real; Begin writeln (‘ вычисление суммы ряда’); a:=0; s:=0; while a
Cлайд 12
Источники: Семакин и др. Информатика Базовый курс Карасёв П.Н. Информатика (программирование) Л.А.Залогова и др. «Информатика. Задачник-практикум» ресурсы сети Интернет http://school-collection.edu.ru
