[poli-smen]

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

почему тогда у меня не работает. в чем ошибка? модуль math я подключил.

Код:

procedure TForm1.ATTRFm(const name: string);
var
.....
  Asig,Amic:array of Single;
.....
    ration:=mean(Asig)/mean(Amic)  
    else
    ration:=norm(Asig)/norm(Amic); 
  
end;

при этом в rad xe5 этот код работает. а в delphi7 говорит о несовместимости типов - incompatible types 'array' and 'dynamic array'

Потому что в модуле Math который в Delphi7 эти функции умеют работать только с типом "array of Double". В новых версиях Delphi добавили в этот модуль работу и с другими вещественными типами.
Т.е. если поменяешь объявление переменных на такое:

Код:

Asig, Amic: array of Double;

то будет работать и в Delphi 7.