gw_x:=Pointer(gw_a^+$8); //怪物X坐标
gw_y:=Pointer(gw_a^+$9); //怪物y坐标
gw_z:=Pointer(gw_a^+$9); //怪物最大数量
rw_x:= Pointer(rw_a^+$4); //人物X坐标
rw_y:= Pointer(rw_a^+$e4); //人物Y坐标
sDist:=abs(sqr(rw_x^-gw_x^)+sqr(rw_y^-gw_y^)); //计算最短距离
这么写一个遍历怪物数组后,的到一个最近距离的怪?
gw_y:=Pointer(gw_a^+$9); //怪物y坐标
gw_z:=Pointer(gw_a^+$9); //怪物最大数量
rw_x:= Pointer(rw_a^+$4); //人物X坐标
rw_y:= Pointer(rw_a^+$e4); //人物Y坐标
sDist:=abs(sqr(rw_x^-gw_x^)+sqr(rw_y^-gw_y^)); //计算最短距离
这么写一个遍历怪物数组后,的到一个最近距离的怪?
解决方案 »
- 有谁知道在Delphi里面好用的视频传输控件啊~~!
- [求教]怎样用delphi实现综合查询
- Borland中国&游民的散分贴
- ado+access(mdb),如何在dbgrid的最后一行添加一行合计(sum)?急~~~~~~~~~~
- 高分求一个treeview组件按某个有序字段遍历数据库的例子!
- 一个弱弱的容器类问题
- 请教如何在程序中制作浮动工具栏!!
- 中午前救火!!!!哪位会从delphi中调用vb写的activex dll对象
- 谁知道列侬的Double Fantasy(双重幻想)哪里有下载,3q
- 请问,哪里有borland pascal 7.0的程序下载??
- delphi如何动态创建button
- delphi数据库打包问题 新手求教 请各位进来看看
TBugRec = array[0..怪物数量] of record
在用冒泡排序,代码不会写,请教大牛指点
for(int i=0;i<9;i++) //最后输出的是顺序,即从小到大
{
for(int j=0;j<9-i;j++)
{
if(BugRec[j]<BugRec[i])//如果BugRec[j]<BugRec[i],则互相交换
{
int temp;
temp = BugRec[i];
BugRec[i] = BugRec[j];
BugRec[j] = temp;
}
}
}
int m=0;
for(int j=0;j<9;j++)
{
if(BugRec[m]>BugRec[j])
{
m := j;
}
} 最小值 BugRec[m]