安徽专升本编程作业题答案书.docx
《安徽专升本编程作业题答案书.docx》由会员分享，可在线阅读，更多相关《安徽专升本编程作业题答案书.docx（14页珍藏版）》请在冰点文库上搜索。
安徽专升本编程作业题答案书
作业题解
1）已知ΔABC的两条边和夹角：
A=3.0,B=4.0,∠C=600，求三角形的面积
A=3
B=4
C=60*PI（）/180
AREA=A*B*SIN（C）/2
?
“AREA=”,AREA
2）键盘输入一个大写字母，要求输出它的ASCII码及其对应的小写字母
ACCEPT“输入一个大写字母:
”TOCH
?
CH,“的ASCII码为”,ASC（CH）
?
CH,“对应的小写字母为”,CHR（ASC（CH）+32）
3）求两个电阻R1=3Ω，R2=6Ω的串联值和并联值
R1=3
R2=6
RS=R1+R2
RP=1/（1/R1+1/R2）
?
“串联等效电阻为”,RS,“欧姆”
?
“并联等效电阻为”,RP,“欧姆”
4）设某工厂2004年的产量为100，若年增长率为5%，则到2010年的产量是多少？
?
“到2010年的年产量为”,100*（1+0.05）^（2010-2004）
5）输入两个数和一个运算符（加、减、乘、除），求其值。
例如,输入3和5以及*,则输出15
INPUT“输入一个数:
”TOA
INPUT“输入另一个数:
”TOB
ACCEPT“输入运算符:
”TOCH
DOCASE
CASECH=“+”
?
“两数之和为:
”,A+B
CASECH=”-“
?
“两数之差为:
”,A-B
CASECH=”*”
?
“两数之积为:
”,A*B
CASECH=“/”
?
“两数之商为:
”,A/B
OTHERWISE
?
“运算符有错!
”
ENDCASE
6）设交纳所得税的规定如下：
收入<=1500元免交所得税
1500元<收入<=3000元所得税为5%
3000元<收入<=6000元所得税为8%
6000元<收入<=10000元所得税为10%
10000元<收入<=50000元所得税为15%
收入>50000元所得税为20%
请编程，从键盘输入一个数，计算应交纳的所得税。
INPUT“income=”tox
docase
casex<=1500
tax=0
casex<=3000
tax=（X-1500）*0.05
casex<=6000
tax=（X-3000）*0.08+（3000-1500）*0.05
casex<=10000
tax=（X-6000）*0.1+（6000-3000）*0.08+（3000-1500）*0.05
CASEX<=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
?
“INCOMETAXIS”,TAX,“元”
7）完成下面分段函数的计算，程序运行时用户从键盘输入一个数值X，在屏幕上输出Y值。
INPUT"请输入X值：
"TOX
IFX>0
Y=X*X
ELSE
IFX=0
Y=0
ELSE
Y=-（X*X）
ENDIF
ENDIF
?
Y
8）求
SUM=0
FORI=1TO21STEP2
SUM=SUM+I^3
ENDFOR
?
”SUM=”,SUM
9）通过键盘输入一串字符，统计并输出其中英文字母的个数。
ACCEPT“输入一个字符串”TOS
L=LEN（S）
N=0
FORI=1TOL
CH=SUBSTR（S,I,1）
IFCH>=”A”ANDCH<=”Z”ORCH>=”a”ANDCH<=”z”
N=N+1
ENDIF
ENDFOR
?
”字符串中有”,N,”个英文字母”
RETURN
10）输入一个少于10位的整数,求该数有几位,并按其倒序输出该数
INPUT“输入一个少于10位的正整数:
”TON
ACCEPT“以字符串形式输入整数:
”TOST
L=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,“位”
11）有一分数序列，求前20项之和
M=1
N=2
SUM=0
FORI=1TO20
TERM=N/M
SUM=SUM+TERM
X=N
N=M+N
M=X
TERM=N/M
ENDFOR
?
”SUM=”,SUM
12）建立一个五行五列的矩阵，求出外围所有元素之和。
DIMENSIONA（5,5）
S=0
S1=0
FORI=1TO5
FORJ=1TO5
INPUTTOA（I,J）
S=S+A（I,J）
ENDFOR
ENDFOR
FORI=2TO4
FORJ=2TO4
S1=S1+A（I,J）
ENDFOR
ENDFOR
?
S-S1
13）从键盘输入一个八进制数，将其转换成等值的十进制数。
SETTALKOFF
CLEAR
s=0
accept"EnteraNOCTALnumber:
"ton
L=len（n）
fori=1toL
s=s+val（substr（n,i,1））*8**（L-i）
endfor
?
"s=",s
SETTALKON
CANCEL
14）求Sn=a+aa+aaa+aaaa……，其中，a是一个数字，a的个数为n，a和n由键盘输入
INPUT"输入a的值:
"TOA
INPUT"输入项数n:
"TON
SN=0
B=A
FORI=1TON
SN=SN+A
A=A*10+B
ENDFOR
?
"数列之和为:
",SN
15）从键盘输入一个十进制数，将其转换成等值的八进制数。
SETTALKOFF
CLEAR
input"EnteraDECIMALnumber:
"ton
oct=""
ifn=0
oct="0"
endif
dowhilen>0
R=mod（n,8）
oct=str（R,1）+oct
n=int（n/8）
enddo
?
oct
SETTALKON
CANCEL
16）打印如下图形:
*****
*****
*****
*****
CLEAR
FORI=1TO5
?
SPACE（I）
FORJ=1TO5
?
?
”*”
ENDFOR
ENDFOR
附：
打印如下图形:
*****
****
***
**
*
**
***
****
*****
FORI=5TO1STEP-1
?
?
SPACE（5-I）
FORJ=1TOI
?
?
”*”
ENDFOR
?
ENDFOR
FORI=2TO5
?
?
SPACE（5-I）
FORJ=1TOI
?
?
”*”
ENDFOR
?
ENDFOR
17）从键盘输入10个数，将其按输入的反序输出，并求出它们的平均值
DIMENSIONA（10）
S=0
FORI=1TO10
INPUTTOA（I）
S=S+A（I）
ENDFOR
FORI=10TO1STEP-1
?
A（I）
ENDFOR
?
“平均值为:
”,S/10
18）编写学生成绩统计程序。
设有三位同学，考数学、物理、化学三门课，统计每个同学的总分和平均分
SETTALKOFF
CLEAR
dimes（3,6）
fori=1to3
forj=1to4
input"inputSTUDENT-NOANDSCORE:
"tos（i,j）
endfor
endfor
fori=1to3
s（i,5）=s（i,2）+s（i,3）+s（i,4）
s（i,6）=round（s（i,5）/3,1）
endfor
?
space（5）,"stuno",space（4）,"math",space（4）,"phy",space（5）,"che",space（4）,
"total",space（5）,"aver"
?
fori=1to3
forj=1to6
?
?
s（i,j）
endfor
?
endfor
SETTALKON
CANCEL
19）求ex的台劳级数展开式的前n项之和（运行时输入x=2.0,n=4）
INPUT“X=”TOX
INPUT“N=”TON
SUM=1
P=1
FORI=1TON-1
P=P*I
T=X^I/P
SUM=SUM+T
ENDFOR
?
”SUM=”,SUM
CANCEL
20）已有按从小到大的顺序排列的10个数，现输入一个数，要求插入到数列中。
插入后数列仍然按从小到大顺序排列。
方法一：
DIMENSIONA（11）
FORI=1TO10
INPUT"递增输入10个整数"TOA（I）
ENDFOR
INPUT"任意输入一个整数"TOX
FORI=10TO1STEP-1
IFXIFI=1
A（I+1）=A（I）
A（I）=X
ELSE
A（I+1）=A（I）
ENDIF
ELSE
A（I+1）=X
EXIT
ENDIF
ENDFOR
FORI=1TO11
?
?
A（I）
ENDFOR
?
方法二：
DIMENSIONA（11）
FORI=1TO10
INPUT"递增输入10个整数"TOA（I）
ENDFOR
INPUT"任意输入一个整数"TOA（11）
FORI=1TO10
FORJ=I+1TO11
IFA（I）>A（J）
T=A（I）
A（I）=A（J）
A（J）=T
ENDIF
ENDFOR
ENDFOR
FORI=1TO11
?
?
A（I）
ENDFOR
?
RETURN
方法三：
DIMEA（11）
FORI=1TO10
INPUTTOA（I）
ENDFOR
INPUTTOX
FORI=1TO10
IFA（I）>X
EXIT
ENDIF
ENDFOR
IFI<=10
FORJ=10TOISTEP-1
A（J+1）=A（J）
ENDFOR
A（J+1）=X
ELSE
A（11）=X
ENDIF
FORI=1TO11
?
?
A（I）
ENDFOR
?
CANCEL
升级会员 