Составьте пользовательскую процедуру или функцию для вычисления

@tanya 11 · Регистрация: 18.12.2012

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

Составьте пользовательскую процедуру или функцию для вычисления:
(1^1+1)/1 +(2^2+1)/(1*2)+(3^3+1)/(1*2*3)+…+(n^n+1)/(1*2*3*4*…n)
Значение n указывается при вызове процедуры или функции.

@Puporev · 20.12.2012, 18:09

Pascal

function S(n:integer):real;
var i:integer;
    sm,f:real;
begin
sm:=0;
f:=1;
for i:=1 to n do
 begin
  f:=f/i;
  sm:=sm+(i*i+1)*f;
 end;
S:=sm
end;
var n:integer;
begin
write('n=');
read(n);
write('S=',S(n):0:4);
end.

@tanya 11 · 20.12.2012, 20:18 **[ТС]**

спасибо)

@tanya 11 0 / 0 / 0 Регистрация: 18.12.2012 Сообщений: 13
		1
	Составьте пользовательскую процедуру или функцию для вычисления 20.12.2012, 03:11. Показов 1106. Ответов 2 Метки нет (Все метки) Составьте пользовательскую процедуру или функцию для вычисления: (1^1+1)/1 +(2^2+1)/(12)+(3^3+1)/(123)+…+(n^n+1)/(1234*…n) Значение n указывается при вызове процедуры или функции. 0

@tanya 11 0 / 0 / 0 Регистрация: 18.12.2012 Сообщений: 13
	20.12.2012, 20:18 [ТС]	3
	спасибо) 0

Составьте пользовательскую процедуру или функцию для вычисления

Решение