Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.033 c