《2022年高中信息技术 pascal教程04 第四课 基本语句（二）教案》由会员分享，可在线阅读，更多相关《2022年高中信息技术 pascal教程04 第四课 基本语句（二）教案（6页珍藏版）》请在金锄头文库上搜索。
1、2022年高中信息技术 pascal教程04 第四课 基本语句（二）教案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 th
2、ree 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
3、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总是与最接近的一个还
4、没配对的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
5、（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图表示：表
6、达式情况标号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
7、； 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个数
8、进行加减乘除运算的程序，先输入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课后练习四：
9、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分以下；输
10、入学生成绩，输出该成绩对应的等级。提示：将成绩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输
11、出 _ （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的优惠。 编一个加油计费程序，输入汽油品种、汽油量、服务类型（f自动，e协助，m自己），然后输出应付款。（5）打印某年某月有几天。 输入：年、月； 输出：天数 提示： 每年1、3、5、7、8、10、
