Вычислить произведение - Turbo Pascal (29040)

Формулировка задачи:

Вычислить произведение С погрешностью e=0,1e-3 , при r=0,12

Решение задачи: «Вычислить произведение»

Листинг программы

uses
  SysUtils;
var
i,n: Integer;
P,Pp, e, r: Real;
begin
r:=0.12;
P:=1;  //Текущее значение 
Pp:=1;//Предыдущее значение
e:=1;
n:=0;
while e>0.001 do
  begin
    P:=P*(1+(4*Exp(ln(r)*2))/((Exp(Ln(2*n+1)*2))*Exp(Ln(pi)*3)));
    n:=n+1;
    e:=Abs((P-Pp)/P);//Определение точности
    Pp:=P;
  end;
Writeln(P);
Readln;
end.

Объяснение кода листинга программы

В начале кода используются необходимые библиотеки.
Переменные i, n, P, Pp, e, r объявлены как типы Integer, Real соответственно.
Переменная r инициализирована значением 0.12.
Переменные P и Pp инициализированы значением 1.
Переменная e инициализирована значением 1.
Переменная n инициализирована значением 0.
Запускается цикл while, который будет выполняться до тех пор, пока e больше 0.001.
Внутри цикла переменная P инициализируется произведением текущего значения P, коэффициента (4Exp(ln(r)2))/((Exp(Ln(2n+1)2))Exp(Ln(pi)3))) и предыдущего значения Pp.
Переменная n увеличивается на 1.
Переменная e вычисляется как абсолютное значение разности между текущим значением P и предыдущим значением Pp, деленной на текущее значение P. Это позволяет определить точность вычислений.
Значение Pp обновляется, становясь равным текущему значению P.
Цикл while повторяется, переходя к следующему шагу.
По завершении цикла выводится значение P с помощью функции Writeln.
Программа завершается с помощью функции Readln.