Презентация, доклад по информатике и ИКТ по теме Программирование циклов

Выполнила Митяева Евгения Григорьевна
Учитель Информатики и ИКТ первой квалификационной категории МОБУ «Галёнковской средней общеобразовательной школы Октябрьского района» Приморского края

var s, a, b: integer
begin     
Writeln(‘введите два числа’);
Readln(a, b);       
s =a* b;         
writeln(s);
end

Program pl1;

;

:

.

Найди ошибку в записи программы на Паскале:

конечный
бесконечный
нулевой

Работа в парах

Построение графика функции
по точкам
на заданном интервале

Построение графика функции
по точкам
на заданном интервале

график не построен

Поиск информации
в сети Интернет

Поиск информации
в сети Интернет

нужная информация найдена?

подготовить тетрадь, учебник, словарь

перевести предложение

подготовить тетрадь, учебник, словарь

перевести предложение

пока текст не переведен

с определённым числом повторений (цикл с параметром, или цикл со счетчиком, или цикл «Для») - FOR

с неопределенным числом повторений; цикл с предусловием (цикл «Пока»)- WHILE

с неопределенным числом повторений; цикл с постусловием (цикл «До»)- REPEAT

Цикл с неопределенным числом повторений или цикл с предусловием (цикл «Пока»)

Общий вид оператора:
while <условие> do <оператор>
Здесь:
<условие> - логическое выражение; пока оно истинно, выполняется тело цикла;
<оператор> - простой или составной оператор, с помощью которого записано тело цикла.

да

нет

S:= 0
a:= 1

Program summa;
Var a, S , N: integer;
Begin
write (‘N=‘);
readln (N);
a:=1; S:=0;
While a<=N do
begin
S:=S+a;
a:=a+1;
end;
Writeln(‘Сумма ’,N,’ чисел равна ’,S);
end.

Цикл с постусловием (цикл «До»)

Общий вид оператора:
repeat <оператор> until <условие>
Здесь:
<условие> - логическое выражение; пока оно истинно, выполняется тело цикла;
<оператор> - простой или составной оператор, с помощью которого записано тело цикла.

Цикл с постусловием (цикл «До»)

a>N

S:=S+а
a:=a+1

да

нет

S:= 0
a:= 1

Структура цикла
For i:=a to b do
begin
<тело цикла>
end;

Цикл с параметром (цикл «Для»)

var s, n: integer; begin     
s := 47;     
n := 1;     
while s > 0 do     
begin         
s := s - 9;         
n := n + 4     
end;     
writeln(n)
end.

2.
алг
нач
цел s, n
s := 42
n := 1
нц пока s > 0     
s := s — 5     
n := n + 3
кц
вывод n
кон

1.
var n, s: integer; begin    
 n := 1;    
 s := 0;     
while n <= 300 do     
begin         
s := s + 30;         
n := n * 5     
end;     
writeln(s)
end.

2.
var n, s: integer; begin    
 n := 1;    
 s := 42;     
while s > 0 do     
begin         
s := s - 5;         
n := n + 3     
end;     
writeln(s)
end.

Число повторений
цикла неизвестно

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

Резерв заданий: