Задача с использованием функции/процедуры

[[Gunpowder M.D.]]

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

[Wild_klas]

А что значит " ••• " ??
И знак ^ что обозначает??

[[Gunpowder M.D.]]

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

И знак ^ что обозначает??

^ - возведение в степень

[ROMA2PVT]

 Uses
  CRT;
 var
  n,i,l:integer;
  sum:real;
 begin
  readln(n);
  l:=1;
  sum:=0;
   for i:=1 to n do
   begin
    l:=l*i;
    sum:=sum+((exp(i*ln(i))+1)/l);
   end;
  writeln(sum:1:3);
 readkey
 end.

[Wild_klas]

Я смог сделать так:

PHP код:

program Projec432t1;

{$APPTYPE CONSOLE}

uses
  SysUtils,math;


Procedure Calculation(Y1:real);
 Begin
 Y1:=(1*1+1)/1+(sqr(2)+1)/(1*2)+(Power(3,3)+1)/(1*2*3);
 Writeln('Y1 = ',Y1:4:2);
 end;
Var Y1:real;
 Begin
 Y1:=0;
 Calculation(Y1);
 Readln;
end. 


Тоесть для: (1^1+1)/1 + (2^2+1)/(1*2) + ( 3^3+1)/(1*2*3), а вот как дальше, с n-ным, я еще не знаю. Кто знает расскажите пожалуйста. Мне аж интересно

[ROMA2PVT]

Wild_klas пост 4 глянь.Ток там без проедуры пусть ТС сам немного подумает.