ELSE begin

Writeln('Ошибка ввода данных. Введите число от 1 до 9'); goto m1; end;

end;

writeln (a, ' в степени ', b, ' равно ', c);

end.

Блок схема:

Лабораторная работа № 8

«Циклические программы»

1. Цель лабораторной работы: закрепить практические навыки работы с системой PascaABC, научиться правильно использовать различные операторы циклов; научиться составлять программы решения задач с использование циклических структур.

Оператор For

Этот оператор применяется, если требуется выполнить тело цикла заранее заданное количество раз. Параметр порядкового типа на каждом проходе цикла автоматически либо увеличивается, либо уменьшается на единицу.

Общий вид оператора:

· For – < параметр цикла>: = < начальное значение> to < конечное значение> do оператор; {тело цикла}.

Этот оператор применяется, если начальное значение < конечного значения;

· For – параметр цикла: = < начальное значение> downto < конечное значение> do оператор;

Правила применения оператора цикла For

1. Тело цикла – всегда один оператор. Если нужно, чтобы тело цикла состояло из нескольких операторов, то их объединяют в один составной оператор с помощью операторных скобок begin, end.

2. Начальное и конечное значения параметра цикла в общем случае являются выражениями. Тип этих выражений и тип параметра цикла должны совпадать. Здесь допускается применение любых типов, которые упорядочены с каким-либо фиксированным шагом (порядковые типы), это может быть любой скалярный тип, кроме вещественного, т.е. байтовый, целый, символьный, перечисляемый, интервальный, булевский. На практике чаще всего применяют целочисленный тип.

3. В теле цикла параметр цикла не должен изменяться.

4. Нельзя с помощью оператора перехода goto войти в тело цикла, минуя заголовок.

5. Выйти из тела цикла в программу можно по if..goto, не дожидаясь полного перебора параметров цикла.

Вариант 1

1. Написать программу, которая вычисляет сумму первых n целых нечетных положительных целых чисел. Количество суммируемых чисел должно вводиться во время работы программы. Ниже представлен рекомендуемый вид экрана во время работы программы.

Вычисление суммы положительных чисел.

Введите количество суммируемых чисел —> 20

Сумма первых 20 положительных чисел равна 400.

Тело программы:

program summ;

Var

sum, k, i, a: integer;

Begin

Writeln('Введите количество суммируемых чисел ');

readln(k);

sum: =0;

for i: =1 to k*2 do

Begin

if i mod 2> 0 then

sum: = sum+i;

end;

writeln('сумма первых ', k, ' целых нечетных положительных чисел равна: ', sum);

end.

Блок схема: