Помогите решить одну задачку! Никак не врубаюсь. На завтра надо. Сделайте подарок на день рождения:)

[Женек]

Вычислить сумму с точностью eps=0,0001 S=x+((x*x*x)/3!)+...+(x в степени(2n+1)/(2n+1)!)+... ,где х известно. Правильность результатов проверить суммой из трех первых членов ряда. Решить надо в паскале.

[Женек]

Решить надо в Паскале.

[Sibedir]

Ты хочешь на день рождения услышать: Ты лентяй, Женя.

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

Возведение в целочисленную степень можно сделать двумя путями: циклом и через рекурсию.

function Stepen1 (x: Real; n: Integer): Real;
begin
  if n = 0 then Result := 1
  else Result := x * Stepen1 (x, n-1);
end;

function Stepen2 (x: Real; n: Integer): Real;
var
  i: Integer;
begin
  Result := 1;
  for i := 1 to n do
    Result := Result * x;
end;

Вроде как оба работают одинаково быстро.