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

下载本文档

23
0
约9.15千字
约 16页
2017-05-12 发布于贵州
举报
版权申诉

Visual oxPro程序设计实习教程与习题集.doc

1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
7、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

Visual oxPro程序设计实习教程与习题集

《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 while found()???