试编写程序计算邮费.docVIP

练习7 让默认目录指向“练习7” 例1：邮件在100克以内，计费标准为每克0.05元，超出100克后，超出数每克为0.02元。试编写程序计算邮费 方法1：根据邮件重量是小于等于100克还是大于100克，用不同的公式计算邮费。 在命令窗口内输入以下命令： Modify command yf 建立程序文件yf 在yf程序文件内输入以下命令，输入完成后保存，注意：不是在命令窗口内输入。 Input “请输入邮件重量：” to w 由键盘输入的邮件重量保存在变量W内 If w=100 F=w*0.05 Else F=100*0.05+(w-100)*0.02 Endif ?”邮费为：”,f 以上程序保存后，在命令窗口中输入以下命令运行程序 do yf 运行程序yf 方法2：先按第一个公式计算邮费，若发现邮件重量大于100克，再按第二个公式计算邮费。 在命令窗口内输入以下命令： Modify command yf1 建立程序文件yf1 在yf1程序文件内输入以下命令，输入完成后保存，注意：不是在命令窗口内输入。 Input “请输入邮件重量：” to w 由键盘输入的邮件重量保存在变量W内 F=w*0.05 If w100 F=100*0.05+(w-100)*0.02 Endif ?”邮费为：”,f 以上程序保存后，在命令窗口中输入以下命令运行程序 do yf1 运行程序yf1 学习程序的建立和运行方法，比较以上两程序编写思路有何不同。 例2：编写test3.prg，请用户输入待查询人员的姓名，显示该人员基本情况 按照上面的程序建立方法建立程序文件test3.prg，把以下程序输入test3.prg程序中，不是命令窗口中。 close all 关闭所有数据库及表文件 clear 清除屏幕上的所有内容 use rcda in 0 在最小未使用的工作区中打开表rcda select rcda 选择打开rcda表的工作区做为当前工作区 Accept “请输入待查人员姓名：” to name Locate for 姓名=name 查找所有姓名等于name变量值的记录，name的值取决于输入的值 If .not. eof() 记录指针没有到达记录尾的话，即找到符合条件的记录的话 ?”姓名：”+姓名 ?”性别：”+性别 　?”出生日期：”+DTOC(出生日期,1) else 记录指针到达记录尾的话，即没有找到符合条件的记录的话 ?”查无此人！” endif 以上程序保存后，在命令窗口中输入以下命令运行程序 do test3 运行程序test3 例3：输入两个整数，按由小到大的次序输出这两个数 这个问题的算法是作一次比较，若第一个数大于第二个数，则两个数进行对换后输出，若第一个数小于等于第二个数，直接输出。编写程序test2.prg运行它。两个数对的换可通过一个中间变量来实现，如实现A，B对换，可让中间变量T＝A保存A的值，再让A＝B把B的值赋给A，最后B＝T把中间变量T保存的值赋给B。 例4：输入3个数a，b，c，要求按由小到大的顺序输出。 解此题的算法比上一题稍复杂一些，算法如下： 如果ab将a和b对换 （a是a，b中的小者） 如果ac将a和c对换 （a是a，c中的小者，因此a是三者中最小者） 如果bc将b和c对换 （b是b，c中的小者，也是三者中次小者） 然后顺序输出a,b,c即可。编写程序test1.prg运行它。 例5：计算分段函数值：