第八章实验 程序设计基础.docVIP

第八章实验1 程序设计基础 — 分支结构 实验目的： 1.掌握程序文件的建立、编辑、调试、运行方法； 2.掌握分支结构 IF…ENDIF, DO CASE … ENDCASE 使用方法。 实验内容与步骤：（验证性实验） 新建程序文件的方法： ①点击菜单 文件 新建，文件类型选取“程序”，再点击 “文件” 按钮将打开程序窗口。在程序窗口输入程序内容，输完后保存运行（可直接点击工具栏中的运行按钮（!）运行当前窗口中的程序）。 ②点击工具栏中的“新建”按钮新建程序 ③在命令窗口输入命令新建程序： MODIFY COMMAND 做完一个程序后关闭此程序窗口，再新建或打开另外一个程序。 1.随意输入两个数，输出其中大的那个数。 CLEAR SET TALK OFF INPUT 请输入第1个数: TO nNumber1 INPUT 请输入第2个数: TO nNumber2 IF nNumber1 nNumber2 nNumber1 nNumber2 ENDIF ? 大的数为:,nNumber1 RETURN 2.根据输入的成绩（0-100分），输出其等级成绩。 等级成绩划分: 90 成绩 A 80 成绩 90 B 70 成绩 80 C 60 成绩 70 D 成绩 60 E CLEAR SET TALK OFF INPUT 请输入成绩: to nScore DO CASE CASE nScore 90 A CASE nScore 80 B CASE nScore 70 C CASE nScore 60 D OTHERWISE E ENDCASE RETURN 3.工资税计算：从键盘输入一个人的工资，计算其应交税金。 计算方法如下： 工资 1000 税金为0 1000 工资 2000 税金为5% 2000 工资 3500 税金为10% 3500 工资 5000 税金为15% 5000 工资 税金为20% 如：一个人的工资为3000，其应交税金为： 3000-2000 *10%+ 2000-1000 *5% 150 ①.用 IF…ENDIF 语句编程: CLEAR SET TALK OFF INPUT 请输入工资： TO nGongZi IF nGongZi 5000 nShuiJin nGongZi-5000 *0.2+ 5000-3500 *0.15+ 3500-2000 *0.1+ 2000-1000 *0.5 ELSE IF nGongZi 3500 nShuiJin nGongZi-3500 *0.15+ 3500-2000 *0.1+ 2000-1000 *0.5 ELSE IF nGongZi 2000 nShuiJin nGongZi-2000 *0.1+ 2000-1000 *0.5 ELSE IF nGongZi 1000 nShuiJin nGongZi -1000 *0.05 ELSE nShuiJin 0 ENDIF ENDIF ENDIF ENDIF ? ? 税金为：+STR nShuiJin,8,2 RETURN ②.用 DO CASE…ENDCASE 编程 CLEAR SET TALK OFF INPUT 请输入工资： TO nGongZi DO CASE CASE nGongZi 1000 nShuiJin 0 CASE nGongZi 2000 nShuiJin nGongZi-1000 *0.05 CASE nGongZi 3500 nShuiJin nGongZi-2000 *0.1+ 2000-1000 *0.5 CASE nGongZi 5000 nShuiJin nGongZi-3500 *0.15+ 3500-2000 *0.1+ 2000-1000 *0.5 OTHERWISE nShuiJin nGongZi-5000 *0.2+ 5000-3500 *0.15+ 3500-2000 *0.1+ 2000-1000 *0.5 ENDCASE ? ? 税金为：+STR nShuiJin,8,2 RETURN 4.乘客乘坐出租车，2km以内需付费3元，2km以上每公里加付1.0元。试编写一个计费程序。 CLEAR SET TALK OFF INPUT“请输入行驶里程：” TO X Y 3 IF X 2 Y X-2 *1.0+3 ENDIF “应付费：”,Y, “元” SET TALK ON RETURN 实验目的： 1.掌握程序文件的建立、编辑、调试、运行方