精英专升本编程作业题答案书.docVIP

作业题解 已知ΔABC的两条边和夹角：A=3.0 , B=4.0,∠C=600，求三角形的面积 A=3 B=4 C=PI()/3 AREA=A*B*SIN(C)/2 ?”AREA=”, AREA 键盘输入一个大写字母，要求输出它的ASCII码及其对应的小写字母 ACCEPT “输入一个大写字母:” TO CH ?CH, “的ASCII码为”, ASC(CH) ?CH, “对应的小写字母为”, CHR(ASC(CH)+32) 求两个电阻R1=3Ω，R2=6Ω的串联值和并联值 R1=3 R2=6 RS=R1+R2 RP=1/(1/R1+1/R2) ? “串联等效电阻为”,RS, “欧姆” ? “并联等效电阻为”,RP, “欧姆” 设某工厂2004年的产量为100，若年增长率为5% ，则到2010年的产量是多少？ ? “到2010年的年产量为”,100*(1+0.05)^(2010-2006) 5) 输入两个数和一个运算符(加、减、乘、除)，求其值。例如,输入3和5以及*,则输出15 INPUT “输入一个数:” TO A INPUT “输入另一个数:” TO B ACCEPT “输入运算符:” TO CH DO CASE CASE CH=“+” ? “两数之和为:”,A+B CASE CH=”-“ ? “两数之差为:”,A-B CASE CH=”*” ? “两数之积为:”,A*B CASE CH=“/” ? “两数之商为:”,A/B OTHERWISE ? “运算符有错!” ENDCASE 6) 设交纳所得税的规定如下： 收入=1500元 免交所得税 1500元 收入 =3000元 所得税为5% 3000元 收入 =6000元所得税为 8% 6000元 收入 =10000元所得税为 10% 10000元 收入 =50000元所得税为 15% 收入50000元所得税为 20% 请编程，从键盘输入一个数，计算应交纳的所得税。 INPUT “income=” to x do case case x=1500 tax=0 case x=3000 tax=(X-1500)*0.05 case x=6000 tax=(X-3000)*0.08+(3000-1500)*0.05 case x=10000 tax=(X-6000)*0.1+(6000-3000)*0.08+(3000-1500)*0.05 CASE X=50000 TAX=(X-10000)*0.15+(10000-6000)*0.1+(6000-3000)*0.08+(3000-1500)*0.05 otherwise tax=(X-50000)*0.2+(50000-10000)*0.15+(10000-6000)*0.1 +(6000-3000)*0.08+(3000-1500)*0.05 endcase ?“INCOME TAX IS”,TAX,“元” 7）完成下面分段函数的计算，程序运行时用户从键盘输入一个数值X，在屏幕上输出Y值。 INPUT 请输入X值： TO X IF X0 Y=X*X ELSE IF X=0 Y=0 ELSE Y=-(X*X) ENDIF ENDIF ?Y 求 SUM=0 FOR I=1 TO 21 STEP 2 SUM=SUM+I^3 ENDFOR ?”SUM=”,SUM 通过键盘输入一串字符，统计并输出其中英文字母的个数。 ACCEPT “输入一个字符串” TO S L=LEN(S) N=0 FOR I=1 TO L CH=SUBSTR(S,I,1) IF CH=”A” AND CH=”Z” OR CH=”a” AND CH=”z” N=N+1 ENDIF ENDFOR ?”字符串中有”,N,”个英文字母” RETURN 输入一个少于10位的整数,求该数有几位,并按其倒序输出该数 INPUT “输入一个少于10位的正整数:” TO N S=LTRIM(STR(N)) L=LEN(S) ?该数的倒数为: FOR I=L TO 1 STEP –1 ??SUBSTR(S,I,1) ENDFOR ? “该数共有”,L, “位” 有一分数序列，求前20项之和 M=1 N=2 SUM=0 FOR I=1 TO 20 TERM=N/M SUM=SUM+TERM X=N N=M+N M=X TERM=N/M ENDFOR ?”SUM=”,SUM 建立一个五行五列的矩阵，求出外围所有元素之和。 DIMENSION A(5,5) S=0 S1=0 FOR I=1 TO 5 FO