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

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

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

Код к задаче: «Вычислить произведение - Turbo Pascal (29040)»

textual
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.

6   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ