Что такое findslide.org?

FindSlide.org - это сайт презентаций, докладов, шаблонов в формате PowerPoint.


Для правообладателей

Обратная связь

Email: Нажмите что бы посмотреть 

Яндекс.Метрика

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

Программирование циклов. Цикл while.*
Презентация к уроку информатики в 9 классена тему«Паскаль. Цикл while»Автор учитель математики,информатики ИвановаЕлена Васильевнаг.Новочебоксарск Чувашская Республикаsee69@rambler.ruwww.sosh5-nowch.edu.cap.ru Программирование циклов. Цикл while.* Цикл – это многократно выполняемая  последовательность операторов (команд). WHILE ... DO… 3. Циклс параметром1. Цикл с предусловием (пока)данетWHILE x Помните Цикл с предусловием (WHILE . . . DO . . .) Цикл с предусловием, цикл «пока».Задача 1Вычислить сумму ряда чисел  2+4+6+…+1000.Program sum; Дом. задание (запишите в тетрадь)Найти сумму всех натуральных чисел от 1 до Задача 2 (самостоятельно на компьютерах)Вычислить сумму ряда чисел  Program sum; Решение задачи из дом. заданияProgram sum;   var Begin Решение дополнительной задачи Program sum;   var Begin Program sum;   var a, s: real;Begin Источники:Семакин и др. Информатика Базовый курсКарасёв П.Н. Информатика (программирование) Л.А.Залогова и др.
Слайды презентации

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

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

Слайд 3 Цикл – это многократно выполняемая последовательность операторов

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

(команд).



WHILE ... DO… REPEAT ... UNTIL

… FOR ... TO /
DOWNTO ... DO …

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

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


Слайд 4
3. Цикл
с параметром




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

да
нет


WHILE x

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

DO s:=s+x;

2. Цикл
с постусловием (до)

да
нет


REPEAT n:=n+1 UNTIL f



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

!

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


Слайд 5 Помните
Цикл с предусловием (WHILE . . .

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

DO . . .) многократно выполняет одни и те

же действия при истинности условия, которое изменяется обычно внутри цикла. Истинность условия проверяется перед выполнением операторов. Таким образом, если условие с самого начала оказалось ложным, то операторы тела цикла не будут выполнены ни разу.

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

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

Цикл с предусловием, цикл «пока».Задача 1Вычислить сумму ряда чисел 2+4+6+…+1000.Program sum;

чисел 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

чисел от 1 до n.

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



Слайд 8 Задача 2 (самостоятельно на компьютерах)
Вычислить сумму ряда чисел

Задача 2 (самостоятельно на компьютерах)Вычислить сумму ряда чисел Program sum;


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;

Решение задачи из дом. заданияProgram sum;  var Begin

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

Решение дополнительной задачи Program sum;  var Begin   writeln


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

Program sum;  var a, s: real;Begin   writeln (‘


writeln (‘ вычисление суммы

ряда’);
a:=0; s:=0;
while a<1000 do
begin
a:=a+2; s:=s+a
end;
writeln (‘сумма ряда равна s=‘, s);
end.

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


  • Имя файла: paskal-tsikl-while.pptx
  • Количество просмотров: 127
  • Количество скачиваний: 0