试编写程序计算邮费

《试编写程序计算邮费》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、练习7让默认目录指向“练习7”例1：邮件在100克以内，计费标准为每克0.05元，超出100克后，超出数每克为0.02元。试编写程序计算邮费方法1：根据邮件重量是小于等于100克还是大于100克，用不同的公式计算邮费。在命令窗口内输入以下命令：Modifycommandyf&&建立程序文件yf&&在yf程序文件内输入以下命令，输入完成后保存，注意：不是在命令窗口内输入。Input“请输入邮件重量：”tow&&由键盘输入的邮件重量保存在变量W内Ifw<=100F=w*0.05ElseF=100*0.05+(w-100)*0.02Endif?”邮费

2、为：”,f以上程序保存后，在命令窗口中输入以下命令运行程序doyf&&运行程序yf方法2：先按第一个公式计算邮费，若发现邮件重量大于100克，再按第二个公式计算邮费。在命令窗口内输入以下命令：Modifycommandyf1&&建立程序文件yf1&&在yf1程序文件内输入以下命令，输入完成后保存，注意：不是在命令窗口内输入。Input“请输入邮件重量：”tow&&由键盘输入的邮件重量保存在变量W内F=w*0.05Ifw>100F=100*0.05+(w-100)*0.02Endif?”邮费为：”,f以上程序保存后，在命令窗口中输入以下命令运行程

3、序doyf1&&运行程序yf1学习程序的建立和运行方法，比较以上两程序编写思路有何不同。例2：编写test3.prg，请用户输入待查询人员的姓名，显示该人员基本情况按照上面的程序建立方法建立程序文件test3.prg，把以下程序输入test3.prg程序中，不是命令窗口中。closeall&&关闭所有数据库及表文件clear&&清除屏幕上的所有内容usercdain0&&在最小未使用的工作区中打开表rcdaselectrcda&&选择打开rcda表的工作区做为当前工作区Accept“请输入待查人员姓名：”tonameLocatefor姓名=na

4、me&&查找所有姓名等于name变量值的记录，name的值取决于输入的值If.not.eof()&&记录指针没有到达记录尾的话，即找到符合条件的记录的话?”姓名：”+姓名?”性别：”+性别　?”出生日期：”+DTOC(出生日期,1)else&&记录指针到达记录尾的话，即没有找到符合条件的记录的话?”查无此人！”endif以上程序保存后，在命令窗口中输入以下命令运行程序dotest3&&运行程序test3例3：输入两个整数，按由小到大的次序输出这两个数这个问题的算法是作一次比较，若第一个数大于第二个数，则两个数进行对换后输出，若第一个数小于等于第

5、二个数，直接输出。编写程序test2.prg运行它。两个数对的换可通过一个中间变量来实现，如实现A，B对换，可让中间变量T＝A保存A的值，再让A＝B把B的值赋给A，最后B＝T把中间变量T保存的值赋给B。例4：输入3个数a，b，c，要求按由小到大的顺序输出。解此题的算法比上一题稍复杂一些，算法如下：如果a>b将a和b对换（a是a，b中的小者）如果a>c将a和c对换（a是a，c中的小者，因此a是三者中最小者）如果b>c将b和c对换（b是b，c中的小者，也是三者中次小者）然后顺序输出a,b,c即可。编写程序test1.prg运行它。例5：计算分段函数

6、值：