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