
代码: 全选
for i=1 to n-1
for j=i+1 to n
if a(i)>a(j) then
max =a(i)
a(i)=a(j)
a(j)=max
end if
next j
next i
泡。泡。jtshs256 写了:递归的好绕……
呵,正是,U下还没找到替代的月下叹逍遥 写了:VB???
教材都是VB,Fortran 的都没见过月下叹逍遥 写了:我恶心VB,换Fortran吧TeliuTe 写了:呵,正是,U下还没找到替代的月下叹逍遥 写了:VB???
你这啥,要么,是a(i)>a(j),你这,for j那段里,都没提到j啊。。。TeliuTe 写了:给人解释比较次数,忽然犯迷糊了![]()
代码: 全选
for i=1 to n-1 for j=i+1 to n if a(i)>a(i+1) then max =a(i) a(i)=a(i+1) a(i+1)=max end if next j next i
代码: 全选
] ls -ld //
哈,真是迷糊了tusooa 写了:你这啥,要么,是a(i)>a(j),你这,for j那段里,都没提到j啊。。。TeliuTe 写了:给人解释比较次数,忽然犯迷糊了![]()
代码: 全选
for i=1 to n-1 for j=i+1 to n if a(i)>a(i+1) then max =a(i) a(i)=a(i+1) a(i+1)=max end if next j next i
麻烦的要死额。
你这,应该用swap a(i), a(j) 这样的。
perl简单。sort { $a <=> $b } @a;
想在Ubuntu下找一个替代VB的,能可视化简单易用的你这啥,要么,是a(i)>a(j),你这,for j那段里,都没提到j啊。。。
麻烦的要死额。
你这,应该用swap a(i), a(j) 这样的。
perl简单。sort { $a <=> $b } @a;
QT吧,虽然不怎么喜欢它。。。TeliuTe 写了:想在Ubuntu下找一个替代VB的,能可视化简单易用的你这啥,要么,是a(i)>a(j),你这,for j那段里,都没提到j啊。。。
麻烦的要死额。
你这,应该用swap a(i), a(j) 这样的。
perl简单。sort { $a <=> $b } @a;
找时间试试。。感觉QT要装一堆依赖月下叹逍遥 写了:QT吧,虽然不怎么喜欢它。。。TeliuTe 写了:想在Ubuntu下找一个替代VB的,能可视化简单易用的你这啥,要么,是a(i)>a(j),你这,for j那段里,都没提到j啊。。。
麻烦的要死额。
你这,应该用swap a(i), a(j) 这样的。
perl简单。sort { $a <=> $b } @a;
WPS还是用它的。。。