广东省汕头市金山中学高中信息技术 pascal教程04 第四课 基本语句（二）教案.doc

第四课 基本语句（二） 4.1 if语句if语句是一种分支结构，当条件成立时，执行a，否则执行b。流程图表示:n-s图表示:aba条件b是否是否条件 1ifthen形式 if then 当if后面的条件为真时，执行then后面的语句；当条件为假时，不执行then后面的语句，而顺序执行下一条语句。then后面的语句若多于一条，必须使用复合语句处理（用begin和end括起）。【例】： 输入a ，b ，c三个数，打印出最大者。program findmax；var a，b，c，max:real ；beginwrite (please enter three number:)；readln (a，b，c)；if ab then max:=a 设a为最大else max:=b； if cmax then max:=c；比较之后保留最大数writeln (the max num is:,max:10:3)end.x、y、result是实型变量；max:10:3是表示在10格的区域内靠右输出max的值，并保留3位小数点按ctrl+f9，执行后： please enter three number: 45 78 56 输入后按回车 按alt+f5 查看输出： the max num is: 78.0002 ifthenelse形式 if then else 当条件为真时，执行then后面的语句1；当条件为假时，执行else后面的语句2。【例】输入一个实数，若是负数输出x0，否则输出x=0。 program sample； var x ：real； begin write（ x = ）； readln（x）； if x 0 then writeln（x 0 then writeln（x0） else write（x=0）； end.显然ifthen语句是ifthenelse语句的特殊情况。在这个例题中，还出现了ifthenelse嵌套语句，在这种情况下，else到底与哪一个then配对呢？pascal语言中规定else总是与最接近的一个还没配对的then配对。因此，当使用时与这个规定有冲突的话，可以用begin和end括起来。 常见错误：1在then和else之间多加了一个分号，例如把语句： if x5 then y := 3*x+5 else y := 2*x+3； 错写成： if x5 then y := 3*x+5； else y := 2*x+3； 因为加了分号以后，if语句已经结束，而else又不能作为另一个语句的开头，造成语法错误。 2另一个常见错误是在then或else包括几个语句时，未加begin与end构成复合语句的形式，例如把语句错写成：if x0 then y :=sqrt（1+x*x）；z := sin（2*x）； if x0 then begin y := sqrt（1+x*x）； z := sin（2*x）； end； 它们的效果是不同的。前者当x0时，要执行两个语句，计算y和z；当x0时，什么都不执行。后者当x0时，执行计算y的语句；当x0时，不执行计算y的语句，当是无论x为何值，均要执行计算z的语句。4.2 case语句 这种语句是一种派生的多分支结构，适用于不同情况不同处理的多择一的情况case of ：； ：； ：； else ； 括起来表示可选项 end；下一条语句语句n-1表达式情况标号语句1语句2语句n标号1标号2标号n-1elsetrue其流程图如图所示：n-s图表示：表达式情况标号1情况标号2情况标号3else语句1语句2语句3语句n其中表达式的值必须是整型、字符型、布尔型及后面将介绍的枚举型和子界型，它的类型必须与情况标号的类型一致。情况标号表是一串用逗号隔开的常量。当表达式的值等于某个情况标号时，就执行该情况标号后面所对应的语句；若表达式的值不等于任何一个情况标号，就执行else语句，若没有else语句就执行case语句的下一条语句。 常见错误：1、情况标号写成逻辑判断式：case x of x20 : 2、缺了与case对应的end； 【例】 读下面的程序，试着理解程序。program calculator；var x ，y ，result ：real； oper ：char；beginwrite（input x , y , oper ：）；readln（x，y）；write（input + or or * or / ：）；readln（oper）；case oper of+：result := x+y；-：result := x-y；*：result := x*y；/： result := x/y；end; 注意这有个end与case对应哦writeln（x:6:2，oper，y:6:2，=，result:8:2）； end.oper是字符型变量读入一个字符 + 、- 、* 、/根据oper的不同，对x和y进行不同的运算这是一个能对2个数进行加减乘除运算的程序，先输入2个数x和y ，再输入一个运算符号，程序将根据输入运算符的不同，对x和y进行相应的运算，最后输出运算结果。按ctrl+f9，执行后： input x , y , oper ：15 3 输入后按回车 input + or or * or / ： + 输入后按回车 按alt+f5 查看输出： 15.00 + 3.00 = 18.00再按一次ctrl+f9，执行后：input x , y , oper ：15 3 输入后按回车 input + or or * or / ： * 输入后按回车 按alt+f5 查看输出： 15.00 * 3.00 = 45.00课后练习四：1、 阅读下面程序，回答问题。输入a、b两个数，求出其中较大一个数的平方。(1) a，b，c 是什么类型的变量： _(2) 输入： 5 6 输出 _(3) 输入： -10 5输出 _program ex401；var a，b，c : integer ；beginreadln (a，b)；if abs(a)abs(b) then c:=a*aelse c:=b*b； writeln (c)end.2、阅读下面程序，回答问题。将学生的成绩（百分制）转换成a、b、c、d四个等级：a90分以上（含90分）； b70分以上（含70分），90分以下；c60分以上（含60分），70分以下； d60分以下；输入学生成绩，输出该成绩对应的等级。提示：将成绩x整除10，结果只有0、1、2、9、10这几种情况；program ex402；var score ：integer； grade ：char；beginwrite (input the student s score : );readln（score）；case score div 10 of9,10：grade := a；7,8：grade := b；6： grade := c；0.5： grade := d；end;writeln（grade）； end.(1) grade是什么类型的变量： _(2) 输入：92 输出 _(3) 输入：69输出 _ （4）输出提示信息 “input the ”时，总共输 出了_个 3、试试自己编写程序。（1）输入一个时刻的时、分、秒，请换算成秒数并输出。 提示：先判断输入的时、分、秒是否符合要求（0=时24，0=分、秒60）（2）求一个四位整数的各位数字之和。 输入：一个整数（10009999） 输出：各位数字之和 提示：先判断输入的数是否符合要求（10009999），若不符合，则输出input error； 提取这个数的各位数字：个位数这个数除以10的余数； 十位数这个数除以100的余数，再整除10； （3）铁路托运行李，从a地到b地，按规定行李不超过50公斤时，每公斤的托运费为0.15元；如超过50公斤，超过部分按每公斤0.20元计算。编一程序自动计算托运费，输入行李重量，输出托运费。（4）某全自动加油站有a，b，c三种汽油，单价（元/kg）分别是1.50、1.35、1.18。加油站提供了“自动”、“协助加”、“自己加”三个服务等级，选择“协助加”可获5的优惠，选择“自己加”可获10的优惠。 编一个加油