Презентация по информатике на тему Паскаль. Цикл while

Слайд 2

Программирование циклов. Цикл while. *

Программирование циклов. Цикл while.

*

Слайд 3

Цикл – это многократно выполняемая последовательность операторов (команд). WHILE ... DO…

Цикл – это многократно выполняемая последовательность операторов (команд).
WHILE ... DO…

REPEAT ... UNTIL … FOR ... TO /
DOWNTO ... DO …
Цикл с параметром (FOR … DO …) является частным случаем цикла с предусловием.

Циклические структуры языка Паскаль

Слайд 4

3. Цикл с параметром 1. Цикл с предусловием (пока) да нет

3. Цикл
с параметром

1. Цикл
с предусловием (пока)

да

нет

WHILE x<10 DO s:=s+x;

2. Цикл


с постусловием (до)

да

нет

REPEAT n:=n+1 UNTIL f<9;

Циклические операторы на Паскале

!

Оператор после do
повторяется до тех пор,
пока логич. условие
истинно

Слайд 5

Помните Цикл с предусловием (WHILE . . . DO . .

Помните

Цикл с предусловием (WHILE . . . DO . .

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

Цикл с предусловием, цикл «пока». Задача 1 Вычислить сумму ряда чисел

Цикл с предусловием, цикл «пока».

Задача 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;

Задача 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 (‘

Решение задачи из дом. задания

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 (

Решение дополнительной задачи

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 (‘ вычисление суммы

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.

Для обсуждения