Подскажите пожалуйста как решить задачу:

← →
Pascalman (2006-12-13 19:03) [0]

Удалено модератором
Примечание: Восстановление закрытой ветки

← →
SergP © (2006-12-13 19:07) [1]

попробуй так:

x1:=x;
s:=x1;
i:=1;
x2:=0;
while abs(x1+x2)>0.00001 do
begin
i:=i+2;
x2:=x1;
x1:=-x1*x*x/(i*(i-1));
s:=s+x1;
end;

не знаю, писал прямо в форум, так что и ошибиться мог...

← →
iXT © (2006-12-13 19:08) [2]

> Этот код не совсем верный

Здесь!

WMZ....? минут 5 после перечисления :).

Не вру, еще придется Паскаль поставить :)

далее:
writeln(s);
Writeln(sin(x));

Подскажите пожалуйста как решить задачу: Найти похожие ветки