复件分支结构程序设计hpyQ.docVIP

第二节：分支结构算法的实现 分支语句： If 语句 两种格式 格式一：if 判断条件 then 语句 一 else 语句 二 ; 格式二：if 判断条件 then 语句 一 ; 典型例题： 闰年的判断方法 ，从键盘输入一个年份，判断这个年份是否是润年，并输出相应的信息 （书上25-26页） 算法如下： 从键盘输入一个表示年份的数据。 判断该数据是否是润年,如果是则输出“是闰年”，否则输出：“不是闰年”字样。 用流程图表示算法如下： 程序如下： program leap; var year : integer; begin write(‘enter a year number:’); readln(year); {输入年份} if ( (year mod 4=0) and (year mod 1000)) or (year mod 400=0) {判断是否闰年} then writeln(year, ‘ is a leap year.’) else writeln(year, ‘ is not a leap year.’); end. 运行结果： enter a year number: 2000 2000 is a leap year. 上机操作步骤：启动Turbo pascal 输入上面的程序 编译程序：快捷键alt+f9 ( 菜单compile) ,有错误信息就改，直到成功 运行程序：快捷键ctrl+f9 (菜单run) 看运行结果：快捷键 alt+f5(菜单debug) 存盘（save），快捷键F2, 输入名称 关闭程序：快捷键alt+f3 建立新的程序：文件菜单 new 上机编程题： 输入一个数a， 当 0a25 时，求a的开方（sqrt表示开方）， 否则求a的平方 提示： (a0) and (a25) y:=sqrt(a); (a=0) or (a=25) y:=a*a; 根据输入的考试分数判断是否及格，如果输入的分数大于等于60，则输出“passed”字样；否则输出“failed”字样。 参考答案： 1） Program xt1; Var a, y: real; Begin Write(‘enter a=’); If (a0) and (a25) then Y:=sqrt(a) else {开方} Y:=a*a; Writeln(‘y=’, y); End. 2) Program xt2; Var f: real; Begin Write(‘enter f=’); If f=60 then Writeln(‘ passed’) else Writeln(‘ failed’); End. 输入年份 是闰年 输出“不是闰年” 输出“是闰年” END 开始 F T