如果您无法下载资料,请参考说明:
1、部分资料下载需要金币,请确保您的账户上有足够的金币
2、已购买过的文档,再次下载不重复扣费
3、资料包下载后请先用软件解压,在使用对应软件打开
已知ΔABC的两条边和夹角:A=3.0,B=4.0,∠C=600,求三角形的面积A=3B=4C=PI()/3AREA=A*B*SIN(C)/2?”AREA=”,AREA键盘输入一个大写字母,要求输出它的ASCII码及其对应的小写字母input“输入一个大写字母:”TOCH?CH,“的ASCII码为”,ASC(CH)?CH,“对应的小写字母为”,CHR(ASC(CH)+32)求两个电阻R1=3Ω,R2=6Ω的串联值和并联值R1=3R2=6RS=R1+R2RP=1/(1/R1+1/R2)?“串联等效电阻为”,RS,“欧姆”?“并联等效电阻为”,RP,“欧姆”设某工厂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?“运算符有错!”ENDCASE6)设交纳所得税的规定如下:收入<=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-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值。INPUT"请输入X值:"TOXIFX>0Y=X*XELSEIFX=0Y=0ELSEY=-(X*X)ENDIFENDIF?Y求SUM=0FORI=1TO21STEP2SUM=SUM+I^3ENDFOR?”SUM=”,SUM通过键盘输入一串字符,统计并输出其中英文字母的个数。INPUT“输入一个字符串”TOSL=LEN(S)N=0FORI=1TOLCH=SUBSTR(S,I,1)IFCH>=”A”ANDCH<=”Z”ORCH>=”a”ANDCH<=”z”N=N+1ENDIFENDFOR?”字符串中有”,N,”个英文字母”RETURN输入一个少于10位的整数,求该数有几位,并按其倒序输出该数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,“位”有一分数序列,求前20项之和M=1N=2SUM=0FORI=1TO20TERM=N/MSUM=SUM+TERMX=NN=M+NM=XTERM=N/MENDFOR?”SUM=”,SUM建立一个五行五列的矩阵,求出外围所有元素之和。DIMENSIONA(5,5)S=0S1=0FORI=1TO5FORJ=1TO5INPUTTOA(I,J)S=S+A(I,J)ENDFORENDFORFORI=2TO4FORJ=2TO4S1