pascal第2章 简单车奶序设计.pptVIP

第二章 顺序结构; 第一章的简单程序已体现出处理问题的步骤的顺序关系，每条语句按自上而下的顺序依次执行一次，这种自上而下依次执行的程序结构称为顺序结构程序。 在一个程序中，所有的操作都由执行部分来完成，而执行部分又都是由一条条语句组成的。因此，先要学习Pascal语言的基本语句，并且在学习过程中逐步学会程序设计的基本方法。我们还是先绕过那些繁琐的语法规则细节，先看一些例子，然后给出语法以供选手们参考。 ;第一节　赋值语句;赋值语句 ;例2.1 输入两个正整数A和B，试交换A、B的值（使A的值等于B，B的值等于A）？ 【分析】 交换两个变量的值方法很多，一般我们采用引入第三个变量的算法，二个变量交换，可以想像成一瓶酱油和一瓶醋进行交换，这时容易想到拿一个空瓶子过来： ① 将酱油倒到空瓶中；② 将醋倒到酱油瓶中；③ 将原空瓶中的酱油倒到醋瓶中。 程序如下： program ex2_1; var a,b,c : integer; //引入三个变量 begin readln(a,b); //输入A、B c := a; //A的值临时存储在C中 a := b; //B的值赋给A b := c; //C的值赋给B writeln(a,b); end.;例2.2某仓库5月1日有粮食100吨，5月2日又调进20吨，5月3日卖出库存的三分之二，5月4日又调进库存的3倍粮食，问该仓库从5月1日到5月4日期间每天的粮食分别是多少吨？(输出每天的库存量) 【分析】本例中，主要要描述从5月1日到5月4日每天仓库的粮食库存量，它是不断变化的，我们可以用一个变量A来存储仓库当前的库存量。 程序如下： Program ex2_2; Var a : integer; begin a := 100; writeln(‘5/1: ’, A); //输出5月1日的库存量 a := a+20; writeln(‘5/2: ’, A); a := a div 3; //div是整除，相当于对结果取整操作 writeln(‘5/3: ’, A); a := a *4; writeln(‘5/4: ’, A); readln; end. 本程序中语句的自上而下的顺序很关键，这类程序严格自上而上每条语句都被执行一次就称为顺序程序。;例2.3 数学中有个经典的“鸡兔同笼”问题，已知头共30个，脚共90只，问笼中的鸡和兔各有多少只? 【分析】 设鸡为j只，兔为t只，头为h，脚为f，那么有： j+t=30 ① 2*j+4*t=90 ② 解此题暂不必采用数学上直接解方程的办法，可采用“假设条件与逻辑推理”的办法，假设笼中30 个头全都是兔，那么都按每头４只脚计算，总脚数为(4*h)，与实际脚数 ( f )之差为(4*h-f)，如果这个差=0，则笼中全是兔（即鸡为0只）；如果这个差值 0，说明多计算了脚数，凡是鸡都多计算了两只脚，用它除以2就能得到鸡的只数，算法为： ① j=(4*h - f)/2 //先用脚数差值除以2算出鸡的只数 ② t=h - j //再用总头数减鸡数算出免的只数 注意这两步运算的先后顺序。 程序如下： program ex2_3； Const h=30; f=90; //常量定义 Var j,t : integer; //为整数类型的变量 begin j := (4*h-f) div 2; //div是整除运算 t := h-j; writeln (j=，j， ，t= ，t ); //引号中内容原样输出，两部分内容用空格隔开 end.;算术表达式 ;算术运算符 　常用的有以下6个算术运算符： ①　+ (加)　 　②　- (减)　 　 ③　* (乘) ④　/ (实数除)得到结果为实型。如5/2=2.5，4/2=2.0(结果不是2) ⑤　div (整除) div它要求除数和被除数均为整型, 结果也为整型。 如10 div 2=5，10 div 3=3, 5 div 10=0，-15 div 4= -3。div运算只取 商的整数部分，参与div运算的两个对象都不能为实型。 ⑥　mod (求余数)，也只能用于整数运算，结果为整数。 如：10 mod 4=2 , -17 mod