AlgorithmTest分析.docVIP

系统编程分析 例 四则运算系统 要求： （1）按照如下提示信息，从键盘输入两个餐间运算的数据。 ============================================== 请输入第一个数x = 请输入第二个数y = ============================================== （2）按照如下提示信息，显示系统选项菜单。 ============================================== 四则运算菜单 ============================================== 1 ---- 加法 2 ---- 减法 3 ---- 乘法 4 ---- 除法 ============================================== （3）选择相应的四则运算后，进行相应的处理。具体要求为： 先输出相应的算式。 让用户从键盘输入正确答案。 如果答案正确，输出“回答正确! 你好聪明！”。 如果答案错误，输出“回答错误! 正确答案：”，然后给出正确答案。 对于除法运算，如果分母为0，则显示提示信息 “除法运算分母不能为0！” （4）如果运算方式选择错误，则显示提示信息 “选择错误，请选择四则运算代码1,2,3,4！”。 流程图 ;AlgorithmTest.pro PRO AlgorithmTest WHILE 1 DO BEGIN PRINT, 欢迎使用 PRINT, 四则运算 考试系统 PRINT, 版本 6.6 PRINT, REPLICATE(=, 20) READ, PROMPT= 请输入第一个数x = , x READ, PROMPT= 请输入第二个数y = , y PRINT, REPLICATE(=, 20) PRINT, 四则运算菜单 PRINT, REPLICATE(=, 20) PRINT, 1 ---- 加法 PRINT, 2 ---- 减法 PRINT, 3 ---- 乘法 PRINT, 4 ---- 除法 PRINT, REPLICATE(=, 20) Ch=’’ READ, PROMPT= 请选择四则运算代码 1,2,3,4 : , ch PRINT, REPLICATE(=, 20) CASE 1 of ch EQ ‘1’ : BEGIN PRINT, x,+, y, =? READ, PROMPT= 请输入正确答案: , answer PRINT, REPLICATE(=, 20) IF answer EQ x+y THEN BEGIN PRINT, 回答正确! 你好聪明! ENDIF ELSE BEGIN PRINT, 回答错误! 正确答案: PRINT, x,+, y, = , x + y ENDELSE END ch EQ ‘2’ : BEGIN PRINT, x,-, y, =? READ, PROMPT= 请输入正确答案: , answer PRINT, REPLICATE(=, 20) IF answer EQ x-y THEN BEGIN PRINT, 回答正确! 你好聪明! ENDIF ELSE BEGIN PRINT, 回答错误! 正确答案: PRINT, x,-, y, = , x - y ENDELSE END ch EQ ‘3’ : BEGIN PRINT, x,*, y, =? READ, PROMPT= 请输入正确答案: , answer PRINT, REPLICATE(=, 20) IF answer EQ x*y THEN BEGIN PRINT, 回答正确! 你好聪明！ ENDIF ELSE BEGIN PRINT, 回答错误! 正确答案: PRINT, x,*, y, = , x * y ENDELSE END ch EQ ‘4’ : BEGIN IF y EQ 0 THEN BEGIN