EXSUL
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код:
...........
y:=0;
j:=1;
while x<0.61 do
begin
arx:=(1+x*x)/2*arctan(x)-x/2;
while (n<51) and (abs(j-y)<e) do
begin
j:=y;
y1:=1;
for st:=1 to 2*n+1 do
begin
y1:=y1*x;
end;
y2:=4*n*n-1;
y3:=y1/y2;
z:=step(1,n);
y3:=y3*z;
y:=y+y3;
n:=n+1;
end;
writeln(y);
writeln(arx);
x:=x+0.05;
end;
............ |
проверить код не могу, паскаля пока нет... |
Всего записей: 60 | Зарегистр. 04-10-2008 | Отправлено: 17:46 05-12-2008 | Исправлено: EXSUL, 18:35 05-12-2008 |
|
