Россия, Омск
СДЕЛАЙТЕ СВОИ УРОКИ ЕЩЁ ЭФФЕКТИВНЕЕ, А ЖИЗНЬ СВОБОДНЕЕ
Благодаря готовым учебным материалам для работы в классе и дистанционно
Скидки до 50 % на комплекты
только до
Готовые ключевые этапы урока всегда будут у вас под рукой
Организационный момент
Проверка знаний
Объяснение материала
Закрепление изученного
Итоги урока
Была в сети 06.09.2025 09:26
Брух Таисия Викторовна
Учитель информатики
43 года
46 418
443 
Местоположение
Специализация
Циклы. Вложенные циклы
Категория:
Информатика
08.01.2023 13:50
Тема: «Циклы. Вложенные циклы»
Цель: Научиться программировать циклические алгоритмы.
Задачи:
- Рассказать о видах циклов.
- Дать понятие циклов «До», «Пока» и цикла с параметром.
- Воспитать аккуратность.
- Развить кругозор учащихся.
Ход урока.
1. Организационный момент.
2. Объяснение нового материала.
- Циклы. Вложенные циклы.
- Циклические алгоритмы
Естественный порядок выполнения операторов или строк программы, так или иначе, нарушается. Это так называемые разветвляющие алгоритмы. Типичной структурой разветвляющих алгоритмов, реализуемых на ЭВМ, является цикл.
Циклический алгоритм:
Пока условие
Начало цикла
Действие
Конец цикла.
Для организации цикла предусмотрены специальные операторы.
Существует три вида циклов: Цикл «Пока», цикл «До» и цикл с параметром.
Цикл «Пока» (с предусловием)
While <условие> do <оператор>;
While <условие> do
begin < операторы >;
end;
Пример: Вычислить у=х2 при х=2,4,6,8,10.
Program PR1;
var x,y: real;
begin
х:= 2;
While х<=10 do
begin
у:=х*х;
writeln(х:3,у:5);
х:=х+2;
end;
end.
Цикл «До» (с постусловием)
Repeat <операторы> until <условие>;
Program PR2;
var x,y: real;
begin
х:= 2;
Repeat
у:=х*х;
writeln(х:3,у:5);
х:=х+2;
until х>10;
end.
Цикл с параметром
Если шаг изменения управляющей переменной = 1
For i:= m1 to m2 do <оператор>;
Program PR3;
var a,b: real;
i: integer;
begin
for i:=1 to 4 do
begin
a:= a * i;
b:=2 * i+1;
writeln(a:3, b:3);
end;
end.
Если шаг изменения управляющей переменной = -1
For i:= m2 downto m1 do <оператор>;
Program PR4;
var a,b: real;
i: integer;
begin
for i:=4 downto 1 do
begin
a:= a * i;
b:=2 * i+1;
writeln(a:3, b:3);
end;
end.
4. Закрепление.
Пример 1: Дано несколько шаров. Вычислить объем каждого из шаров, а затем найти суммарный объем всех шаров. Известно, что радиус первого шара R, а радиус каждого последующего шара больше предыдущего на величину DR. Радиус последнего равен RK.
Обозначим объем каждого шара через V, а суммарный объем VМ. (
)
Просмотр содержимого документа
«Циклы. Вложенные циклы»
21-22 урок, 10 класс – теория
Цикл с параметром
Учитель: Брух Т.В.
Дата: ___________
Тема: «Циклы. Вложенные циклы»
Цель: Научиться программировать циклические алгоритмы.
Задачи:
Рассказать о видах циклов.
Дать понятие циклов «До», «Пока» и цикла с параметром.
Воспитать аккуратность.
Развить кругозор учащихся.
Ход урока.
1. Организационный момент.
2. Объяснение нового материала.
Циклы. Вложенные циклы.
Циклические алгоритмы
Естественный порядок выполнения операторов или строк программы, так или иначе, нарушается. Это так называемые разветвляющие алгоритмы. Типичной структурой разветвляющих алгоритмов, реализуемых на ЭВМ, является цикл.
Циклический алгоритм:
Пока условие
Начало цикла
Действие
Конец цикла.
Для организации цикла предусмотрены специальные операторы.
Существует три вида циклов: Цикл «Пока», цикл «До» и цикл с параметром.
Цикл «Пока» (с предусловием)
While do ;
While do
begin ;
end;
Пример: Вычислить у=х2 при х=2,4,6,8,10.
Program PR1;
var x,y: real;
begin
х:= 2;
While х
begin
у:=х*х;
writeln(х:3,у:5);
х:=х+2;
end;
end.
Цикл «До» (с постусловием)
Repeat until ;
Program PR2;
var x,y: real;
begin
х:= 2;
Repeat
у:=х*х;
writeln(х:3,у:5);
х:=х+2;
until х10;
end.
Цикл с параметром
Если шаг изменения управляющей переменной = 1
For i:= m1 to m2 do ;
Program PR3;
var a,b: real;
i: integer;
begin
for i:=1 to 4 do
begin
a:= a * i;
b:=2 * i+1;
writeln(a:3, b:3);
end;
end.
Если шаг изменения управляющей переменной = -1
For i:= m2 downto m1 do ;
Program PR4;
var a,b: real;
i: integer;
begin
for i:=4 downto 1 do
begin
a:= a * i;
b:=2 * i+1;
writeln(a:3, b:3);
end;
end.
4. Закрепление.
Пример 1: Дано несколько шаров. Вычислить объем каждого из шаров, а затем найти суммарный объем всех шаров. Известно, что радиус первого шара R, а радиус каждого последующего шара больше предыдущего на величину DR. Радиус последнего равен RK.
Обозначим объем каждого шара через V, а суммарный объем VМ. (
)
Program PR2;
const PI= 3.14;
var V, VM, R, RK, DR : real;
begin
writeln(‘введите значения R, RK, DR:’);
read(R, RK, DR);
VM:=0;
while R
begin
V:= 4 * PI * R * R * R / 3;
VM:= VM + V;
writeln (‘R=’, R:6:2, ’ ‘:5, ’V=’, V:7:3);
R:=R+DR;
end;
writeln(‘общий объем шаров VM=’ VM:8:3);
end.
Пример 2: Каждый будний день недели рыбак ходил ловить рыбу. Сколько он поймал рыб в среднем за день, если ежедневный улов был таким: 8, 7, 5, 9, 7, 9.
R – кол-во рыбы день
S – сумма всех дней
Program PR3;
Var i,n:integer;
R,S:real;
begin
R:=0;
writeln(‘Сколько дней рыбак ловил рыбу?’);
read (n);
for i:=1 to n do
begin
write (‘Сколько рыб он поймал за день?’);
read (R);
S:= S + R;
end;
S:=S/n;
writeln (‘S=’, S:5:1);
end.
5. Практическая работа
Задачи с презентации
6. Домашнего задания.
Составить программу вычисления произведения четных чисел от 1 до n (n - любое натуральное число).
Вебинар для учителей
Свидетельство об участии БЕСПЛАТНО!
