分支程序.docVIP

PASCAL语言 教程 第二章　分支程序 ? 在程序设计中，许多问题是在一定条件下才选择某种处理方式的，这就需要用条件判断语句或情况选择语句进行处理。程序执行中将出现选择(分支)，根据条件只选择执行部分语句,不一定都是按原顺序从头到尾地执行所有语句，这样的程序称为分支程序。 第一节? 条件语句与复合语句 [例2.1] 某服装公司为了推销产品，采取这样的批发销售方案:凡订购超过100 套的，每套定价为50元，否则每套价格为80元。编程由键盘输入订购套数，输出应付款的金额数。 解:设X为订购套数，Y为付款金额，则: ?? ① 输入X; ?? ② 判断 X 值； ?? ③ 根据判断结果选择符合条件的那种方法计算Y值； ?? ④ 输出计算结果。 Pascal程序: Program Exam21； Var x，y: integer； Begin ? Write(X=) ；Readln(x) ；?????????????????? {? 输入X} ? if x 100 then y:=50*X? else? y:＝80*X；????? {条件判断与选择 } ? Writeln(y=，y) ； ? Readln End. 程序中的 if 语句常称为条件语句，它的一般格式为: ??? (1) if 条件 then 语句； ??? (2) if 条件 then 语句1? else? 语句2； IF 语句的功能是按条件在两种可能中选择其中一种。习惯上把if 后面的表达式称为条件，then 后面的语句称为真项，else 后面的语句称为假项。若条件成立(为真)就执行真项，然后执行if语句的后继语句；若条件不成立(为假)就跳过真项而执行假项，然后执行后继语句。而第一种格式只有真项，没有假项，当条件不成立(为假)就什么也不需做，直接往下去执行后继语句。 ? [例2.2] 读入三个不同的数，编程按由小到大的顺序排列打印出来。 解:设读入的三个数为a，b，c，为了把较小的数排在前面，可作如下处理: ?? ① 如果a＞b就交换a、b的值，将较大的值换至后面； ?? ② 如果a＞c就交换a、c的值，将较大的值换至后面； ?? ③ 如果b＞c就交换b、c的值，将较大的值换至后面； ?? ④ 输出处理后的a,b,c。 ??? Pascal程序: ??? Progranm? Exam22； ??? Var a，b，c，t: Real； ??? Begin ??????? Write(Input a， b，c=)； ??????? Readln(a，b，c)； ??????? if a＞b then begin??????????????????? ｛??合语句｝ ???????????? t:=a； a:=b； b:=t?????? {交换a，b} ?????????? end； ??????? if a＞c then begin??????????????????? ｛复合语句｝ ???????????? t:=a； a:=c； c:=t??????? {交换a，c} ?????????? end； ??????? if b＞c then begin?????????????????? ｛复合语句｝ ????????????? t:=b； b:=c； c:=t???????? {交换b，c} ??????????? end； ??????? Writeln(a，b，c:，a:6， b:6， c:6)； ??????? Readln ??? End. if 语句规定它的真项或假项位置上只能是一个基本语句，如果需要写一组语句，就应当使用复合语句。本程序中有三处用到复合语句。每个复合语句的范围是从Begin开始到与它相对应的End为止。复合语句的地位和一个基本语句相同；其一般格式为： ??????? Begin? ????????? 语句系列? ??? ????End； ? 习题2. 1 1.假设邮局规定寄邮件时若每件重量在1公斤以内(含1公斤)，按每公斤1.5元计算邮费，如果超过1公斤时，其超出部分每公斤加收0.8元。请编程序计算邮件收费。 2.输入三个正整数，若能用这三个数作为边长组成三角形，就计算并输出该三角形的面积，否则输出Cant。(组成三角形的条件为：任意两边之和大于第三边) 3.输入一个三位数的整数，将数字位置重新排列，组成一个尽可大的三位数。例如：输入213，重新排列可得到尽可能大的三位数是321。 第二节? 情况语句与算术标准函数 ? 如果有多种（两种或两种以上）选择，常用情况语句编程。 将前面[例2.1]改成用如下方法来处理。根据题意，付款计算可分为两种情况： ??????? ① Y=50*X??? (X＞100) ??????? ② Y=8