VFP编程题答案Word格式文档下载.docx
《VFP编程题答案Word格式文档下载.docx》由会员分享,可在线阅读,更多相关《VFP编程题答案Word格式文档下载.docx(15页珍藏版)》请在冰豆网上搜索。
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“输入待查学生学号:
locatefor学号=x
ifnoteof()
display
“该学号不存在”
Endif
Use
4.从键盘输入一个自然数,若为偶数则输出信息“偶数”,若为奇数则输出信息“奇数”。
input“输入一个自然数:
ifx%2=0
”偶数”
”奇数”
5.计算函数Y的值。
5.答案
input“输入X的值:
f=3*exp(x+2)-1
f=2*x+5
”f=”,f
6.计算运费。
车站从甲地到乙地托运行李,收费规定:
若行李重量不超过50公斤,每公斤收费元;
若行李重量超过50公斤,其超重部分加收元。
编写计算运费的程序。
clear
input"
请输入行李的重量:
"
ton
ifn<
50
s=n*
s=n*+(n-50)*
"
应收费用为:
s
7.编写根据当前日期显示当前季节的程序。
请输入日期:
tod
m=month(d)
docase
casem>
=3andm<
=5
"
春季"
=6andm<
=8
夏季"
=9andm<
=11
秋季"
otherwise
冬季"
endcase
8.某百货公司为促销,采用购物打折扣的优惠办法,每位顾客一次购物:
(1)1000元至1999元之间者,按九五折优惠。
(2)2000元至2999元之间者,按九折优惠。
(3)3000元至4999元之间者,按八五折优惠。
(4)5000元以上者,按八折优惠。
编写程序,输入购物款数,计算并输出优惠价。
输入你的购物金额:
cased>
=1000andd<
=1999
m=d*
=2000andd<
=2999
m=d*
=3000andd<
=4999
=5000
endcase
打折后的金额是:
m
return
9.编写程序,输入一个数字(0~7),显示其对应星期几的中英文信息。
请输入一个数字:
casen=1
M="
星期一(Monday)"
casen=2
星期二(Tuesday)"
casen=3
星期三(Wednesday)"
casen=4
星期四(Thursday)"
casen=5
星期五(Friday)"
casen=6
星期六(Saturday)"
casen=0
星期日(Sunday)"
重新输入"
您输入的是:
+M
10.设计个人纳税计算程序。
“税法”规定,使用超额累进税率,以每月收入额减去1600元后的余额,为应纳税所得额,其税率见下表:
级数
全月应纳税所得额
税率(%)
1
不超过500元
5
2
500~2000元
10
3
2000~5000元
15
4
5000~20000元
20
20000~40000元
25
6
40000~60000元
30
7
60000~80000元
35
8
80000~100000元
40
9
100000元以上
45
请输入月收入:
s=n-1600
cases<
=500
r=s*
=2500
r=s*10
r=s*15
=20000
r=s*20
=40000
r=s*25
=60000
r=s*30
=80000
r=s*35
=100000
r=s*40
r=r*
应纳税额为:
r
循环结构
1.求S=1+2+3+……+100
settalkoff
s=0
i=1
dowhilei<
=100
s=s+i
i=i+1
enddo
1~100的和为:
Return
2.求N!
的值。
(N!
=1*2*3*……*N)
请输入n的值:
s=1
fori=1ton
s=s*i
endfor
n!
="
3.计算101~500之间的所有奇数之和。
fori=101to500
ifi%2!
101-500的奇数和为:
4.输出100~1000之间能被37整除的数。
fori=100to1000
ifi%37=0
i
settalkon
5.求S=1!
+2!
+3!
+……+10!
s=0
T=1
forI=1to10
T=T*i
S=S+1
S="
S
6.求S=1+(1+2)+(1+2+3)+……+(1+2+3+……+N)
请输入N的值:
toN
t=0
fori=1toN
t=t+i
s=s+t
总和为:
7.从键盘输入一个数,判断其是否为素数。
请输入数字:
fori=2ton-1
ifn%i=0
s=1
endfor
ifs=0
n,"
是素数"
不是素数"
8.输出从2000到2100年之间的所有闰年。
提示:
设N为年份数,若N能满足如下两个条件中任一个,则N为闰年。
(1)N能被4整除并且N不能被100整除,
(2)或者N能被400整除
fori=2000to2100
if(i%4=0andi%100!
=0)ori%400=0
9.在表中,已经有数学、计算机、英语、物理四门课程的成绩,编写程序根据每人的平均成绩,在“总评”字段中填入对应的等级。
等级评定办法是:
90分以上为优,75~89为良,60~74为及格,60分以下为不及格。
clear
usebxcjexclusive
avgscore=0
scan
avgscore=(数学+计算机+物理+英语)/4
caseavgscore>
=90
M="
优"
=75
M="
良"
=60
及格"
caseavgscore<
60
不及格"
replace总评withM
endscan
use
10.编写程序,分别统计表中男、女同学的人数。
usexsqkexclusive
store0tom,n
if性别='
男'
m=m+1
n=n+1
男生人数:
+str(m)
女生人数:
+str(n)
use
11.编写程序,中记录倒序逐条显示。
n=reccount()
gobottom
display
wait
skip-1
12.编写程序,使表GONGZI.DBF中每条记录根据职称情况自动进行工资普调。
普调规定是:
教授每人增加100元,副教授每人增加80元,讲师每人增加50元,助教每人增加30元。
usegongziexclusive
browselast
case职称='
教授'
replace基本工资with基本工资+100for职称="
教授"
副教授'
replace基本工资with基本工资+80for职称="
副教授"
讲师'
replace基本工资with基本工资+50for职称="
讲师"
助教'
replace基本工资with基本工资+30for职称="
助教"
13.编写程序,输出如下乘法表。
1×
1=1
2×
1=22×
2=4
3×
1=33×
2=63×
3=9
…… …… ……
…… …… …… ……
9×
1=99×
2=18………………9×
9=81
forx=1to9&
&
外层循环
y=1
dowhiley<
=x&
内层循环
z=x*y
str(y,1)+"
*"
+str(x,1)+"
+str(z,2)+"
y=y+1
enddo