Составить программу вычисления произведения m членов арифметической прогрессии, если известны значения первого члена a и разности арифметической прогрессии h, где m=50, a1=2.14, h=1.13.
Введем обозначения: A - член арифметической прогрессии a; H- разность арифметической прогрессии h; M - количество членов арифметической прогрессии m; Р - произведение членов арифметической прогрессии; I - переменная цикла. Исходными данными для решения задачи являются: первый член арифметической прогрессии - переменная A; разность арифметической прогрессии - константа H; количество членов арифметической прогрессии - переменная M.
PROGRAM PRIM2;
{раздел описания констант}
CONST
H=1.13;
{раздел описания переменных}
VAR
I, {параметр цикла}
M:INTEGER; {количество членов прогрессии}
A, {член прогрессии}
P:REAL; {произведение членов прогрессии}
BEGIN
WRITELN('Введите M=20, A=2.14');
READLN(M,A);
I:=0;
P:=1.0;
WHILE I<=M DO {начало цикла}
BEGIN
I:=I+1;
P:=P*A;
A:=A+H;
END; {конец цикла}
WRITELN(' ':20,'Произведение P=',P);
END.
Результат выполнения программы:
Введите M=20, A=2.14
20 2.14
Произведение P=1.095992E+22
Пояснение к программе. Операторы вычисления переменных A, P и I организованы в составной оператор и вместе с оператором цикла WHILE образуют тело цикла. Вычисление этих переменных повторяется, пока выполняется условие I<=M. В противном случае управление из тела цикла передается на оператор вывода WRITELN и программа заканчивает работу.