Вычислить сумму не через рекурсию

@awaylastdays · Регистрация: 11.06.2014

Author24 — интернет-сервис помощи студентам

Есть задача её нужно сделать двумя способами в одной и через функции(Function) решить эту задачу с помощью рекурсии и без. Так вот с рекурсией я сделал а вот без рекусии не могу помогите пожалуйста!
$https://www.cyberforum.ru/cgi-bin/latex.cgi?S=\sum_{j=1}^{n}\frac{j^2}{e^j}$

S=\sum_{j=1}^{n}\frac{j^2}{e^j}

Pascal

var n:integer;
function sum(x:integer):real;
begin
 if x=1 then sum:=1/exp(1)
        else sum:=sum(x-1)+sqr(x)/exp(x)
end;
function sumnotrec(
begin
 writeln('n= ');
 readln(n);
 writeln('summa = ',sum(n):0:4)
 writeln('summa = ',sumnotrec(n):0:4)
end.

@Sergio Leone · 10.12.2014, 15:25

Сообщение от awaylastdays

вот с рекурсией я сделал а вот без рекусии не могу

вот это странно! Обычно рекурсивные алгоритмы вызывают больше сложности/непонимания..

ладно, простой вариант не сложно написать

(извините за каламбурчик... )

Pascal

function sum(x:integer):real;
var s : real;
  j : integer;
begin
  s := 0;
  for j:=1 to x do
    s := s + sqr(j)/exp(j);
  sum := s;
end;

@awaylastdays · 10.12.2014, 15:43 **[ТС]**

Sergio Leone, Когда 2 ночи не спишь и не такое бывает

@Sergio Leone · 10.12.2014, 15:51

Не по теме:

Сообщение от awaylastdays

Sergio Leone, Когда 2 ночи не спишь и не такое бывает

да. понимаю. сочувствую..
ну тогда - успехов в учёбе!

@awaylastdays 0 / 0 / 0 Регистрация: 11.06.2014 Сообщений: 46
	10.12.2014, 15:43 [ТС]	3
	Sergio Leone, Когда 2 ночи не спишь и не такое бывает 0

@Sergio Leone
	10.12.2014, 15:51 Вычислить сумму не через рекурсию #4
	Не по теме: Сообщение от awaylastdays Sergio Leone, Когда 2 ночи не спишь и не такое бывает да. понимаю. сочувствую.. ну тогда - успехов в учёбе! 0

Вычислить сумму не через рекурсию

Решение