9299.net
大学生考试网 让学习变简单
当前位置:首页 >> 管理学 >>

实验六 程序设计基础一(参考答案)

实验六  程序设计基础一(参考答案)

程序设计基础一(顺序与分支结构) 实验六 程序设计基础一(顺序与分支结构) 二、实验内容 1、VFP 程序文件的建立、修改、保存、运行和调试; 2、设计程序:从键盘随意输入两个数,输出其中较大的那个数。 3、设计程序计算工资税:从键盘输入一个人的工资,计算其应交税金。计算方法如下: 工资 <= 1000 税金为 0 1000 < 工资 <= 2000 税金为 5% 2000 < 工资 <= 3500 税金为 10% 3500 < 工资 <= 5000 税金为 15% 5000 < 工资 税金为 20% 如:一个人的工资为 3000,其应交税金为: (3000 - 2000) * 0.10 + (2000 - 1000) * 0.05 = 150 三、实验步骤 1、VFP 程序文件的建立、修改、保存、运行和调试 “文件”菜单 新建,在“新建”对话框中文件类型选择“程序” ,单击“新建文件” 按钮,打开程序窗口,在其中编辑如下程序。编辑完后通过“文件”菜单下的“保存”项, 保存程序为 MyPrg.prg。单击工具栏中的!按钮或“程序”菜单下的“执行程序”项运行程 ! 序。如有错误,则在程序窗口修改程序,到运行无错误为止。 命令:MODIFY COMMAND MyPrg.prg &&编辑程序 DO MyPrg.prg &&运行程序 程序内容如下: * MyPrg.prg CLEAR ALL CLOSE ALL USE D:\XSGL\XSXX BROWSE FIELDS 学号,姓名,性别,出生日期,少数民族; = MESSAGEBOX("你看到运行结果了吗?") CLEAR ALL CLOSE ALL RETURN 2、源程序如下: CLEAR SET TALK OFF INPUT "请输入第 1 个数:" TO nNumber1 INPUT "请输入第 2 个数:" TO nNumber2 IF nNumber1 < nNumber2 nNumber1 = nNumber2 ENDIF ? "两个数中较大的数为:",nNumber1 RETURN 3、源程序如下: (1)用 IF…ENDIF 语句编程: CLEAR SET TALK OFF

INPUT " 请输入工资:" TO gz IF gz > 5000 Taxs = (gz-5000)*0.2+(5000-3500)*0.15+(3500-2000)*0.1+(2000-1000)*0.5 ELSE IF gz > 3500 Taxs = (gz-3500)*0.15+(3500-2000)*0.1+(2000-1000)*0.5 ELSE IF gz > 2000 Taxs = (gz-2000)*0.1+(2000-1000)*0.5 ELSE IF gz > 1000 Taxs = (gz-1000)*0.05 ELSE Taxs = 0 ENDIF ENDIF ENDIF ENDIF ?"" ?" 税金为:" + STR(Taxs,8,2) RETURN (2)用 DO CASE…ENDCASE 编程 CLEAR SET TALK OFF INPUT "请输入工资:" TO gz DO CASE CASE gz < =1000 Taxs = 0 CASE gz < =2000 Taxs = (gz-1000)*0.05 CASE gz <= 3500 Taxs = (gz-2000)*0.1+(2000-1000)*0.5 CASE gz < =5000 Taxs = (gz-3500)*0.15+(3500-2000)*0.1+(2000-1000)*0.5 OTHERWISE Taxs = (gz-5000)*0.2+(5000-3500)*0.15+(3500-2000)*0.1+(2000-1000)*0.5 ENDCASE ?"" ?" 税金为:" + STR(Taxs,8,2) RETURN


网站首页 | 网站地图 | 学霸百科 | 新词新语
All rights reserved Powered by 大学生考试网 9299.net
文档资料库内容来自网络,如有侵犯请联系客服。zhit325@qq.com