合肥精英学校专升本计算机基础复习资料 第 6 页 徐奇观编
FOR
I=初值
T I超过终值？ F
FOR 循环
执行语句 EXIT
I=I+步长
ENDFOR
1. 输入一个半径值，求圆周长、圆面积、球表面积和球体积 INPUT “输入半径” TO R S=2*PI()*R ?”圆周长:”,S
?”圆面积:”,PI()*R*R
?”球表面积”,4*3.14*R**2 ?”球体积:”,4/3*3.14*R^3
2. 键盘输入一个摄氏温度，求其对应的华氏温度；输入一个华氏温度，求其对应的摄氏温度 INPUT “输入摄氏温度” TO C F=1.8*C+32
? “等于华氏温度”,F
INPUT “输入华氏温度” TO F C=(F-32)/1.8
? “等于摄氏温度”,C
3. 键盘输入三个数，求其最大数和最小数，并输出之。 INPUT TO A INPUT TO B INPUT TO C
?”其中最大数为:”,MAX(A,B,C) ?”其中最小数为:”,MIN(A,B,C)
合肥精英学校专升本计算机基础复习资料 第 7 页 徐奇观编
4. 键盘输入五个数，去掉一个最高分，去掉一个最低分，求其余三个数的平均分。 INPUT TO A INPUT TO B INPUT TO C INPUT TO D INPUT TO E
MA=MAX(A,B,C,D,E) MI=MIN(A,B,C,D,E) SUM=A+B+C+D+E
AVER=(SUM-MA-MI)/3 ?”平均分为:”,AVER
5. 键盘输入三边之长，求所构成的三角形的面积。 INPUT TO A INPUT TO B INPUT TO C S=(A+B+C)/2
AREA=SQRT(S*(S-A)*(S-B)*(S-C)) ?“三角形的面积为:”,AREA
课外练习题一 1) 已知ΔABC的两条边和夹角：A=3.0 , B=4.0,∠C=600，求三角形的面积 2) 键盘输入一个大写字母，要求输出它的ASCII码及其对应的小写字母 3) 求两个电阻R1=3Ω，R2=6Ω的串联值和并联值
4) 设某工厂2004年的产量为100，若年增长率为5% ，则到2010年的产量是多少？ 6. 从键盘输入一个整数，判断是偶数还是奇数 INPUT \请输入一个正整数:\IF MOD(SZ,2)=0 ?\这是个偶数\ELSE
?\这是个奇数\ENDIF
7. 输入乘车的公里数，输出乘车费。（记费标准为：2.5公里之内6元；2.5公里以外，每超过1公里增加1元2
角）
INPUT \请输入公里数:\IF X>2.5 若钱数四舍五入到元，则 PAY= (X-2.5) *1.2+6 PAY=ROUND(((X-2.5)*1.2+6),0) ELSE
PAY=6 ENDIF
?\应付费\ PAY, ”元”
合肥精英学校专升本计算机基础复习资料 第 8 页 徐奇观编
8. 从键盘输入三个数，分别赋予A，B，C三个变量，编程使A中存放最大数，C中存放最小数，并按A，B，
C的次序输出 方法一 方法二 INPUT TO A INPUT TO A INPUT TO B INPUT TO B INPUT TO C INPUT TO C IF A
?”最大数为:”,A,”最小数为:”,C ?A,B,C
9. 编程求一元二次方程:
ax2?bx?c?0的实根（设A不等于0）
INPUT \INPUT \INPUT \D=B*B-4*A*C IF D>0
X1=(-B+SQRT(D))/(2*A) X2=(-B-SQRT(D))/(2*A) ?\ ?\ELSE
IF D=0
X=-B/(2*A) ?\ ELSE
?\ ENDIF ENDIF
这部分也可以改写如下： DO CASE CASE D>0 X1=(-B+SQRT(D))/(2*A) X2=(-B-SQRT(D))/(2*A) ?\?\CASE D=0 X=-B/(2*A) ?\OTHERWISE ?\ENDCASE 合肥精英学校专升本计算机基础复习资料 第 9 页 徐奇观编
10. 输入一个X值，求Y值：
?x?y??2x?1?3x?11?x?11?x?10 x?10INPUT TO X DO CASE CASE X<1 Y=X CASE X<10 Y=2*X-1 CASE X>=10 Y=3*X-11 ENDCASE ?”Y=”,Y
11. 键盘输入一个年份，判断是平年还是闰年？ INPUT “ENTER A YEAR：” TO Y
IF MOD(Y,4)=0 AND MOD(Y,100)<>0 OR MOD(Y,400)=0 ?Y, ”IS A LEAP YEAR.” ELSE
?Y, ”IS A COMMON YEAR.” ENDIF
12. 输入一个字符，判断是否为英文字母。
ACCEPT “请输入一个字符:” TO CH && 或 WAIT “请输入一个字符:” TO CH IF ASC(CH)>=65 AND ASC(CH)<=90 OR ASC(CH)>=97 AND ASC(CH)<=122 ?CH,”是英文字母” ELSE
?CH,”不是英文字母” ENDIF
&& 也可以 IF CH>=\
13. 键盘输入某学生的考试成绩，若95~100 则输出优秀；85~94则输出很好；70~84则输出好；60~69则输出一
般；60以下，输出不及格。
INPUT \DO CASE
CASE SCORE>=95 ?\ CASE SCORE>=85 ?\ CASE SCORE>=70 ?\
CASE SCORE>=60 ?\
合肥精英学校专升本计算机基础复习资料 第 10 页 徐奇观编
OTHERWISE ?\ENDCASE
课外练习题二 5) 输入两个数和一个运算符(加、减、乘、除)，求其值。例如,输入3和5以及*,则输出15 6) 设交纳所得税的规定如下:
收入<=1500元免交所得税
1500元 < 收入 <=3000元 所得税为5% 3000元 < 收入 <=6000元所得税为 8% 6000元 < 收入 <=10000元所得税为 10% 10000元 < 收入 <=50000元所得税为 15% 收入>50000元所得税为 20%
请编程,从键盘输入一个数,计算应交纳的所得税
7) 完成下面分段函数的计算，程序运行时用户从键盘输入一个数值X，在屏幕上输出Y值。
?x2?Y??0
??x2?2
2
2
ifififx?0x?0
x?014. 求 1 + 4+ 7 + ??一直加到超过1000为止，输出和数与项数。 I=1 S=0 N=0
DO WHILE S<=1000 S=S+I^2 I=I+3 N=N+1 ENDDO
?N,\?\
15. 求Π值，直到某项的绝对值<0.000001为止。
?411?1?1??357???????
PI=0.0 S=1.0 N=1 T=S/N
DO WHILE ABS(T)>1E-06 PI=PI+T S= -S N=N+2