编程练习题答案

1 计算1～100之间的偶数和。 2 计算1～100之间的奇数和。

3 输出1～100之间不能被7整除的数。（for if） 4 计算n!,n!=1×2×3×……×n，n的值由键盘输入。 5 编程输出100～1000之间能被3整除的数及其个数。 6 输出1～100之间能够同时被3、5、7整除的数。

7 求100～1000之间同时满足除以5余2，除以7余3，除以11于7的所有整数的和及整数的个数。//3，5，6，7在8，9，10，11介绍完自己完成

8 中国剩余定理：\有物不知几何，三三数余一，五五数余二，七七数余三，问： 物有几何？\。编程求1000以内所有解。 CLEAR ENDFOR FOR I=1 TO 1000 ? IF I%3=1 AND I%5=2 AND I%7=3 RETURN ?I ENDIF

9 由键盘输入10个数，输出其中的最大值和最小值。 clear else input \请输入第1个数\ if nmax ?\最大值是：\ max=n ?\最小值是：\

10 由键盘输入若干非0实数，直到输入0时停止，统计其中正数的个数，负数的个数。 CLEAR S1=S1+1 S=0 ELSE S1=0 EXIT DO WHILE .T. ENDIF INPUT ’输入数据：’ TO X ENDIF IF X>0 ENDDO S=S+1 ? ‘正数个数为：’，S ELSE ? ‘负数个数为：’，S1 IF X<0 return

11 判断键盘输入的整数是否为偶数，是输出is，不是输出not。 clear ? n1,“不是偶然——NO\input \请输入一个整数:\endif if mod(n1,2)=0 return ? n1,‘是偶数——YES' else

12 计算s=1 + 2^2 + 2^3 + 2^4+……+2^n，n的值由键盘输入。 clear s=s+p s=1 p=p*2 p=4 endfor input \?s for i=1 to n-1

13 有一函数如下所示：编程输入x的值，输出y的值。 ; y = x ( x<1) ; y = x+5 (1≤x<10) ; y = x-5 (x≥10) clear input \ y=x+5 do case case x>=10 case x<1 y=x-5 y=x endcase case x<10 ? y

14 判断一元二次方程ax2+bx+c=0 是否有实数根，如果有，输出其实根。a,b,c由键盘输入。 clear x1=(-b+sqrt(b*b-4*a*c))/(2*a) input \x2=(-b-sqrt(b*b-4*a*c))/(2*a) input \?x1,x2 input \else if a<>0 and b*b-4*a*c>=0 ?\无实根\?\有实根\endif 15 输入一个年号，判断是否为闰年。若是闰年，输出\年是闰年\，否则输出\年不是闰年\，****为年号。（判断闰年的条件是：年份能够被400整除的是闰年，能够被4整除但不能够被100整除的是闰年）。 input \请输入一个年份：\

if yy%4=0 and yy0<>0 or yy@0=0 ?yy,\是闰年\else

?yy,\不是闰年\Endif

16 由键盘输入3个数A,B,C，按从大到小的顺序排序输出。 clear t=a input \ a=c input \ c=t input \endif if a

17 编程求S=1^2+2^2+……+N^2的值，N的值由键盘输入。 clear s=s+i*i s=0 endfor input \?s for i=1 to n

18 由键盘输入三个数a,b,c，输出其中值最大的数。 CLEAR max=y INPUT \请输入第一个数x=\ ELSE INPUT \请输入第二个数y=\ max=z INPUT \请输入第三个数z=\ ENDIF IF x>=y .AND. x>=z ENDIF max=x ? Max ELSE IF y>=x .AND. y>=z

19 输出１～５的阶乘值(即1！,2！,3！,4！,5！)。 clear p=p*i p=1 ?i,\for i=1 to 5 endfor

20 由键盘输入三角形的三边a,b,c，求三角形的面积。计算三角形面积的公式为：面积＝(s*(s-a)*(s-b)*(s-c))^(1/2)，其中

S=(a+b+c)/2，要求程序能判断输入的三边是否能构成三角形(即任意两边之和大于第三边)。 clear ?\不能构成三角形\input\endif input\?ss input\ if a+b>c and a+c>b and b+c>a s=(a+b+c)/2 ss=(s*(s-b)*(s-a)*(s-c))^(1/2) else

21 用CASE…ENDCASE语句编写程序计算下列分段函数，由键盘输入x的值，输出y的值。 ;

Y= -1 (X<0) ; Y= 0 (X=0) ; Y= 1 (X>0) CLEAR CASE X>0 INPUT 'X=' TO X Y=1 DO CASE ENDCASE CASE X<0 ?’Y=‘,Y Y=-1 RETURN CASE X=0 Y=0

22 体型判断。输入一个人的身高与体重值，按公式判断该人是否肥胖。计算公式为：体指数t=w/(h^2)，其中w为体重（kg），h为身高（m）. ; 当t<18时，为偏低 ; 当18<=t<=25时，为正常 ; 当25=27时，为肥胖 Clear y=\正常\ Input \请输入身高h：\ Case x<27 input\请输入体重 w: \ y=\超胖\ x=w/(h^2) OtherWise Do Case y=\肥胖\ Case x<18 EndCase y=\偏瘦\ ?\该人的体重标准:\ Case x<=25 Return

23 由键盘反复输入任意多个考试成绩grade（百分制），直 到输入-1时结束，按下列标准输出各分数段的人数。 分数 人数 ; 90-100 ; 80-89 ; 70-79 ; 60-69 ; <60 clear ? '80-90',b store 0 to a,b,c,d,e ? '70-80',c do while .t. ? '60-70',d

? '<60',e input '请输入成绩'to cj

do case return case cj>=90 a=a+1 case cj>=80 b=b+1 case cj>=70 c=c+1 case cj>=60 d=d+1 case cj<60 and cj>0 e=e+1 endcase if cj=-1 exit endif Enddo ? '90-100',a

1 已知A>B>C>0，A、B、C为整数，且A+B+C<100，求满足1/(A^2)+1/(B^2)=1/(C^2) 的共有多少组。 clear ?a,b,c for a=1 to 100 endif for b=1 to 100 endfor for c=1 to 100 endfor if a+b+c<100 and a>b and b>c and endfor 1/a^2+1/b^2=1/c^2

2 用循环语句编制程序，输出下列图形。（要求*的行数由键盘输入） * ; * * * ; * * * * * clear ??\input \请输入图形的行数：\ endfor for i=1 to n endfor ? return for j=1 to 2*i-1

3 用循环语句编制程序，输出下列图形。（要求*的行数由键盘输入） * ; * * * ; * * * * * clear

input \请输入图形的行数：\for i=1 to n

? space(n-i) for j=1 to 2*i-1 ??\ endfor endfor

4 编程求输入的两个正整数的最大公约数和最小公倍数。 clear gy=i input '请输入第一个数' to n1 exit input '请输入第二个数' to n2 endif if n1