Скачать: CL | DM;

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

← →
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 после перечисления :).

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

---

← →
SergP ©   (2006-12-13 19:08) [3]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: -0.954 c