安徽专升本编程作业题答案书.docx

安徽专升本编程作业题答案书.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

IFX

IFI=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