Подсчитать среднее

[railya2015]

Запрограммировать оценку эмпирического среднего по участку временного ряда методом суммирования с накоплением, оформив алгоритм в виде функции.
На входе подпрограммы: массив элементов вещественного типа, индекс первого элемента массива и длина анализируемого участка в отсчетах.
На выходе подпрограммы: оценка эмпирического среднего.

type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
  f:textfile;
  FN: string;
implementation
 
{$R *.lfm}
 
{ TForm1 }
function Exp(A: array of double; start,len:integer): double;
var
   m: array of double; l,n:integer;
   begin
setlength(m,len)
for i:=0 to len-1 do
m[i]:=A
[star+i];
 
while length(m)>1 do
begin
l:=length(m);
for i:=0 to trunc(l/2)-1 do
m[i]:=m[2*i]+m[2*i+1]/2;
if l mod 2-1 then l
  begin
m[trunc(l/2)]:=m[l-1];
setlength(trunc(l/2)+1);
   end;
else
setlength (m,trunc(l/2));
result:=m[0];
end;
procedure TForm1.Button1Click(Sender: TObject);
var
  i,n:integer;
  s:string;
  A:array of double;
begin
  OpenDialog1.Execute;
  FN:=OpenDialog1.Filename;
  AssignFile(f,FN);
  Reset(f);
  n:=0;
  while not Eof(f) do
  begin
  readln(f,s);
  n:=n+1;
  end;
  reset(f);
  setLength(a,n);
  for i:=0 to n-1 do
  begin
  readln(f,s);
  a[i]:=strtofloat(s);
  //showmessage(floattostr(a[i]));
  end;
closefile(f);
    Edit1.Text:=floattostr(Exp(A,0,length(a)));
      end;
 
end.

пишет ошибку, скажите что не так?

[Аватар]

А сообщение об ошибке секретное? Не, не так - пусть кто-то глазами компилятором по совместительству поработает

[railya2015]

Я не могу понять в чем ошибка и помочь не кому, поэтому сюда написала

[min@y™]

Я не могу понять в чем ошибка и помочь не кому, поэтому сюда написала

телепаты перевелись на работу в «спортлото». туда и пиши.

[Serge_Bliznykov]

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

Я не могу понять в чем ошибка и помочь не кому, поэтому сюда написала

Если не можете понять и словами выразить "в чём ошибка", тогда, хотя бы сделайте скриншот, на котором видна ошибка и выложите полученную картинку сюда, на форум.

может у Вас в файле есть строчки, в которых находятся не числовые значения?

ну и ещё. Использовать имена встроенных функций - это моветон и прямой путь к багам!
Зачем Вам использовать имя EXP, не хватает фантазии придумать другое название для своей функции?!

[Dvoishnik]

ну как минимум функция не объявлена.
да и сама функция одна большая ошибка

function Exp(A: array of double; start,len:integer): double;
var
 m: array of double; 
 l,n:integer;
begin                     // первый begin
 setlength(m,len)
 for i:=0 to len-1 do 
  m[i]:=A[star+i];
 while length(m)>1 do
  begin                    // второй begin
   l:=length(m);
   for i:=0 to trunc(l/2)-1 do
   m[i]:=m[2*i]+m[2*i+1]/2;
   if l mod 2-1 then l // что выполняется? 
 begin                   // третий begin
  m[trunc(l/2)]:=m[l-1];
  setlength(trunc(l/2)+1);
 end;            // закрывает 3 begin
      else // не понятно откуда  и куда 
       setlength (m,trunc(l/2));
result:=m[0];
end; // закрывает 2 begin
 // где еще 1 end;

[railya2015]

Все я разобралась