Презентация "Цикл с параметром на Pascal"

Цикл с параметром

Пример

Условие задачи

Вывести на экран целые чётные числа в диапазоне от 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