Главная страница
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.027 c
4-1126174606
jeka_t
2005-09-08 14:16
2005.11.13
Есть ли функция, которая возвращает "Описание" в "Имени компьютер


14-1130101965
saNat
2005-10-24 01:12
2005.11.13
Поиск ошибки в проекте


2-1129750903
Анна
2005-10-19 23:41
2005.11.13
Delphi


3-1128082475
Top
2005-09-30 16:14
2005.11.13
(Оракля)Как организовать автоперемотку сиквенса в ADO


3-1128347060
TAN_K
2005-10-03 17:44
2005.11.13
Запись из Delphi в FoxPro