Показать сообщение отдельно
Старый 02.04.2006, 08:27   #20
pax
Unity/C# кодер
 
Аватар для pax
 
Регистрация: 03.10.2005
Адрес: Россия, Рязань
Сообщений: 7,499
Написано 2,955 полезных сообщений
(для 5,220 пользователей)
Это я ошибся (точнее переименовать забыл), функция которую вы ищите - под номером 3, только сокращенная (хотел повысить быстродействие).
Function XStepPY(X:Integer;Y:Integer):Integer;
var i,s:integer;
Begin
s:=1;
If Y>0 then 
 for i:=1 to Y do s:=s*x
else 
 If Y=0 then s:=1;

XStepPY:=s;
End;
__________________
Blitz3d to Unity Wiki
(Offline)
 
Ответить с цитированием