СДЕЛАЙТЕ СВОИ УРОКИ ЕЩЁ ЭФФЕКТИВНЕЕ, А ЖИЗНЬ СВОБОДНЕЕ

Благодаря готовым учебным материалам для работы в классе и дистанционно

Скидки до 50 % на комплекты
только до 20.07.2025

Готовые ключевые этапы урока всегда будут у вас под рукой

Организационный момент

Проверка знаний

Объяснение материала

Закрепление изученного

Итоги урока

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

Категория: Информатика

Нажмите, чтобы узнать подробности

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

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

Цикл с предусловием Пример

Цикл с предусловием

Пример

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

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

Вывести на экран целые чётные числа в диапазоне от 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 √ 11=0 begin if i mod 2 = 0 then Write(i, ‘ ‘); 2 i:=i+1; end; Введите начало диапазона (M) end. 1 Введите конец диапазона (N) 5

Программа

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; √ 2While 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

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

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

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 5begin 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

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 6begin if i mod 2 = 0 then Write(i, ‘ ‘); 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


Скачать

Рекомендуем курсы ПК и ППК для учителей

13.05.2019 12:46
Власовец Надежда Витальевна @vlasnadezhda
Спасибо большое!

Вебинар для учителей

Свидетельство об участии БЕСПЛАТНО!