Помогите, пожалуйста, решить задачу. Очень надо! Проявите свои лучшие человеческие качства.

Для аргумента x, изменяющегося от -0.6 с шагом 0.05, вычислить 20 значений функций:

1) Сумма от k = 0 до бесконечности от выражения, стоящего в скобках ( x^(4k+1) ) / (4k+1)!
2) 0.5( ( e^x - e^(-x) )*0.5 + sin(x) )

Функцию 1) вычислить для ряда точностей е = 0.0001, 0.00001 Для указанных точностей определить количество N элементов ряда, суммируемых для достижения заданной точности.

P.S. Обе функции выражают ожну и ту же зависимость x от y. Функция с бесконечностью - это итерационный цикл с заданной точностью.

Неужели никто не знает?

Megabyte 24spam@tut.byНеужели никто не знает?
Здесь не нужны знания по программированию, только по математике!\

Как раз таки у меня проблемы в программировании. Вот код, с помощью которого я пытаюсь решить задачу. Где моя ошибка?

Program Lab_1_new;

var
x:Real;
Stepen, St:Real;
factorial:Comp;
F1,F2:Real;
eps:Real;
i:Integer;
k:Integer;
n:Integer;

begin
factorial := 1;
x := -0.6;
eps := 0.001;
k := 1;

for i := 1 to 20 do
begin
F1 := 0.5*( (Exp(x) - Exp(-x) )/2 + sin(x) );
St := x*x*x*x;
Stepen := x;
F2 := Stepen / factorial;
repeat
Stepen := Stepen * St;
k := k + 4;
factorial := factorial * k * (k-1) * (k-2) * (k-3);
F2 := F2 + Stepen / factorial;

Until Abs(Stepen/factorial) < eps;

x := x + 0.05;
end;

end.

pirovindos 24spam@tut.by
Как раз таки у меня проблемы в программировании. Вот код, с помощью которого я пытаюсь решить задачу. Где моя ошибка?



Неплохо бы во внешнем цикле factorial и k инициализовать каждый раз.

Какими значениями инициализировать?