Паскаль — Цикл WHILE


Слайды и текст этой презентации

Слайд №1
Презентация
к уроку информатики в 9 классе
на тему
«Паскаль. Цикл while»
Автор учитель математики,
информатики Иванова
Елена Васильевна
г.Новочебоксарск Чувашская Республика
see69@rambler.ru
www.sosh5-nowch.edu.cap.ru

Слайд №2
Программированиециклов.Цикл while.
11.06.2014
Слайд №3
Цикл – это многократно выполняемая последовательность операторов (команд).

WHILE … DO… REPEAT … UNTIL … FOR … TO /
DOWNTO … DO …

Цикл с параметром (FOR … DO …) является частным случаем цикла с предусловием.
__________ _________ _____ ______

Слайд №4
3. Цикл
с параметром
1. Цикл
с предусловием (пока)
да
нет
WHILE x<10 DO s:=s+x;
2. Цикл
с постусловием (до)
да
нет
REPEAT n:=n+1 UNTIL f<9;
Циклические операторы на Паскале
!
Оператор после do
повторяется до тех пор,
пока логич. условие
истинно
Слайд №5
Помните
Цикл с предусловием (WHILE . . . DO . . .) многократно выполняет одни и те же действия при истинности условия, которое изменяется обычно внутри цикла. Истинность условия проверяется перед выполнением операторов. Таким образом, если условие с самого начала оказалось ложным, то операторы тела цикла не будут выполнены ни разу.

Если в цикле необходимо выполнить несколько простых операторов, они объединяются после служебного слова DO в составной оператор операторными скобками BEGIN . . . END (см. задачу 1).

Слайд №6
Цикл с предусловием, цикл «пока».
Задача 1
Вычислить сумму ряда чисел 2+4+6+…+1000.
Program sum;
var a, s: integer;
Begin
writeln (‘ вычисление суммы ряда’);
a:=0; s:=0;
while a<1000 do
begin
a:=a+2; s:=s+a
end;
writeln (‘сумма ряда равна s=‘, s);
end.
Слайд №7
Дом. задание (запишите в тетрадь)
Найти сумму всех натуральных чисел от 1 до n.

Допол. Вычислить сумму ряда чисел

Слайд №8
Задача 2 (самостоятельно на компьютерах)
Вычислить сумму ряда чисел
Program sum;
var a, s: integer;
Begin
writeln (‘ вычисление суммы ряда’);
a:=0; s:=0;
while a<600 do
begin
a:=a+1; s:=s+1/a
end;
writeln (‘сумма ряда равна s=‘, s);
end.
5,97
Слайд №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.
Слайд №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.
Слайд №11
Program sum;
var a, s: real;
Begin
writeln (‘ вычисление суммы ряда’);
a:=0; s:=0;
while a<1000 do
begin
a:=a+2; s:=s+a
end;
writeln (‘сумма ряда равна s=‘, s);
end.

Для обсуждения
Слайд №12
Источники:
Семакин и др. Информатика Базовый курс
Карасёв П.Н. Информатика (программирование)
Л.А.Залогова и др. «Информатика. Задачник-практикум»
ресурсы сети Интернет http://school-collection.edu.ru