Операторы цикла языка «Pascal». Изучение операторов цикла языка «Pascal». Реализовать задачу циклами for, while и repeat

ЛАБОРАТОРНАЯ РАБОТА №1

Тема: Операторы цикла языка «Pascal».

Цель работы: Изучение операторов цикла языка «Pascal». Реализовать задачу циклами for, while и repeat.

Постановка задачи: Найти сумму четных чисел от m до n.

Блок-схема программы:

Рисунок 1 – Блок-схема программы

Контрольный пример:

Возьмем интервал (a,b) равный (5,20). Нам нужно суммировать все чётные числа из этого интервала, в данном случае (5,20]. Вычислим результат. Сумма равна 6+8+10+12+14+16+18+20=104. Возьмем интервал равный (4,3). 4>3, что не соответствует условию.

Результаты работы программы:

Рисунок 2 – Результат работы программы с использованием цикла for

Рисунок 3 – Результат работы программы с использованием цикла while

Рисунок 4 – Результат работы программы с использованием цикла repeat

 Текст программы с оператором цикла for:

program summ_even;

var

a, b, i, summ: Integer;

begin

write('Введите интервал (a,b), так чтобы a<b: ');

readln(a, b);

summ := 0;

for i := a to b do

begin

if (i mod 2 = 0) then

summ := summ + i;

end;

{end for}

writeln('Сумма чётных чисел от ', a, ' до ', b, ' равна: ', summ);

end.

 Текст программы с оператором цикла while:

program summ_even;

var

a, b, i, summ: Integer;

begin

write('Введите интервал (a,b), так чтобы a<b: ');

readln(a, b);

summ := 0;

i := a;

while i <= b do

begin

if (i mod 2 = 0) then

summ := summ + i;

inc(i);

end;

{end while}

writeln('Сумма чётных чисел от ', a, ' до ', b, ' равна: ', summ);

end.

 Текст программы с оператором цикла repeat:

program summ_even;

var

a, b, i, summ: Integer;

begin

write('Введите интервал (a,b), так чтобы a<b: ');

readln(a, b);

summ := 0;

i := a;

repeat

if a > b then break;

if (i mod 2 = 0) then

summ := summ + i;

inc(i);

until i > b;

writeln('Сумма чётных чисел от ', a, ' до ', b, ' равна: ', summ);

end.