Если не сложно,помогите пожалуйста Протабулировать функцию в паскале Условия: (сумма)...

Question

Если не сложно,помогите пожалуйста
Протабулировать функцию в паскале Условия:
(сумма) S=1+3x^2/1!+5x^4/2!+....
(диапазон изменений [0,1;1]
n=10
(функция) y=(1+2x^2)*e^x^2

Comments

Ну я несколько раз спросил, а ответить Вы не можете: Сумму ряда от какого X вычислять?

---

Откуда его взять?

---

С клавиатуры вводить?

---

да его нужно ввести в программу

---

Для суммы ряда икс вводится с клавиатуры, всего 10 членов ряда - это понятно. С каким шагом функцию табулировать?

---

диапазон изменений [0,1;1]

---

Ну, а на сколько точек его делить? Тоже на 10?

---

да

---

Я надеюсь,вы мне поможете?

---

плиз

Answer 1

{
  S(x) = 1 + 3x^2/1! + 5x^4/2! + ... =
  = (x)' + (x^3/1!)' + (x^5/2!)' + ... =
  = (x + x^3/1! + x^5/2! + ... )' =
  = (x * (1 + x^2/1! + x^4/2! + ...) )' =
  = (x ^ e^(x^2))' =
  = e^(x^2) + x * 2x*e^(x^2) =
  = (1 + 2x^2)*e^(x^2) =
  = y(x)
}

const n = 10;

function y(x:real):real;
begin
 y := (1 + 2*sqr(x)) * exp(sqr(x));
end;

var i:integer; x:real;
begin
 for i := 1 to n do
  begin
  x := i/n;
  writeln(x:3,' : ',y(x));
  end;
end.