资源描述：
《编程题资料(附答案)》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、1)已知ΔABC的两条边和夹角：A=3.0,B=4.0,∠C=600，求三角形的面积A=3B=4C=PI()/3AREA=A*B*SIN(C)/2?”AREA=”,AREA2)键盘输入一个大写字母，要求输出它的ASCII码及其对应的小写字母INPUT“输入一个大写字母:”TOCH?CH,“的ASCII码为”,ASC(CH)?CH,“对应的小写字母为”,CHR(ASC(CH)+32)3)求两个电阻R1=3Ω，R2=6Ω的串联值和并联值R1=3R2=6RS=R1+R2RP=1/(1/R1+1/R2)?“串联等效电阻为”,RS,“欧姆”?“并联等效电阻为”,RP,“欧姆”4)设某
2、工厂2004年的产量为100，若年增长率为5%，则到2010年的产量是多少？?“到2010年的年产量为”,100*(1+0.05)^(2010-2006)5)输入两个数和一个运算符(加、减、乘、除)，求其值。例如,输入3和5以及*,则输出15INPUT“输入一个数:”TOAINPUT“输入另一个数:”TOBINPUT“输入运算符:”TOCHDOCASECASECH=“+”?“两数之和为:”,A+BCASECH=”-“?“两数之差为:”,A-BCASECH=”*”?“两数之积为:”,A*BCASECH=“/”?“两数之商为:”,A/BOTHERWISE?“运算符有错!”END
3、CASE6)设交纳所得税的规定如下：收入<=1500元免交所得税1500元<收入<=3000元所得税为5%3000元<收入<=6000元所得税为8%6000元<收入<=10000元所得税为10%10000元<收入<=50000元所得税为15%收入>50000元所得税为20%请编程，从键盘输入一个数，计算应交纳的所得税。INPUT“INCOME=”TOXDOCASECASEX<=1500TAX=0CASEX<=3000TAX=(X-1500)*0.05CASEX<=6000TAX=(X-3000)*0.08+(3000-1500)*0.05CASEX<=10000TAX=(X
4、-6000)*0.1+(6000-3000)*0.08+(3000-1500)*0.05CASEX<=50000TAX=(X-10000)*0.15+(10000-6000)*0.1+(6000-3000)*0.08+(3000-1500)*0.05OTHERWISETAX=(X-50000)*0.2+(50000-10000)*0.15+(10000-6000)*0.1&+(6000-3000)*0.08+(3000-1500)*0.05ENDCASE?“INCOMETAXIS”,TAX,“元”7）完成下面分段函数的计算，程序运行时用户从键盘输入一个数值X，在屏幕上输出Y
5、值。INPUT"请输入X值："TOXIFX>0Y=X*XELSEIFX=0Y=0ELSEY=-(X*X)ENDIFENDIF?Y8)求SUM=0FORI=1TO21STEP2SUM=SUM+I^3ENDFOR?”SUM=”,SUM9)通过键盘输入一串字符，统计并输出其中英文字母的个数。INPUT“输入一个字符串”TOSL=LEN(S)N=0FORI=1TOLCH=SUBSTR(S,I,1)IFCH>=”A”ANDCH<=”Z”ORCH>=”a”ANDCH<=”z”N=N+1ENDIFENDFOR?”字符串中有”,N,”个英文字母”RETURN10)输入一个少于10位的整数,
6、求该数有几位,并按其倒序输出该数INPUT“输入一个少于10位的正整数:”TONACCEPT“以字符串形式输入整数:”TOSTL=LEN(ST)?"该数的倒数为:"FORI=LTO1STEP–1??SUBSTR(ST,I,1)ENDFOR?“该数共有”,L,“位”S=LTRIM(STR(N))L=LEN(S)?"该数的倒数为:"FORI=LTO1STEP–1??SUBSTR(S,I,1)ENDFOR?“该数共有”,L,“位”10)有一分数序列，求前20项之和M=1N=2SUM=0FORI=1TO20TERM=N/MSUM=SUM+TERMX=NN=M+NM=XTERM=N/
7、MENDFOR?”SUM=”,SUM11)建立一个五行五列的矩阵，求出外围所有元素之和。DIMENSIONA(5,5)S=0S1=0FORI=1TO5FORJ=1TO5INPUTTOA(I,J)S=S+A(I,J)ENDFORENDFORFORI=2TO4FORJ=2TO4S1=S1+A(I,J)ENDFORENDFOR?S-S113)从键盘输入一个八进制数，将其转换成等值的十进制数。CLEARSETTALKOFFS=0INPUT"ENTERANOCTALNUMBER:"TONL=LEN(N)FORI=1TOLS=
