您所在位置：主题：谁能帮忙?感激不尽
萧山·湘凌子
[专家分：10] 发布于 2005-05-10 16:34:00
给十个数排序除了“冒泡法”之外还有什么方法？望大侠们指教，最好能将程序告诉我 qq:395838063
“冒泡法”程序如下：
cls
for i = 1 to 10
input a(i)
next i
for m = 1 to 9
for n = 1 to 9
if a(n)<a(n+1) then
let c =a(n)
let a(n) = a(n+1)
let a(n+1) = c
end if
next n
next m
for y = 1 to 10
print a(y)
next y
end
以上程序就是将任意输入的十个数用“冒泡法”按从大到小的顺序排列。除此之外，我又找到一种方法：
for i = 1 to 10
input a(i)
next i
for m = 1 to 9
for n = m to 9
if a(m)<a(n+1) then
let c = a(m)
let a(m) =a(n+1)
let a(n+1) =c
end if
next n
next m
for u = 1 to 10
print a(u)
next u
end
请问各位大侠，除了这两种方法之外还有第三种方法吗？我冥思苦想了一个多周也没有想出来，望大侠们住小弟一臂之力。
“冒泡法”程序如下：
cls
for i = 1 to 10
input a(i)
next i
for m = 1 to 9
for n = 1 to 9
if a(n)<a(n+1) then
let c =a(n)
let a(n) = a(n+1)
let a(n+1) = c
end if
next n
next m
for y = 1 to 10
print a(y)
next y
end
以上程序就是将任意输入的十个数用“冒泡法”按从大到小的顺序排列。除此之外，我又找到一种方法：
for i = 1 to 10
input a(i)
next i
for m = 1 to 9
for n = m to 9
if a(m)<a(n+1) then
let c = a(m)
let a(m) =a(n+1)
let a(n+1) =c
end if
next n
next m
for u = 1 to 10
print a(u)
next u
end
请问各位大侠，除了这两种方法之外还有第三种方法吗？我冥思苦想了一个多周也没有想出来，望大侠们住小弟一臂之力。
