Question

VfP中三个数按大小排列的编程

任意输入三个数abc,让其中的最大值=z1 最小值=z3 另一个数为z2
输出时按z1 z2 z3排列

Answer 1

SET DECIMALS TO 0

aa = INPUTBOX("输入一个3位数：")
IF EMPTY(aa)
MESSAGEBOX("不能是一个空数",16,"提示")
RETURN
ENDIF
IF LEN(ALLTRIM(aa)) != 3
MESSAGEBOX("位数不对",16,"")
RETURN
ENDIF
a1 = VAL(SUBSTR(aa,1,1))
a2 = VAL(SUBSTR(aa,2,1))
a3 = VAL(SUBSTR(aa,3,1))

z1 = MAX(MAX(a1,a2),a3)
z3 = MIN(MIN(a1,a2),a3)
z2 = a1 + a2 + a3 - z1 - z3

kk = ''
kk = TRANSFORM(z1) + TRANSFORM(z2) + TRANSFORM(z3)

?kk

Answer 2

clear
input "a=" to a
input "b=" to b
input "c=" to c
if a<b
t=a
a=b
b=t
endif
if a<c
t=a
a=c
c=t
endif
if b<c
t=b
b=c
c=t
endif
z1=a
z2=b
z3=c
?z1,z2,z3
return

Answer 3

clear
dime a(3)
for i=1 to 3
input "请输入一个数：" to a(i)
endfor
?"降序排列为："
for i=1 to 2
for j=i+1 to 3
if a(i)<a(j)
k=a(i)
a(i)=a(j)
a(j)=k
endif
endfor
??alltrim(str(a(i)))+" "
endfor
??alltrim(str(a(i)))