数的排列(300分)

C

cy_sun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-10

• #1

有一组数字分别存放在edit1~edit10中
要求将他们从小到大进行排列后重新存放回edit1~edit10中

希望各位大虾提供宝贵意见，谢了
要源码 ，分数不够可以再加，我不介意的

 

T

taim

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-10

• #2

定义一个数组，在比较，最大的放在edit10中，次大的放在edit9中，......最小的放在edit1中。
具体的算法还是自己想吧

 

S

SINGLBOY

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-10

• #3

主要是String-->double的问题

 

C

cy_sun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-10

• #4

请给出详解，最好有详细的原码和注释

 

H

Hjking

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-10

• #5

定义一个数组A[1。。10]，存放EDIT1~EDIT10里的数，用冒泡法或是别的排序算法排好后再赋予
EDIT1~EDIT10，EDIT1。TEXT：=INTTOSTR（A[1]）。。。。。。

 

陈

陈杨

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-10

• #6

l:=1;
repeat
flag:=true;
for j:=1 to 25-l do
if a[j]>a[j+1]
then begin
temp:=a[j];
a[j]:=a[j+1];
a[j+1]:=temp;
flag:=false;
end;
l:=l+1;
Until flag;

可以了吗！

 

C

cy_sun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-11

• #7

接受答案了.