Помогите пожалуйста!

[admingrinn]

Народ, в языках программирования полный ноль, помогите сестренке решить задачку на паскале!
1-x^2/2! + x^4/4! - x^6/6! +x^8/8! - ......
Найти cos(x)
P.S. Писал эту задачку на многих форумах по программированию, никто пока не смог
Очень прошу откликнуться, заранее всем спасибо!
fotomix вне форума Ответить с цитированием

[somewhere]

Насколько я помню, эта формула и есть Cos(x) - посчитать ее плевое дело, тут в другом вопрос - до каких пор? т.е. какое последнее значение складывать?

[admingrinn]

Насколько я понимаю, нужно x вводить

[admingrinn]

Задание звучало просто...." вычислить cos(x) этой последовательности"

[somewhere]

Здесь считаются только первые 15 членов последовательности. Считать остальные как я понял смысла нет, ибо они очень малы. Вводить Х нужно в радианах.

Код: Выделить всё

uses crt;

var
R, X, F, LF, P    : Extended;
t : Integer;

begin
ClrScr;
Write('Input X = ');
Readln(X);
P := 1; R := 1;
F := 1; LF:= 0;
For t := 1 to 15 do
        begin
        P := -P*X*X;
        F := F*(LF+1)*(LF+2);
        LF := LF + 2;
        Writeln(t:3, ' = ', p/f:15:12);
        R := R + P/F;
        end;
Writeln('Cos(x) = ',R:15:12);
end.

[admingrinn]

Очень благодарен! Спасибо Вам огромное!!!!!!!