Программирование итерационных циклов

[Zlarxing]

Для всех значений X, задаваемых параметрами из набора:
начальное значение A, конечное значение В, шаг Dx, количество шагов Nx, ограничение на число итераций Nmax, вычислить функцию F(x) как сумму S бесконечного числа слагаемых, заканчивая суммирование для каж-дого значения x при достижении заданной точности EPS.
Вывести в выводной текстовый файл исходные данные A,B,Dx,EPS и результаты расчета: значения x,F(x),S и количество слагаемых K, обес-печивающих требуемую точность. Результаты выводить в форме таблицы с рамками.
F(x) arctg(x)
начальное значение A
-0.5
шаг Dx
0.1
число шагов Nx
10*
точность вычисления
EPS *
1e-6

Написано что надо делать через цикл if

Вид представления функции как суммы ряда слагаемых
arctg(x)=x - x^3/3 + x^5/5 - x^7/7 + x^9/9 - ...

[p51x]

И? Какой смысл этого поста?

[Аватар]

Естественно код дать. Тут же онлайн решатель задач ))

[digitalis]

Задание понято. Zlarxing, разрешите исполнять? Мой счет в швейцарском банке и конкретную сумму я озвучу в личке

[Mad_Cat]

Цикл if, что то новое в программирование ввели.Заданная точность может быть не достигнута за заданное число итераций, так что либо либо(аморе аморе), либо 2мя способами считать

[digitalis]

Отнюдь Новичок, который не знаком еще с for,while пишет

    i=0 ;
label: ......
   i=i+1 ;
   if (i<n)  goto label ;

[newerow1989]

function MyArcTan(x:real; var k:integer):real;
const eps=1e-6;
var xi:real;
begin
   Result:=x;
   xi:=x;
   k:=1;
   Repeat
      Inc(k);
      xi:=-xi*x*x/(2*k-1);
      Result:=Result+xi;
   Until Abs(xi)<eps;
end;

const a=-0.5;
      dx=0.1;
      nx=10;
      b=a+dx*nx;
var k:integer;
    x:real;
begin
   Writeln('A = ',a:4:1,'   B = ',b:4:1);
   Writeln('  x  |    F(x)     |      S      | K');
   x:=a-dx;
   Repeat
      x:=x+dx;
      Writeln(x:4:1,' | ',ArcTan(x):8:8,' | ',MyArcTan(x,k):8:8,' | ',k);
   Until x>=b;
   Readln;
end.

[digitalis]

Но тут появился Неверов, и лентяи-халявщики дружно вздохнули с облегчением. Поздравим себя с появлением в скором времени еще одной группы ничего не умеющих дипломо_обладателей.

[min@y™]

Сообщение от digitalis

Но тут появился Неверов, и лентяи-халявщики дружно вздохнули с облегчением. Поздравим себя с появлением в скором времени еще одной группы ничего не умеющих дипломо_обладателей.

Халявщики не станут программистами. А чем меньше программистов, тем больше их зарплата. О!

[digitalis]

Сообщение от min@y™

Халявщики не станут программистами.

Они станут начальниками над программистами. Ничего не умеешь делать - тогда руководи!
Sorry for little offtop