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

Задача на Паскале   Найти похожие ветки 

← →
Pascalman   (2006-12-13 18:04) [0]

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

Для данного x (вещественное число, вводится с клавиатуры) вычислить значение выражения:
x - x^3/3! + x^5/5! - x^7/7! + x^9/9! - x^11/11! +  … .Вычисления производить до тех пор, пока разница между двумя соседними слагаемыми не станет меньше 0,00001 (выражение N! Называется "N факториал" и вычисляется как произведение всех чисел от 1 до N: N! = 1*2*3*4…*N, знак "^" означает "в степени", но помните, что в Паскале нет такой операции). Для проверки сравните результат с синусом x. Правильно реализованные в программе вычисления в результате должны давать расхождение только в последних знаках после запятой.

Я попытался решить сам и вот что уменя получилось:
uses crt;
var
x,s,x1,x2:real;
i:integer;
begin
clrscr;
writeln;
readln(x);
s:=0;
x2:=x;
x1:=0;
i:=1;
while abs(x1-x2)>0.00001 do begin
i:=i+2;
x1:=(x2*sqr(x)/i);
x2:=(x1*sqr(x)/(i*(i-1)));
s:=x1+x2;
end;
writeln(x-s);
Writeln(sin(x));
readln;
end.
Этот код не верный, подскажите как его исправить.

---

← →
iXT ©   (2006-12-13 18:11) [1]

У кого код украл?

---

← →
Jeer ©   (2006-12-13 18:19) [2]

"Крикуны" идут в атаку.

---

← →
Vistaman   (2006-12-13 18:38) [3]

>У кого код украл?
Не укого сам писал, а что вообще неправильно.Если да то что и где не правильно

---

← →
Pascalman   (2006-12-13 18:47) [4]

Люди! Не молчите обьясните пожалуйста где я ошибся

---

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

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



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