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

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

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

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

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

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

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

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

Итоги урока

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

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

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

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

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

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

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

Пример

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

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

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

Программа

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 2if 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

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

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 4if 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

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

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); 66 for i:=b to e do if i mod 2 = 0 then 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


Скачать

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

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

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

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