作业帮 > 综合 > 作业

vfp中求N个数的最大值和最小值

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/10/06 19:31:45
vfp中求N个数的最大值和最小值
不要用定义数组,
*vfp中求N个数的最大值和最小值
CLEAR
INPUT "请输入1个数('E'-退出):" TO n
IF VARTYPE(n)='C' and UPPER(n)="E"
RETURN
ENDIF
IF VARTYPE(n)="C"
n=VAL(n)
ENDIF
nmax=n
nmin=n
DO WHILE .t.
INPUT "请再输入1个数('E'-退出):" TO n
IF VARTYPE(n)='C' and UPPER(n)="E"
EXIT
ENDIF
IF VARTYPE(n)="C"
n=VAL(n)
ENDIF
IF n>nmax
nmax=n
ENDIF
IF N