计算机VF编程参考答案,DOC

四、结构化程序设计

顺序结构程序设计

1、从键盘输入长方体的

长、宽、高，求长方体的

表面积。

input“输入长方体的长：”tox

input“输入长方体的长：”toy

input“输入长方体的长：”toz

s=2*x*y+2*x*z+2*y*z

”长方体的表面积为：”,s

2、从键盘输入圆的半

径，计算圆的面积。

input“输入圆的半径：”tor

)

s=*r^2

”圆的面积为：”,s

3、建立数据库XS，将表

添加到该数据库，并浏览

该表所有数据，最后关闭

数据库。

Createdatabasexs

Addxsqk

Browse

Closeall

4、在表中，查找出生

日期为1983年10月8日

的记录，并显示该记录；

继续查找下一个满足上

述条件的记录，并显示该

记录。

Usexsqk

Locatefor出生日

期 ={^1983-10-8}

{

Display

Continue

Display

Use

分支结构程序设计

1.从键盘输入一个数，若为正数则输出，非正数则结束。

input“输入一个数：”tox

ifx>0

x

endif

!

return

2.求一元二次方程AX2+BX+C=0的实根。

input“输入系数A：”toa

input“输入系数B：”tob

input“输入系数C：”toc

m=b^2-4*a*c

ifm>=0

x1=(-b+sqrt(m))/(2*a)

x2=(-b-sqrt(m))/(2*a)

”x1=”,x1,”x2=”,x2

]

else

”方程无实根！”

endif

3. 从键盘输入一个待查学生的学号，在表中查找。若能找到，则显示该记录，否则，显示信息“该学号不存在”。

usexsqk

accept“输入待查学生学号：”tox

locatefor学号=x

ifnoteof()

display

else

|

“该学号不存在”

Endif

Use

4.从键盘输入一个自然数，若为偶数则输出信息“偶数”，若为奇数则输出信息“奇数”。

input “

输入一个自然数：”tox ifx%2=0

”偶数”

else

”奇数”

endif ，

return

5.计算函数Y 的值。

input “输入X 的值：”tox

，

ifx>=0

f=3*exp(x+2)-1

else

f=2*x+5

endif ”f=”,f

return

6.计算运费。车站从甲地到乙地托运行李，收费规定：若行李重量不超过50公斤，每公斤收费元；若行李重量超过50公斤，其超重部分加收元。编写计算运费的程序。 clear

input"请输入行李的重量："ton ￥

ifn<50

s=n* else

s=n*+(n-50)* endif

"应收费用为：",s return

7．编写根据当前日期显示当前季节的程序。 clear

input"请输入日期："tod

3e x+2-1

2X+5 x>=0

X<0

—

m=month(d)

docase

casem>=3andm<=5

"春季"

casem>=6andm<=8

"夏季"

casem>=9andm<=11

"秋季"

otherwise

"冬季"

#

endcase

return

8．某百货公司为促销，采用购物打折扣的优惠办法，每位顾客一次购物：

（1）1000元至1999元

之间者，按九五折

优惠。

（2）2000元至2999元

之间者，按九折优

惠。

（3）3000元至4999元

之间者，按八五折

优惠。

（4）5000元以上者，按

八折优惠。

编写程序，输入购物款

数，计算并输出优惠价。clear

input"输入你的购物金额："tod —

docase

cased>=1000andd<=1999

m=d*

cased>=2000andd<=2999

m=d*

cased>=3000andd<=4999

m=d*

cased>=5000

m=d*

endcase

？

"打折后的金额是：",m

return

9．编写程序，输入一个数字（0～7），显示其对应星期几的中英文信息。

clear

input"请输入一个数字："ton docase

casen=1

M="星期一(Monday)"

casen=2

M="星期二（Tuesday）" !

casen=3

M="星期三（Wednesday）"

casen=4

M="星期四（Thursday）"

casen=5

M="星期五（Friday）"

casen=6

M="星期六（Saturday）"

casen=0

M="星期日（Sunday）" %

otherwise

M="重新输入"

endcase

"您输入的是："+M

return

10.设计个人纳税计算程序。“税法”规定，使用超额累进税率，以每月收入额减去1600元后的余额，为应纳税所得额，其税率见下表：

clear

input"请输入月收入："ton s=n-1600

docase

!

cases<=500

r=s*

cases<=2500

r=s*10

cases<=5000

r=s*15

cases<=20000

r=s*20

cases<=40000r=s*25

：

cases<=60000

r=s*30

cases<=80000

r=s*35

cases<=100000

r=s*40

otherwise

r=r*

endcase

"应纳税额为：",r

@

return

循环结构

1.求S=1+2+3+……+100 settalkoff

clear

s=0

i=1

dowhilei<=100

s=s+i

i=i+1

《

enddo

"1~100的和为：",s

Return

2.求N！的值。（N！=1*2*3*……*N）

clear

input"请输入n的值："ton

s=1

fori=1ton

s=s*i

endfor

、

"n!=",s

return

3.计算101～500之间的所有奇数之和。clear

s=0

fori=101to500

ifi%2!=0

s=s+i

endif

endfor

【

"101-500的奇数和为：",s return

4.输出100～1000之间能被37整除的数。

settalkoff

clear

fori=100to1000

ifi%37=0

i

endif

endfor

~

settalkon

return

5．求S=1！+2！+3！+ (10)

clear

s=0

T=1

forI=1to10

T=T*i

S=S+1

endfor

;

"S=",S

return

6．求S=1+（1+2）+（1+2+3）+……+（1+2+3+……+N）

clear

input"请输入N的值："toN

s=0

t=0

fori=1toN t=t+i

s=s+t

【

endfor

"总和为：",s

7.从键盘输入一个数，判断其是否为素数。

clear

input"请输入数字："ton

s=0

fori=2ton-1

ifn%i=0

s=1

endif

？

endfor

ifs=0

n,"是素数"

else

n,"不是素数"

endif

return

8.输出从2000到2100年之间的所有闰年。

提示：设N为年份数，若N能满足如下两个条件中任一个，则N为闰年。

（1）N能被4整除并且

N不能被100整

除，

（2）'

（3）或者

N能被400整

除

clear

fori=2000to2100

if(i%4=0andi%100!=0)ori%400 =0

i

endif

endfor 9.在表中，已经有数学、计算机、英语、物理四门课程的成绩，编写程序根据每人的平均成绩，在“总评”字段中填入对应的等级。等级评定办法是：90分以上为优，75～89为良，60～74为及格，60分以下为不及格。clear

usebxcjexclusive

'

scan

avgscore=(数学+计算机+物理+英语)/4

docase

caseavgscore>=90

M="优" caseavgscore>=75

M="良"

caseavgscore>=60

M="及格"

caseavgscore<60

[

M="不及格"

endcase

replace总评withM

endscan

use

10．编写程序，分别统计表中男、女同学的人数。

clear

usexsqkexclusive

store0tom,n

scan

.

if性别='男'

m=m+1

else

n=n+1

endif

endscan "男生人数："+str(m)

"女生人数："+str(n)

use

11．编写程序，中记录倒序逐条显示。

|

clear

usexsqkexclusive

n=reccount()

gobottom

fori=1ton

display

wait

skip-1

endfor

settalkon

（

return

12．输入10个数倒数组中，求它们的和

clear

dimentiona(10)

fori=1to10

input“请输入数据：”toa(i) endfor

s=0

fori=1to10

s=s+a(i)

`

endfor

”10个数的和为：”,s

13．输入10个数倒数组中，求它们的最小值

clear

dimentiona(10)

fori=1to10

input“请输入数据：”toa(i) endfor

min=a(1)

fori=2to10)

ifa(i)

min=a(i)

endif

endfor

”10个数的最小值为：”,min

12．编写程序，使表中每条记录根据职称情况自动进行工资普调。普调规定是：教授每人增加100元，副教授每人增加80元，讲师每人增加50元，助教每人增加30元。

settalkoff

clear

usegongziexclusive

browselast

docase

case职称='教授'

replace基本工资with基本工资+100for职称="教授"

case职称='副教授'

replace基本工资with基本工资+80for职称="副教授"

case职称='讲师'

replace基本工资with基本工资+50for职称="讲师"

case职称='助教'

replace基本工资with基本工资+30for职称="助教" endcase

browselast

use

settalkon

return

13．编写程序，输出如下乘法表。

1×1＝1

2×1＝22×2＝4

3×1＝33×2＝63×3＝9

………………

……………………

9×1＝99×2＝18………………9×9＝81 clear

forx=1to9&&外层循环

y=1

dowhiley<=x&&内层循环

z=x*y

str(y,1)+"*"+str(x,1)+"="+str(z,2)+""

y=y+1

enddo

endfor#