结构化程序设计.ppt

安阳师范学院 第 2 章 结构化程序设计 2.1 程序文件 2.2 程序的基本控制结构 2.3 多模块程序 安阳师范学院 2.1 程序文件 程序中的常用命令 程序的调试 程序的运行 程序文件的建立与修改 安阳师范学院 一、程序文件的建立与修改 1 1 使用 modify command 命 令建立或修改程序文件 2 2 使用“文件”菜单中的“ 新建”命令建立程序文件 3 3 使用“文件”菜单中的“ 打开”命令打开程序文件 安阳师范学院 二、程序的运行 1 1 使用 do 命令 2 2 使用“程序”菜单中的“ 运行”命令 3 3 打开程序文件后单击“常 用”工具栏中的“运行” 按钮 安阳师范学院 三、程序的调试 1 1 调试的概念 2 2 程序中的常见错误 3 3 查错技术 安阳师范学院 三、程序的调试 调试程序的步骤 调试程序的目的 检查程序是否存在错误确定出错位置改 正错误。 调试的概念 找出程序中的错误并改正错误的过程就称为 程序的调试。 找出并改正程序中的错误。 安阳师范学院 四、程序中的常用命令 输入输出输入输出 字符串输入 accept 命令、表达式输入 input 命令 等待 wait 命令 表达式输出 ? | ? 命令 文本输出 | | text endtext 命令 定位输入 get 命令、定位输出 say 命令 注释注释 note | * 命令 & 注释符 终止程序运行终止程序运行 cancel 命令 环境设置环境设置 设置默认目录 set default 命令 打开/关闭会话功能 set talk 命令 安阳师范学院 2.2 程序的基本控制结构 循环结构 选择结构 顺序结构 安阳师范学院 一、顺序结构 算法表示方法 算法 为解决一个问题而采取的方法和步骤。 自然语言、流程图、伪代码等。 安阳师范学院 一、顺序结构 常用流程图符号 安阳师范学院 二、选择结构 1 1 if 语句 2 2 do case - endcase 语句 安阳师范学院 二、选择结构 语句格式 if endif 简单的 if 语句 （if - endif） 语句功能 根据是否 成立决定是否执 行。 安阳师范学院 二、选择结构 简单的 if 语句的执行过程 安阳师范学院 二、选择结构 带 else 的 if 语句 （if else - endif） 语句格式 if else endif 语句功能 根据是否 成立决定执行和中的哪一 个命令序列。 安阳师范学院 二、选择结构 带 else 的 if 语句的执行过程 安阳师范学院 二、选择结构 if 语句的嵌套使用 在 if 语句中又包含一个或多个 if 语句称为 if 语句的 嵌套。 例 11 有一函数： 编写程序，输入 x 的值，输出 y 的值。 安阳师范学院 二、选择结构 do case endcase 语句 do case case case case otherwise endcase 语句执行时，系统依次判 断各个 case 后的条件是否成立 ，若某个 case 后的条件成立， 则执行该 case 后的命令序列， 执行完后接着执行 endcase 后 面的命令；若所有的条件都不 成立，但有 otherwise 子句，则 执行，执行完 后接着执行 endcase 后面的命 令；若所有的条件都不成立， 也没有 otherwise 子句，则直接 执行 endcase 后面的命令。 语句格式 语句功能 安阳师范学院 二、选择结构 do case endcase 语句的执行过程 安阳师范学院 三、循环结构 1 1 do while enddo 语句 2 2 for - endfor 语句 3 3 scan endscan 语句 安阳师范学院 三、循环结构 do while enddo 语句 当成立时，执 行，执行完后再判断 是否成立，如果仍 然成立，再执行，如 此反复，直到不成 立时为止，此时结束循环，继 续执行 enddo 后面的命令。 do while enddo 语句格式语句功能 安阳师范学院 三、循环结构 do while enddo 语句的执行过程 安阳师范学院 例 编程计算1+2+100的值。 s=0 n=1 do while n， 就执行，执行完后为循环变量加上一个 ，再与进行比较，由比较结果决定是否继续执行 循环体。一旦循环变量的值大于就结束循环； 步长为负数时，如果循环变量的值不小于， 就执行，执行完后为循环变量加上一个 ，再与进行比较，由比较结果决定是否继续执行 循环体。一旦循环变量的值小于就结束循环。 for = to step endfor | next 语句格式 语句功能 安阳师范学院 三、循环结构 for endfor 语句的执行过程 步长为正数时，循环条件为： 循环变量值 = 终值 安阳师范学院 例 用fornext循环计算1+2+100的值。 s=0 for i=1 to 100 step 1 s=s+i endfor ? “1+2+100=“,s 安阳师范学院 统计100以内能够被3或5整除的数的个数 num=0 for i=1 to 100 if mod(i,3)=0 .or. mod(i,5)=0 num=mun+1 endif endfor ? “100以内能够被3或5整除的数的个数为：“,num 例 安阳师范学院 for-next补补充举举例 从键盘输键盘输 入10个 数，然后找出其中的最 大值值和最小值值。 解题题思路：假定 已找出了n-1个数中的 最大数ma(或最小数 mi)，再读读入第n个数 a，那么a和ma(或 mi)中的较较大者(或较较 小者)就是n个数中的 最大值值(或最小值值)。 input ”请输入一个数: ” to a store a to ma , mi for i=2 to 10 input ”请输入一个数: ” to a if maa mi=a endif endfor ?”最大”,ma, ”最小”,mi 安阳师范学院 三、循环结构 scan endscan 语句 对当前表中指定范围内满足条件的记录 ，依次执行中的操作。 scan 范围 for while endscan 语句格式 语句功能 安阳师范学院 三、循环结构 循环语句的嵌套使用 在一个循环语句的循环体中又包含其它循环语句，称 为循环语句的嵌套使用。 安阳师范学院 例2-23 编程求 3! + 5! + 7! + 9! 。 s=0 for i=3 to 9 step 2 jc=1 for j=1 to i jc=jc*j endfor s=s+jc endfor ?s 安阳师范学院 补充例题 for m=3 to 100 step 2 n=int(sqrt(m) for i=2 to n if mod(m,i)=0 exit endif endfor if in ?m endif endfor 除了1和它本身之外不 能被任何一个整数所整除 的自然数叫质数(素数)，除 2之外，其它质数都是奇数 。 要判断一个数m是否为 素数，方法是：用2到(m- 1)的各个整数一个一个去 除m，若都除不尽，则m为 素数，只要有一个能整除 ，则m就不是素数。为讲 效率，可只除到 int(sqrt(m)。 求3100间的质数 安阳师范学院 三、循环结构 循环辅助命令 loop 命令 功能： 结束本次循环 exit 命令 功能： 结束循环 安阳师范学院 do while loop exit enddo 条件 命令序列 loop 命令序列 exit 命令序列 enddo的下一条命令 n y 以当循环为例 安阳师范学院 2.3 多模块程序 变量的作用域 过程 自定义函数 子程序 安阳师范学院 一、子程序 注 意 子程序 主程序和子程序的概念是相对的。 主程序 对于两个具有调用关系的程序，称调用另一 个程序的程序为调用程序或主程序 。 对于两个具有调用关系的程序，称被调用的 程序为被调用程序或子程序。 安阳师范学院 一、子程序 子程序的调用 子程序的返回 do with return to master | to 安阳师范学院 二、自定义函数 函数名( 实际参数表 ) function parameters return 定义 调用 安阳师范学院 三、过程 do with procedure parameters return 定义 调用 安阳师范学院 三、过程 过程文件 专门用来存放自定义函数或过程的程序文件 。 过程文件的建立与修改 与程序文件的建立与修改方法相同 。 过程文件的打开 过程文件的关闭 set procedure to additive set procedure to 或 close procedure 安阳师范学院 四、变量的作用域 1 1 公共变量 2 2 私有变量 3 3 本地变量 安阳师范学院 四、变量的作用域 公共变量的作用范围 所有模块 公共变量的定义 publ