Подпрограммы, использование функций Delphi7

[warma2d]

Здравствуйте!

Подскажите пожалуйста, правильно ли работает программа?

Рассчитать значения функции y для разных значений параметра n (n= 1, 2, 3, …10) . Вычисление суммы ряда оформить в виде подпрограммы-функции. Передача информации в функцию должна осуществляться через аппарат формальных-фактических параметров.

program rabota720;

{$APPTYPE CONSOLE}

uses
  SysUtils,Math;

Var a:integer; L:Real;
//----------------------------------
function fun(n: integer): Real;
   var i: integer; S:Real;
begin
S:=0;
   For i:=0 to n do
       Begin
       S:=S+(power(i,2)) ;
       end;
   fun:=s;

end;
//----------------------------------

begin
For a:=0 to 10 do Begin
L:=fun(a);
Writeln(L:2:5);
End;
Readln;
end.

Заранее спасибо!

[p51x]

правильно ли работает программа?

Ккалькулятор в руки и вперед.

П.С. У вас и в ряду и в задании везде все начинается с 1, почему же вы 0 лепите?

[warma2d]

спасибо, p51x, что заметили, что нужна замена с 0 на 1

в принципе насколько я понимаю, программа работает правильно, верно?
но вдруг я что-то случайно упустил, как например, с этой единицей.

program rabota720;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Math;

Var a:integer; L:Real;
//----------------------------------
function fun(n: integer): Real;
   var i: integer; S:Real;
begin
S:=0;
   For i:=1 to n do
       Begin
       S:=S+(power(i,2)) ;
       end;
   fun:=s;

end;
//----------------------------------

begin
For a:=1 to 10 do Begin
L:=fun(a);
Writeln(L:2:5);
End;
Readln;
end.