| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Добрый день. Помогите пожалуйста выполнить функцию.. [D7, XP]
Забывший © (2005-10-25 16:26:00)Добрый день. Помогите пожалуйста выполнить функцию..
Код такой:
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 не могу понять в чём проблема :(
Заранее благодарен
Забывший (2005-10-25 16:37:00) [1]clickmaker Огромное человеческое спасибо, всё работает
stone (2005-10-25 16:34:00) [2]так тебе же пишет "Types of actual and formal var parameters must be identical" или перевести не можешь?
clickmaker (2005-10-25 16:33:00) [3]
> Забывший (25.10.05 16:26)
что такое var в описании параметра функции знаешь?
| |
