Главная страница
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.034 c
2-1129558566
Dush
2005-10-17 18:16
2005.11.13
inherited


14-1129969400
dr Tr0jan
2005-10-22 12:23
2005.11.13
Гибрид TShellTreeView и TCheckbox


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


14-1129701653
Иксик
2005-10-19 10:00
2005.11.13
Есть ли у нас на форуме кто-нибудь из Симферополя?


4-1126628734
begin...end
2005-09-13 20:25
2005.11.13
Значения описателей объектов ядра