VisualFoxPro程序设计实习教程与习题集程序.docVIP

《Visual FoxPro程序设计实习教程与习题集》 《实习教程》第11单元 程序设计初步 (参考答案) 1．编写一程序，计算并显示圆的周长(L)和面积(S)，其中半径(R)由INPUT语句读入。 ??? SET TALK OFF??? INPUT R: TO R??? PI=3.1416??? L=2*PI*R??? S=PI*R^2??? ? L=,L??? ? S=,S??? RETURN 2. 编写一程序，读入圆柱体的高(H)和底面半径(R)，计算并显示圆柱体的体积(V)。 ??? SET TALK OFF??? INPUT H: TO H??? INPUT R: TO R??? V=3.1416*R^2*H??? ? V=,V??? RETURN 3. 编写一程序，首先由用户输入一个职务，如：“科长”，“处长”等，然后显示数据表 ZGGZ.DBF中所有该职务的职工记录。 ??? SET TALK OFF??? USE ZGGZ??? ACCEPT 职务： TO ZW??? LIST FOR 职务=ZW??? RETURN 《实习教程》第12单元 分支结构的程序设计 (参考答案) 1．编写一程序，输入一个英文字母，若为大写，则显示它的小写字母，若为小写则显示它的大写字母。 ??? set talk off??? accept 输入一个字符: to ch??? if upper(ch)=ch??? ? lower(ch)??? else??? ? upper(ch)??? endif??? return 2. 编写程序，计算分段函数： 的值。 ??? set talk off??? input x= to x??? input y= to y??? if xy??? ?? z=x*x+2*x*y+y*y??? else??? if x=y ?????? z=x+y??? else?????? z=x-yendif??? endif??? ? z=,z??? return 3. 编写一程序，输入某人的收入额，计算其个人所得税。??? 个人所得税的计算方法为：不超过500元的税率为5％，500元到2000元部分的税率为10％，超过2000元部分的税率为 15％。 ??? set talk off??? input x= to x??? if x=500??? t=x*0.05??? else??? if x=2000??? t=500*0.05+(x-500)*0.1??? else??? t=500*0.05+1500*0.1+(x-2000)*0.15??? endif??? endif??? ? 税金为: ,str(t,6,2)??? return 4. 用DO CASE语句编写第2、3题的程序，并重复上面的计算。 2）set talk off??? input x= to x??? input y= to y??? do case??? case xy??? z=x*x+2*x*y+y*y??? case x=y ??? z=x+y??? otherwise??? z=x-y??? endcase??? ? z=,z??? return 3）set talk off??? input x= to x??? do case??? case x=500??? t=x*0.05??? case x=2000??? t=500*0.05+(x-500)*0.1??? otherwise??? t=500*0.05+1500*0.1+(x-2000)*0.15??? endcase??? ? 税金为: ,str(t,6,2)??? return 《实习教程》第13单元 循环结构的程序设计 (参考答案) 1．编写一程序，计算 S＝1/2+1/2^2+1/2^3+…+1/2^N，其中N由用户输入。(保留小数点后5位)利用程序分别计算N=5，10和20时，S的值。 ??? set talk off??? s=0.00000??? i=1??? input n= to n??? do while i=n??? s=s+1/2^i??? i=i+1??? enddo??? ? s=,s??? return 2．在数据表ZGGZ.DBF中，循环查找和显示所有1970年以前出生的职工记录。 ??? set talk off??? use zggz??? locate for year(出生日期)1970??? do