Пример использования оператора цикла WHILE

Составить программу вычисления произведения 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 и программа заканчивает работу.