Вычислить значение функции. Возведение в степень Опции

[m3mfis]

Вот сижу тут не могу ни как решить одну задачу. Сказали сделать с помошью рекуррентных соотнощений, но я что-то запутался кароч получается билиберда привожу само условие задачи:


y=(x^4+x^7/2!+x^10/3!+x^13/4!)*5*a

Сообщение отредактировано: Altair - 18.12.2005 15:36

[volvo]

Вообще-то эта задача довольно просто решается без функций (тебе же было нужно использование рекуррентных соотношений, или нет?):

var
  X, a, next, s: real;
  i: integer;

begin
  write('X = '); readln(X);
  a := 2; { <--- Ну, или сколько тебе нужно }

  next := x; s := 0;
  for i := 1 to 4 do begin
    next := next * (sqr(X) * X) / i;
    s := s + next;
  end;

  writeln('Y = ', s * 5 * a);
end.