差点被绕进去了

[TeliuTe]

给人解释比较次数，忽然犯迷糊了

代码： 全选

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]

递归的好绕……

[月下叹逍遥]

VB？？？

[qy117121]

码盲路过

[TeliuTe]

递归的好绕……

泡。泡。

[TeliuTe]

VB？？？

呵，正是，U下还没找到替代的

[月下叹逍遥]

VB？？？

呵，正是，U下还没找到替代的

我恶心VB，换Fortran吧

[TeliuTe]

VB？？？

呵，正是，U下还没找到替代的

我恶心VB，换Fortran吧

教材都是VB，Fortran 的都没见过

[月下叹逍遥]

我们这有一本，编译环境是win95+VF6.x，

[tusooa]

给人解释比较次数，忽然犯迷糊了

代码： 全选

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

你这啥，要么，是a(i)>a(j)，你这，for j那段里，都没提到j啊。。。
麻烦的要死额。
你这，应该用swap a(i), a(j) 这样的。
perl简单。sort { $a <=> $b } @a;

[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

你这啥，要么，是a(i)>a(j)，你这，for j那段里，都没提到j啊。。。
麻烦的要死额。
你这，应该用swap a(i), a(j) 这样的。
perl简单。sort { $a <=> $b } @a;

哈，真是迷糊了

[TeliuTe]

你这啥，要么，是a(i)>a(j)，你这，for j那段里，都没提到j啊。。。
麻烦的要死额。
你这，应该用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;

想在Ubuntu下找一个替代VB的，能可视化简单易用的

QT吧，虽然不怎么喜欢它。。。
WPS还是用它的。。。

[TeliuTe]

你这啥，要么，是a(i)>a(j)，你这，for j那段里，都没提到j啊。。。
麻烦的要死额。
你这，应该用swap a(i), a(j) 这样的。
perl简单。sort { $a <=> $b } @a;

想在Ubuntu下找一个替代VB的，能可视化简单易用的

QT吧，虽然不怎么喜欢它。。。
WPS还是用它的。。。

找时间试试。。感觉QT要装一堆依赖
WPS 到现在还没见

[月下叹逍遥]

都过了十五了，越来越玄了。。。