| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Pascalman ©   (2006-12-13 19:03:00) 

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

---

iXT   (2006-12-13 19:08:00) [1]

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

Здесь!

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

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

---

SergP   (2006-12-13 19:08:00) [2]

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

---

SergP   (2006-12-13 19:07:00) [3]

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

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;

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

---

Наверх