При выполнении программы ошибка.

[Cyber]

Господа, программа при компелировании выдает:
Return value of function 'sum' might be undefined
Return value of function 'mult' might be undefined
Но программа компелируется, а вот когда программа выполняет процедуру по клику выдает ошибку:
Проект вызвал исключение класса EInvalidOp с сообщением 'Invalid floating point operation'

Помогите, голову сломал уже, что не так?

Вот собственно

var
  a: array [1..25] of Real;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure sort;
var
  i,k,m:integer;
  buf:real;
      begin
          for i:= 1 to 25 do
            begin
            m:=i;
              for k:=i+1 to 26 do
              if a[k]>a[m] then m:=k;
              buf:=a[i];
              a[i]:=a[m];
              a[m]:=buf;
            end;
        end;

function sum(s:real):real;
var
  i:integer;
begin
for i:=1 to 25 do
if a[i]>0 then s:=s+a[i]
end;

function mult(e:real):real;
var
  i:integer;
begin
e:=1;
for i:=1 to 25 do
if a[i]>0 then e:=e*a[i]
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
listbox1.Clear;
listbox2.Clear;
randomize;
for i:=1 to 25 do
a[i]:=random(-10);
sort;
for i:=1 to 25 do
listbox1.items.Add(FloatToStr(a[i]));
listbox2.items.Add('summa = '+FloatToStr(sum(0)));
listbox2.items.Add('proizvedenie = '+FloatToStr(mult(1)));
end;
end.

[Mad_Cat]

а кто результаты из функций забирать то буит?

[Serge_Bliznykov]

а кто результаты из функций забирать то буит?

похоже, они никому не нужны

Cyber

function sum(s: real): real;
var
  i: integer;
begin
  for i := 1 to 25 do
    if a[i] > 0 then s := s + a[i];
  sum := s;
end;

function mult(e: real): real;
var
  i: integer;
begin
  e := 1;
  for i := 1 to 25 do
    if a[i] > 0 then e := e * a[i];
  mult := e;
end;

и, кстати, параметры в эти функции надо передавать другие!!

[Cyber]

listbox2.items.Add('summa = '+FloatToStr(sum(0)));
listbox2.items.Add('proizvedenie = '+FloatToStr(mult(1)));

А разве эти строчки не вытаскивают результат?

[Mad_Cat]

вытаскивают но он как раз

undefined

вот так эт должно выглядеть

function sum(s:real):real;
var
i:integer;
begin
for i:=1 to 25 do
if a[i]>0 then s:=s+a[i];
result:=s;
end;

function mult(e:real):real;
var
i:integer;
begin
e:=1;
for i:=1 to 25 do
if a[i]>0 then e:=e*a[i];
result:=e;
end;

[Cyber]

И ещё после завершения программы выделяется вот эта строчка:
if a[k]>a[m] then m:=k;

тут тоже ступор. По не ввёл функции всё работало нормуль.

[Stilet]

А разве эти строчки не вытаскивают результат?

Вытаскивают ))))))))))))
Если есть что. А у тебя нечего ибо ты не написал:

function sum(s:real):real;
var
  i:integer;
begin
 for i:=1 to 25 do
  if a[i]>0 then s:=s+a[i]
 result:=s;
end;

function mult(e:real):real;
var
  i:integer;
begin
e:=1;
 for i:=1 to 25 do
  if a[i]>0 then e:=e*a[i] 
 Result:=e;
end;

[Cyber]

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

похоже, они никому не нужны


> if a[i] > 0 then s := s + a[i];
> sum := s;
[/CODE]
и, кстати, параметры в эти функции надо передавать другие!!

Чо-то не работает.
Не подскажешь какие параметры надо передавать?

Спасибо большое, с функцией разобрались. Осталось одна проблема:
Проект вызвал исключение класса EInvalidOp с сообщением 'Invalid floating point operation'

Подскажите - спасете жизнь!

[Stilet]

Подскажем когда ты выложишь сюда свой проект в архиве полностью.
В указанной тобой строке криминала не вижу, так что по любому где-то около ошибка

[Cyber]

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

Подскажем когда ты выложишь сюда свой проект в архиве полностью.
В указанной тобой строке криминала не вижу, так что по любому где-то около ошибка

Вот собственно проект.