编程练习题答案.docVIP

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 FOR I=1 TO 1000 IF I%3=1 AND I%5=2 AND I%7=3 ?I ENDIF ENDFOR ? RETURN  9 由键盘输入10个数，输出其中的最大值和最小值。 clear input 请输入第1个数 to n store n to max,min for i=2 to 10 input 请输入第+str(i,2)+数 to n if nmax max=n else if nmin min=n endif endif endfor ?最大值是：,max ?最小值是：,min 10 由键盘输入若干非0实数，直到输入0时停止，统计其中正数的个数，负数的个数。 CLEAR S=0 S1=0 DO WHILE .T. INPUT ’输入数据：’ TO X IF X0 S=S+1 ELSE IF X0 S1=S1+1 ELSE EXIT ENDIF ENDIF ENDDO ? ‘正数个数为：’，S ? ‘负数个数为：’，S1 return  11 判断键盘输入的整数是否为偶数，是输出is，不是输出not。 clear input 请输入一个整数: to n1 if mod(n1,2)=0 ? n1,‘是偶数——YES else ? n1,“不是偶然——NO endif return  12 计算s=1 + 2^2 + 2^3 + 2^4+……+2^n，n的值由键盘输入。 clear s=1 p=4 input n: to n for i=1 to n-1 s=s+p p=p*2 endfor ?s  13 有一函数如下所示：编程输入x的值，输出y的值。 ; y = x ( x1) ; y = x+5 (1≤x10) ; y = x-5 (x≥10) clear input x: to x do case case x1 y=x case x10 y=x+5 case x=10 y=x-5 endcase ? y  14 判断一元二次方程ax2+bx+c=0 是否有实数根，如果有，输出其实根。a,b,c由键盘输入。 clear input a:to a input b: to b input c: to c if a0 and b*b-4*a*c=0 ?ax2+bx+c有实根 x1=(-b+sqrt(b*b-4*a*c))/(2*a) x2=(-b-sqrt(b*b-4*a*c))/(2*a) ?x1,x2 else ?无实根 endif  15 输入一个年号，判断是否为闰年。若是闰年，输出****年是闰年，否则输出****年不是闰年，****为年号。（判断闰年的条件是：年份能够被400整除的是闰年，能够被4整除但不能够被100整除的是闰年）。 input 请输入一个年份： to yy if yy%4=0 and yy%1000 or yy%400=0 ?yy,是闰年 else ?yy,不是闰年 Endif 16 由键盘输入3个数A,B,C，按从大到小的顺序排序输出。 clear input a= to a input b= to b input c= to c if ab t=a