Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Задача на Паскале

Pascalman © (2006-12-13 18:04:00)
Привет всем! Подскажите пожалуйста как решить эту задачу:

Для данного 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.
Этот код не верный, подскажите как его исправить.

Pascalman (2006-12-13 18:47:00) [1]
Люди! Не молчите обьясните пожалуйста где я ошибся

Vistaman (2006-12-13 18:38:00) [2]
>У кого код украл?
Не укого сам писал, а что вообще неправильно.Если да то что и где не правильно

Jeer (2006-12-13 18:19:00) [3]
"Крикуны" идут в атаку.

iXT (2006-12-13 18:11:00) [4]
У кого код украл?

Наверх

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