vfp系统析.docVIP

系统编程分析 例1 四则运算系统 要求： （1）按照如下提示信息，从键盘输入两个参加运算的数据。 ============================================== 请输入第一个数x = 请输入第二个数y = ============================================== （2）按照如下提示信息，显示系统选项菜单。 ============================================== 四则运算菜单 ============================================== 1 ---- 加法 2 ---- 减法 3 ---- 乘法 4 ---- 除法 ============================================== （3）选择相应的四则运算后，进行相应的处理。具体要求为： 先输出相应的算式。 让用户从键盘输入正确答案。 如果答案正确，输出“回答正确! 你好聪明！”。 如果答案错误，输出“回答错误! 正确答案：”，然后给出正确答案。 对于除法运算，如果分母为0，则显示提示信息 “除法运算分母不能为0！” （4）如果运算方式选择错误，则显示提示信息 “选择错误，请选择四则运算代码1,2,3,4！”。 流程图 开始显示选择运算方式错误同左同左选择4?选择3?选择2?结束选择1?显示算式用户输入答案输入数据x, y 开始 显示选择 运算方式 错误 同左 同左 选择4? 选择3? 选择2? 结束 选择1? 显示算式 用户输入答案 输入数据x, y 显示系统选项菜单 显示系统选项菜单 选择输入运算方式 选择输入运算方式 NNNN N N N N YYYY Y Y Y Y 同左 同左 回答正确?N 回答正确? N Y Y 显示回答错误正确算式 显示 回答错误 正确算式 显示 回答正确 程序代码： set talk off clear ? replicate(=,40) input 请输入第一个数x = to x input 请输入第二个数y = to y ? replicate(=,40) ? space(10)+ 四则运算菜单 ? replicate(=,40) ? space(10)+ 1 ---- 加法 ? space(10)+ 2 ---- 减法 ? space(10)+ 3 ---- 乘法 ? space(10)+ 4 ---- 除法 ? replicate(=,40) wait 请选择四则运算代码 1,2,3,4 : to ch ? replicate(=,40) do case case ch = 1 ? x,+, y, =? input 请输入正确答案: to answer ? replicate(=,40) if answer = x+y ? 回答正确! 你好聪明! else ? 回答错误! 正确答案: ? x,+, y, = , x + y endif case ch = 2 ? x,-, y, =? input 请输入正确答案: to answer ? replicate(=,40) if answer = x-y ? 回答正确! 你好聪明! else ? 回答错误! 正确答案: ? x,-, y, = , x - y endif case ch = 3 ? x,*, y, =? input 请输入正确答案: to answer ? replicate(=,40) if answer = x*y ? 回答正确! 你好聪明！ else ? 回答错误! 正确答案: ? x,*, y, = , x * y endif case ch = 4 if y=0 ? 警告: 除法运算分母不能为0 ! else ? x,/, y, =? input 请输入正确答案: to answer ? replicate(=,40) if answer = x*y ? 回答正确! 你好聪明! else ? 回答错误! 正确答案: ? x,/, y, = , x / y endif endif otherw