Цикл с параметром
Пример
Условие задачи
Вывести на экран целые чётные числа в диапазоне от M до N в одной строке через пробел. Границы диапазона M и N задаются с клавиатуры.
N, то заканчиваем выполнение цикла и идём на следующий блок (конец) ввод N Сравниваем значение переменной i с верхней границей диапазона При первом входе в цикл присваиваем переменной i значение нижней границы диапазона (M) Иначе пропускаем вывод и идём на выполнение следующего блока i:=M, N, 1 конец Да mod(i,2)=0 i, “ “ Нет " width="640"
начало
Блок-схема
“ Введите начало диапазона (M)”
Выводим надпись
Организуем ввод числа в переменную M
ввод M
Выводим надпись
“ Введите конец диапазона (N)”
Организуем ввод числа в переменную N
Иначе входим внутрь цикла и проверяем значение переменной i на чётность (остаток от деления на 2 равен 0)
Если значение переменной i не превышает значение верхней границы диапазона, то повторяем выполнение блоков цикла, иначе переходим на следующий блок (конец)
Возвращаемся в начало цикла и увеличиваем значение переменной i на величину шага (1)
Если значение переменной i чётное, то выводим его вместе с пробелом на экран
Если iN, то заканчиваем выполнение цикла и идём на следующий блок (конец)
ввод N
Сравниваем значение переменной i с верхней границей диапазона
При первом входе в цикл присваиваем переменной i значение нижней границы диапазона (M)
Иначе пропускаем вывод и идём на выполнение следующего блока
i:=M, N, 1
конец
Да
mod(i,2)=0
i, “ “
Нет
Программа
i
-
b
e
-
-
var i, b ,e: integer;
begin
WriteLn(‘Введите начало диапазона (M));
1
ReadLn(b);
WriteLn(‘Введите конец диапазона (N)’);
5
ReadLn(e);
for i:=b to e do
√
1
1
if i mod 2 = 0 then
1=0
Write(i, ‘ ‘);
end.
Введите начало диапазона (M)
1
Введите конец диапазона (N)
5
Программа
var i, b ,e: integer;
begin
WriteLn(‘Введите начало диапазона (M));
ReadLn(b);
WriteLn(‘Введите конец диапазона (N)’);
i
b
1
1
e
5
ReadLn(e);
√
for i:=b to e do
2
2
if i mod 2 = 0 then
0=0
√
Write(i, ‘ ‘);
end.
Введите начало диапазона (M)
1
Введите конец диапазона (N)
5
2
Программа
var i, b ,e: integer;
begin
WriteLn(‘Введите начало диапазона (M));
ReadLn(b);
WriteLn(‘Введите конец диапазона (N)’);
i
b
2
e
1
5
ReadLn(e);
3
√
for i:=b to e do
3
if i mod 2 = 0 then
1=0
Write(i, ‘ ‘);
end.
Введите начало диапазона (M)
1
Введите конец диапазона (N)
5
2
Программа
var i, b ,e: integer;
begin
WriteLn(‘Введите начало диапазона (M));
ReadLn(b);
WriteLn(‘Введите конец диапазона (N)’);
i
b
3
e
1
5
ReadLn(e);
for i:=b to e do
√
4
4
if i mod 2 = 0 then
√
0=0
Write(i, ‘ ‘);
end.
Введите начало диапазона (M)
1
Введите конец диапазона (N)
5
2
4
Программа
var i, b ,e: integer;
begin
WriteLn(‘Введите начало диапазона (M));
ReadLn(b);
WriteLn(‘Введите конец диапазона (N)’);
i
b
4
e
1
5
ReadLn(e);
√
for i:=b to e do
5
5
if i mod 2 = 0 then
1=0
Write(i, ‘ ‘);
end.
Введите начало диапазона (M)
1
Введите конец диапазона (N)
5
2
4
Программа
var i, b ,e: integer;
begin
WriteLn(‘Введите начало диапазона (M));
ReadLn(b);
WriteLn(‘Введите конец диапазона (N)’);
i
b
5
e
1
5
ReadLn(e);
6
6
for i:=b to e do
if i mod 2 = 0 then
Write(i, ‘ ‘);
end.
Введите начало диапазона (M)
1
Введите конец диапазона (N)
5
2
4
Видеоуроки по информатике 6 класс (к...
Основы алгоритмизации и...
Информатика 9 класс ФГОС
Электронная тетрадь по информатике 5...
Электронная тетрадь по информатике 7...
Информатика 11 класс (Беларусь)
Информатика 5 класс ФГОС
Информатика 10 класс ФГОС
© 2019, Золотов Валерий Олегович 806 16
Рекомендуем курсы ПК и ППК для учителей
Похожие файлы