vfp中计算n（从键盘输入的正整数）个实数（从键盘输入）去掉其中最大数和最小数之后的平均值的程序怎么写

vfp中计算n（从键盘输入的正整数）个实数（从键盘输入）去掉其中最大数和最小数之后的平均值的程序怎么写

CLEAR

INPUT "输入共N个(正整数)个数字：" TO nN

DIMENSION sz(nN)

INPUT "输入第1个数字：" TO sz(1)

zds=sz(1)

zxs=sz(1)

hjs=sz(1)

FOR il=2 TO nN

INPUT "输入第"+ALLTRIM(STR(il))+"个数字：" TO sz(il)

hjs=hjs+sz(il)

IF zds<sz(il)

zds=sz(il)

ENDIF

IF zxs>sz(il)

zxs=sz(il)

ENDIF

ENDFOR

"最大数:",zds

"最小数:",zxs

"去掉其中最大数和最小数之后的平均值：",(hjs-zds-zxs)/(nN-2)

RETURN

clear

accept "请输入正整数：" to num

n=len(num)

ji=1

for i=1 to n

ji=jival(substr(num,i,1))

endfor

"正整数的各位上的数字之积为："+alltrim(str(ji))

246810┅2n=(2^n)(123n)

n=40时

246810┅2n=（2^40))(12340)>(2^40)(2^40)=2^80,这几乎是一个天文数字，第一我们一般的机器计算要花我们等不了的时间来计算；第二，用vfp里的任何变量类型都不可能表示那么大的数值。所以现阶段只能用所谓高精度算法来解决，但计算时间几乎是等不了的。

可以参考“高精度计算”的相关问题论述，即算法方面的程序，vfp在此方面是很低能的。

对不起，没给你一个程序，只是一个参考建议。

如果是VB大意是这样，如果是VF我就不清楚了

dim i,t

for i=1 to 105 step 5（步长为5来递进，一遇到数就相加）

t=0+i

……

CLEAR

accept

"请输入第一个随机的三位数:"

to

x1

accept

"请输入第二个随机的三位数:"

to

x2

s=0

&&统计水仙花数

t1=MIN(x1,x2)

t2=MAX(x1,x2)

t="在"+t1+"和"+t2+"之间的水仙花数有:"

FOR

a=1

TO

9

FOR

b=0

TO

9

FOR

c=

0

to

9

x=a100+b10+c

IF

x=a^3+b^3+c^3

IF

x>=VAL(t1)

AND

x<=VAL(t2)

s=s+1

t=t+STR(x)

ENDIF

ENDIF

ENDFOR

ENDFOR

ENDFOR

"在"+t1+"和"+t2+"之间的水仙花数有:"+STR(s)+"个"

t

以上就是关于vfp中计算n（从键盘输入的正整数）个实数（从键盘输入）去掉其中最大数和最小数之后的平均值的程序怎么写全部的内容，包括:vfp中计算n（从键盘输入的正整数）个实数（从键盘输入）去掉其中最大数和最小数之后的平均值的程序怎么写、用计算机vfp程序编程计算正整数num的各位上的数字之积.、vfp的乘法计算题 2*4*6*8*10*┅*2n（n=40） 求编程过程等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！