VFP编程题及参考答案

VFP编程题及参考答案
1.输入圆的半径，求圆的周长和面积并输出。

解：编写程序如下：
clear
input “请输入圆的半径：” to r
l=2*3.14159*r
s=3.14159*r*r
“圆的周长为：”,l
“圆的面积为：”,s
2.输入梯形上底、下底和高的值，求梯形面积并输出。

解：编写程序如下：
clear
input "请输入梯形的上底：" to shd
input "请输入梯形的下底：" to xd
input "请输入梯形的高：" to g
s=(shd+xd)*g/2
"梯形的面积为：",s
3.输入三角形的三边长（设输入的三边a、b、c能构成三角形），求三角形的周长和面积并输出。

（提示：面积=半周长*(半周长-a)*(半周长-b)*(半周长-c)的平方根）
解：编写程序如下：
clear
input "请输入三角形的第一条边长：" to a
input "请输入三角形的第二条边长：" to b
input "请输入三角形的第三条边长：" to c
L=(a+b+c)/2
s=sqrt(L*(L-a)*(L-b)*(L-c))
"三角形的周长为：",2*L
"三角形的面积为：",s
4.输入2个实数，要求按由小到大的次序输出这两个数。

解：编写程序如下：
clear
input "请输入第一个实数：" to num1
input "请输入第二个实数：" to num2
if (num1>num2)
? num2,num1
else
num1,num2
endif
5.请编写一个“A类邮件”计费程序，求出邮件的邮资费并输出：“A类邮件”计费规定：当邮件重量小于等于200克时，邮资费为每克0.06元；当邮件重量超过200克时，其中200克，按每克0.06元计费，超过200克的重量，按每克0.03元计费。

解：编写程序如下：
clear
input "请输入邮件的重量：" to W
if (W<200)
P=W*0.06
else
P=(W-200)*0.03+200*0.06
endif
"邮件的邮资费为：",P
6.求分段函数y的值:
4X2+3X-3 X>=100
Y= 123 -100<X<100
9X3+5X2-7X-9 X<=-100
解：编写程序如下：
clear
input "请输入X的值：" to x
if (x>=100)
y=4*x^2+3*x-3
else
if (x<=-100)
y=9*x^3+5*x^2-7*x-9
else
y=123
endif
endif
"Y的值为：",y
7.在教学管理“学生”表中，查找姓名为“和音”的记录，如果找到把该记录加上删除标记，没有找到则显示提示信息“查无此人”。

解：编写程序如下：
CLEAR
USE 学生
LOCATE ALL FOR 姓名= "和音"
IF .NOT. EOF()
Delete
ELSE
"查无此人！"
ENDIF
LIST
USE
8.求方程 ax2+bx+c=0 的根（当判别式小于0时，显示“判别式小于0，无实根！”, 当a=0时，显示“a不能为0！”）
解：编写程序如下：
CLEAR
input " 请输入a= " to a
input " 请输入b= " to b
input " 请输入c= " to c
dt=b*b-4*a*c
if a<>0 .and. dt>=0
x1=(-b+sqrt(dt))/(2*a)
x2=(-b-sqrt(dt))/(2*a)
"x1=",x1
"x2=",x2
else
if a=0
"a不能为0"
else
"判别式小于0，无实根！"
endif
endif
9.要求按照输入的考试成绩的等级打印出百分制分数段。

A: “85～100”
B: “70～84”
C: “60～69”
D: “<60”
其他字符：“error”。

解：编写程序如下：
clear
accept “请输入考试成绩的等级:” to dj
DO CASE
CASE upper(dj)=“A”
? “85～100”
CASE upper(dj)=“B”
? “70～84”
CASE upper(dj)=“C”
? “60～69”
CASE upper(dj)=“D”
? “<60”
OTHERWISE
? “error”
ENDCASE
10.计算任一个正整数N以内的所有是3的倍数的和（例：N=100时，S=3+6+9+12+…+99）。

解：编写程序如下：
CLEAR
S=0
input "请输入一个正整数N：" to n
FOR i=3 TO n step 3
S=S+i
ENDFOR
"正整数N以内的所有是3的倍数的和为： " , S
11.求P=N!（即P=N×(N-1)×(N-2)×···×2×1）。

解：编写程序如下：
CLEAR
input "请输入一个正整数N：" to n
P=1
FOR K= N TO 1 STEP -1
P = P * K
ENDFOR
tr(n)+" != ",p &&函数str(n)的作用是把数值n转换成字符n
12.统计“学生”数据表中入学成绩超过620的人数。

解：编写程序如下：
CLEAR
USE 学生
rsh = 0
DO WHILE .NOT. EOF()
IF 入学成绩 > 620
rsh = rsh + 1
ENDIF
SKIP
ENDDO
“入学成绩超过620的人数为：”,rsh
use
13.编程实现从键盘输入10个数后，找出其中最大值、最小值和平均值并输出。

解：编写程序如下：
CLEAR
i=1
INPUT "请输入第1个数据：" TO x
sum1=x
max1=x
min1=x
FOR i=2 TO 10
ii=str(i,2)
INPUT "请输入第"+ii+ "个数据：" TO x
IF x > max1
max1 = x
ENDIF
IF x < min1
min1 = x
ENDIF
sum1=sum1+x
ENDFOR
"您输入的10个任意数中，最大的数是:" ,max1
"您输入的10个任意数中，最小的数是:" ,min1
"您输入的10个任意数的平均值是:" ,sum1/10
14.设某班学生Visual FoxPro成绩已经存入表文件vfp.dbf中，vfp.dbf包含有如下字段：学号N(C,2)，姓名(C，8)，分数(N,3,0)。

编写一个程序用于查找此班成绩最高者，并输出姓名和分数。

解：编写程序如下：
CLEAR
USE vfp
max=分数
n=1
SCAN
if max<分数
max=分数
n=recno()
endif
ENDSCAN
go n
display field 姓名,分数。