VFP编程题及参考答案(可打印修改).pdfVIP

VFP编程题及参考答案

1.输入圆的半径，求圆的周长和面积并输出。

解：编写程序如下：

clear

input“请输入圆的半径：”tor

l=2*3.14159*r

s=3.14159*r*r

?“圆的周长为：”,l

?“圆的面积为：”,s

2.输入梯形上底、下底和高的值，求梯形面积并输出。

解：编写程序如下：

clearclear

请输入梯形的上底：请输入梯形的上底：请输入梯形的上底：

请输入梯形的下底：请输入梯形的下底：请输入梯形的下底：

请输入梯形的高：请输入梯形的高：

s=(shd+xd)*g/2s=(shd+xd)*g/2

梯形的面积为：梯形的面积为：

3.输入三角形的三边长（设输入的三边a、b、c能构成三角形），求三角形的周长和面积并

输出。（提示：面积=半周长*(半周长-a)*(半周长-b)*(半周长-c)的平方根）

解：编写程序如下：

clearclear

请输入三角形的第一条边长：请输入三角形的第一条边长：请输入三角形的第一条边长：

请输入三角形的第二条边长：请输入三角形的第二条边长：请输入三角形的第二条边长：

请输入三角形的第三条边长：请输入三角形的第三条边长：

L=(a+b+c)/2

s=sqrt(L*(L-a)*(L-b)*(L-c)))

三角形的周长为：三角形的周长为：2*L2*L

三角形的面积为：三角形的面积为：

4.输入2个实数，要求按由小到大的次序输出这两个数。

解：编写程序如下：

clearclear

请输入第一个实数：请输入第一个实数：请输入第一个实数：

请输入第二个实数：请输入第二个实数：

if(num1num2)

?num2,num1

else

?num1,num2

endif

1

5.请编写一个“A类邮件”计费程序，求出邮件的邮资费并输出：“A类邮件”计费规定：

当邮件重量小于等于200克时，邮资费为每克0.06元；当邮件重量超过200克时，其中

200克，按每克0.06元计费，超过200克的重量，按每克0.03元计费。

解：编写程序如下：

clearclear

请输入邮件的重量：请输入邮件的重量：

if(W200)

P=W*0.06

else

P=(W-200)*0.03+200*0.06

endifendif

邮件的邮资费为：邮件的邮资费为：

6.求分段函数y的值:

4X2+3X-3X=100

Y=123-100X100

9X3+5X2-7X-9X=-100

解：编写程序如下：

clearclear

请输入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

endifendif

的值为：的值为：

7.在教学管理“学生”表中，查找姓名为“和音”的记录，如果找到把该记录加上删除标

记，没有找到则显示提示信息“查无此人”。

解：编写程序如下：

CLEAR

USE学生

LOCATEALLFOR姓名==和音和音

IF.NOT.EOF()

Delete

ELSEELSE

查无此人！查无此人！

ENDIF

LIST

2

USE

8.求方程ax2+bx+c=0的根（当判别式小于0时，显示“判别式小于0，无实根！”,当

a=0时，显示“a不能为0！”）

解：编写程序如下：

CLEARCLEAR