прога...
итак задали нам по програмированию сделать програмку...
программу я сделал но она помоему считает неверно ...как я подозреваю ошибка в том что она не берет предыдущее значение Аn-1 и Bn-1 подскажите что мне делать
program nike;
const
A0=3;
B0=2;
Eps=10E-6;
var
S:real;
An,Bn:real;
Sn:real;
N:integer;
begin
S:=1;
N:=0;
An:=A0;
Bn:=B0;
repeat
Sn:=Exp(N*ln(2))*(An*An-Bn*Bn)*(-0.5);
s:=sn*(-0.5);
writeln sn;
S:=S+Sn;
An:=0.5*(An+Bn);
Bn:=Sqrt(An*Bn);
Inc (N);
until
(An*An-Bn*Bn)<=Eps;
writeln
('S=',S);
readln;
End.
|