差点被绕进去了

新手涉及到的教学或入门贴,推荐新手必看,版主维护
头像
TeliuTe
论坛版主
帖子: 7675
注册时间: 2007-11-25 13:29
系统: 16/18/20/w7
来自: 新疆博乐
联系:

差点被绕进去了

#1

帖子 TeliuTe » 2012-02-09 18:56

给人解释比较次数,忽然犯迷糊了 :em06

代码: 全选

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
上次由 TeliuTe 在 2012-02-09 19:18,总共编辑 1 次。
jtshs256
帖子: 22323
注册时间: 2010-07-19 21:41
系统: OS X

Re: 差点被绕进去了

#2

帖子 jtshs256 » 2012-02-09 18:58

递归的好绕…… :em04
躺平
头像
月下叹逍遥
论坛版主
帖子: 33994
注册时间: 2010-10-07 14:23
系统: Archdows10
来自: 某系某星某洲某国某省某市
联系:

Re: 差点被绕进去了

#3

帖子 月下叹逍遥 » 2012-02-09 18:58

VB???
浮生七十今三十,从此凄惶未可知
头像
qy117121
论坛版主
帖子: 50587
注册时间: 2007-12-14 13:40
系统: Winbuntu
来自: 志虚国乌由市
联系:

Re: 差点被绕进去了

#4

帖子 qy117121 » 2012-02-09 18:59

码盲路过
渠月 · QY   
本人只会灌水,不负责回答问题
无聊可以点一下→ http://u.nu/ubuntu

邮箱 chuan@ubuntu.org.cn
头像
TeliuTe
论坛版主
帖子: 7675
注册时间: 2007-11-25 13:29
系统: 16/18/20/w7
来自: 新疆博乐
联系:

Re: 差点被绕进去了

#5

帖子 TeliuTe » 2012-02-09 19:00

jtshs256 写了:递归的好绕…… :em04
泡。泡。 :em09
头像
TeliuTe
论坛版主
帖子: 7675
注册时间: 2007-11-25 13:29
系统: 16/18/20/w7
来自: 新疆博乐
联系:

Re: 差点被绕进去了

#6

帖子 TeliuTe » 2012-02-09 19:08

月下叹逍遥 写了:VB???
呵,正是,U下还没找到替代的
头像
月下叹逍遥
论坛版主
帖子: 33994
注册时间: 2010-10-07 14:23
系统: Archdows10
来自: 某系某星某洲某国某省某市
联系:

Re: 差点被绕进去了

#7

帖子 月下叹逍遥 » 2012-02-09 19:10

TeliuTe 写了:
月下叹逍遥 写了:VB???
呵,正是,U下还没找到替代的
我恶心VB,换Fortran吧 :em04
浮生七十今三十,从此凄惶未可知
头像
TeliuTe
论坛版主
帖子: 7675
注册时间: 2007-11-25 13:29
系统: 16/18/20/w7
来自: 新疆博乐
联系:

Re: 差点被绕进去了

#8

帖子 TeliuTe » 2012-02-09 19:13

月下叹逍遥 写了:
TeliuTe 写了:
月下叹逍遥 写了:VB???
呵,正是,U下还没找到替代的
我恶心VB,换Fortran吧 :em04
教材都是VB,Fortran 的都没见过 :em06
头像
月下叹逍遥
论坛版主
帖子: 33994
注册时间: 2010-10-07 14:23
系统: Archdows10
来自: 某系某星某洲某国某省某市
联系:

Re: 差点被绕进去了

#9

帖子 月下叹逍遥 » 2012-02-09 19:14

我们这有一本,编译环境是win95+VF6.x, :em20 :em20 :em20
浮生七十今三十,从此凄惶未可知
tusooa
帖子: 6548
注册时间: 2008-10-31 22:12
系统: 践兔
联系:

Re: 差点被绕进去了

#10

帖子 tusooa » 2012-02-09 19:15

TeliuTe 写了:给人解释比较次数,忽然犯迷糊了 :em06

代码: 全选

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;

代码: 全选

] ls -ld //
头像
TeliuTe
论坛版主
帖子: 7675
注册时间: 2007-11-25 13:29
系统: 16/18/20/w7
来自: 新疆博乐
联系:

Re: 差点被绕进去了

#11

帖子 TeliuTe » 2012-02-09 19:18

tusooa 写了:
TeliuTe 写了:给人解释比较次数,忽然犯迷糊了 :em06

代码: 全选

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
论坛版主
帖子: 7675
注册时间: 2007-11-25 13:29
系统: 16/18/20/w7
来自: 新疆博乐
联系:

Re: 差点被绕进去了

#12

帖子 TeliuTe » 2012-02-09 19:22

你这啥,要么,是a(i)>a(j),你这,for j那段里,都没提到j啊。。。
麻烦的要死额。
你这,应该用swap a(i), a(j) 这样的。
perl简单。sort { $a <=> $b } @a;
想在Ubuntu下找一个替代VB的,能可视化简单易用的
头像
月下叹逍遥
论坛版主
帖子: 33994
注册时间: 2010-10-07 14:23
系统: Archdows10
来自: 某系某星某洲某国某省某市
联系:

Re: 差点被绕进去了

#13

帖子 月下叹逍遥 » 2012-02-09 19:23

TeliuTe 写了:
你这啥,要么,是a(i)>a(j),你这,for j那段里,都没提到j啊。。。
麻烦的要死额。
你这,应该用swap a(i), a(j) 这样的。
perl简单。sort { $a <=> $b } @a;
想在Ubuntu下找一个替代VB的,能可视化简单易用的
QT吧,虽然不怎么喜欢它。。。
WPS还是用它的。。。
浮生七十今三十,从此凄惶未可知
头像
TeliuTe
论坛版主
帖子: 7675
注册时间: 2007-11-25 13:29
系统: 16/18/20/w7
来自: 新疆博乐
联系:

Re: 差点被绕进去了

#14

帖子 TeliuTe » 2012-02-09 19:27

月下叹逍遥 写了:
TeliuTe 写了:
你这啥,要么,是a(i)>a(j),你这,for j那段里,都没提到j啊。。。
麻烦的要死额。
你这,应该用swap a(i), a(j) 这样的。
perl简单。sort { $a <=> $b } @a;
想在Ubuntu下找一个替代VB的,能可视化简单易用的
QT吧,虽然不怎么喜欢它。。。
WPS还是用它的。。。
找时间试试。。感觉QT要装一堆依赖
WPS 到现在还没见
头像
月下叹逍遥
论坛版主
帖子: 33994
注册时间: 2010-10-07 14:23
系统: Archdows10
来自: 某系某星某洲某国某省某市
联系:

Re: 差点被绕进去了

#15

帖子 月下叹逍遥 » 2012-02-09 19:30

都过了十五了,越来越玄了。。。
浮生七十今三十,从此凄惶未可知
回复