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

Цикл с постусловием

Пример

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

Вывести на экран целые чётные числа в диапазоне от M до N в одной строке через пробел. Границы диапазона M и N задаются с клавиатуры.

N, то заканчиваем выполнение цикла и идём на следующий блок (конец) i:=i+1 Да iN конец Нет " width="640"

начало

Блок-схема

“ Введите начало диапазона (M)”

Выводим надпись

Организуем ввод числа в переменную M

ввод M

Выводим надпись

“ Введите конец диапазона (N)”

Организуем ввод числа в переменную N

ввод N

Присваиваем переменной i значение нижней границы диапазона (M)

Входим внутрь цикла и проверяем значение переменной i на чётность (остаток от деления на 2 равен 0)

Если значение переменной i чётное, то выводим его вместе с пробелом на экран

Иначе пропускаем вывод и идём на выполнение следующего блока

Иначе переходим на выполнение первого блока цикла

i:=M

Да

mod(i,2)=0

Увеличиваем значение переменной i на 1

Сравниваем значение переменной i с верхней границей диапазона

i, “ “

Нет

Если iN, то заканчиваем выполнение цикла и идём на следующий блок (конец)

i:=i+1

Да

iN

конец

Нет

5 Until ie; end. Введите начало диапазона (M) 1 Введите конец диапазона (N) 5 " width="640"

Программа

i

-

b

e

-

-

var i, b ,e: integer;

begin

WriteLn(‘Введите начало диапазона (M));

1

ReadLn(b);

WriteLn(‘Введите конец диапазона (N)’);

5

ReadLn(e);

1

i:=b;

Repeat

if i mod 2 = 0 then

1=0

Write(i, ‘ ‘);

2

i:=i+1;

25

Until ie;

end.

Введите начало диапазона (M)

1

Введите конец диапазона (N)

5

5 Until ie; end. Введите начало диапазона (M) 1 Введите конец диапазона (N) 5 2 " width="640"

Программа

var i, b ,e: integer;

begin

WriteLn(‘Введите начало диапазона (M));

ReadLn(b);

WriteLn(‘Введите конец диапазона (N)’);

i

b

e

2

1

5

ReadLn(e);

i:=b;

Repeat

if i mod 2 = 0 then

√

0=0

Write(i, ‘ ‘);

3

i:=i+1;

35

Until ie;

end.

Введите начало диапазона (M)

1

Введите конец диапазона (N)

5

2

5 Until ie; end. Введите начало диапазона (M) 1 Введите конец диапазона (N) 5 2 " width="640"

Программа

var i, b ,e: integer;

begin

WriteLn(‘Введите начало диапазона (M));

ReadLn(b);

WriteLn(‘Введите конец диапазона (N)’);

i

b

e

3

1

5

ReadLn(e);

i:=b;

Repeat

if i mod 2 = 0 then

1=0

Write(i, ‘ ‘);

4

i:=i+1;

45

Until ie;

end.

Введите начало диапазона (M)

1

Введите конец диапазона (N)

5

2

5 Until ie; end. Введите начало диапазона (M) 1 Введите конец диапазона (N) 5 2 4 " width="640"

Программа

var i, b ,e: integer;

begin

WriteLn(‘Введите начало диапазона (M));

ReadLn(b);

WriteLn(‘Введите конец диапазона (N)’);

i

b

e

4

1

5

ReadLn(e);

i:=b;

Repeat

if i mod 2 = 0 then

√

0=0

Write(i, ‘ ‘);

5

i:=i+1;

55

Until ie;

end.

Введите начало диапазона (M)

1

Введите конец диапазона (N)

5

2

4

5 Until ie; end. Введите начало диапазона (M) 1 Введите конец диапазона (N) 5 2 4 " width="640"

Программа

var i, b ,e: integer;

begin

WriteLn(‘Введите начало диапазона (M));

ReadLn(b);

WriteLn(‘Введите конец диапазона (N)’);

i

b

5

e

1

5

ReadLn(e);

i:=b;

Repeat

if i mod 2 = 0 then

1=0

Write(i, ‘ ‘);

6

i:=i+1;

√

65

Until ie;

end.

Введите начало диапазона (M)

1

Введите конец диапазона (N)

5

2

4