Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.11.13;
Скачать: CL | DM;

Вниз

Добрый день. Помогите пожалуйста выполнить функцию..   Найти похожие ветки 

 
Забывший   (2005-10-25 16:26) [0]

Добрый день. Помогите пожалуйста выполнить функцию..

Код такой:

Function VitSpeed(var Rov:Real; var Rod:Real; Var D1:Real; var Dn:Real):Real;
Var
Ar,Re,S:Real;
const
G=9.81;
Begin
Result:=0;
Ar:=0;
Re:=0;
S:=0;
Ar:=((g*Power(d, 3)*Power(10, 12))/(Power(10, 9)*Rov*Power(15.06, 2)));
Re:=(Ar)/(18+0.6*Sqrt(Ar));
S:=(RE*15.06*Power(10, 3))/(Power(10, 6)*d);
Result:=(S*100)/91.5;  //+8.5%
End;

Вызываю так: VitSpeed(1.25,7900,1,4,0,3);
Delphi ругается так:

Types of actual and formal var parameters must be identical

Уже минут 20 не могу понять в чём проблема :(
Заранее благодарен


 
clickmaker ©   (2005-10-25 16:33) [1]


> Забывший   (25.10.05 16:26)

что такое var в описании параметра функции знаешь?


 
stone ©   (2005-10-25 16:34) [2]

так тебе же пишет "Types of actual and formal var parameters must be identical" или перевести не можешь?


 
Забывший   (2005-10-25 16:37) [3]

clickmaker Огромное человеческое спасибо, всё работает



Страницы: 1 вся ветка

Текущий архив: 2005.11.13;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.025 c
2-1129799690
Duffik
2005-10-20 13:14
2005.11.13
Проверка на наличие


3-1128333732
Prohodil Mimo
2005-10-03 14:02
2005.11.13
Как правильно записать картинку из TImage в базу FB-1.5 ?


1-1130303194
vit74
2005-10-26 09:06
2005.11.13
фиксированное положение окна формы


1-1129686152
DDDeN
2005-10-19 05:42
2005.11.13
Определение обекта на TImage


2-1130085694
_xroot
2005-10-23 20:41
2005.11.13
Drag&Drop из проводника в программу