Главная страница
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.051 c
1-1129990116
Tori
2005-10-22 18:08
2005.11.13
проблемы перехода от exe к dll


11-1110981835
Vladimyr
2005-03-16 17:03
2005.11.13
QueryEndSession - как чуток подождать?..


5-1108464410
sau
2005-02-15 13:46
2005.11.13
TreeView и ActiveX


3-1128080674
SERGEY-ZZZ
2005-09-30 15:44
2005.11.13
Базы данных через интернет


1-1130076984
Эксперт
2005-10-23 18:16
2005.11.13
А как сделать скролинг для TPanel как в TabControl?