Страница 1 из 1
Помогите пожалуйста!
Добавлено: 13 ноя 2007, 15:18
admingrinn
Народ, в языках программирования полный ноль, помогите сестренке решить задачку на паскале!
1-x^2/2! + x^4/4! - x^6/6! +x^8/8! - ......
Найти cos(x)
P.S. Писал эту задачку на многих форумах по программированию, никто пока не смог
Очень прошу откликнуться, заранее всем спасибо!
fotomix вне форума Ответить с цитированием
Re: Помогите пожалуйста!
Добавлено: 13 ноя 2007, 15:52
somewhere
Насколько я помню, эта формула и есть Cos(x) - посчитать ее плевое дело, тут в другом вопрос - до каких пор? т.е. какое последнее значение складывать?
Re: Помогите пожалуйста!
Добавлено: 13 ноя 2007, 16:00
admingrinn
Насколько я понимаю, нужно x вводить
Re: Помогите пожалуйста!
Добавлено: 13 ноя 2007, 16:05
admingrinn
Задание звучало просто...." вычислить cos(x) этой последовательности"
Re: Помогите пожалуйста!
Добавлено: 13 ноя 2007, 16:09
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.
Re: Помогите пожалуйста!
Добавлено: 13 ноя 2007, 16:11
admingrinn
Очень благодарен! Спасибо Вам огромное!!!!!!!