pascal第2章--简单程序设计.pptx

第二章 顺序结构 第一节　赋值语句 第二节　输入输出语句 第三节　常量和变量 第四节　标准数据类型 第五节　顺序结构程序设计 第一章的简单程序已体现出处理问题的步骤的顺序关系，每条语句按自上而下的顺序依次执行一次，这种自上而下依次执行的程序结构称为顺序结构程序。 在一个程序中，所有的操作都由执行部分来完成，而执行部分又都是由一条条语句组成的。因此，先要学习Pascal语言的基本语句，并且在学习过程中逐步学会程序设计的基本方法。我们还是先绕过那些繁琐的语法规则细节，先看一些例子，然后给出语法以供选手们参考。 第一节　赋值语句 赋值语句 变量代表的是一个存储单元，其值是可变的，那么其中的值是怎么提供的，又是怎么改变的呢？可以通过赋值语句来进行。 赋值语句的格式：变量名 := 表达式（或常量），其中:=称为赋值号，右边是一个表达式，表达式计算完毕后的结果赋给左边的变量。如： a := （9*8）-（2-1）; //a的值等于71 a := b; //a的值等于b的 值，b的值没有被更改 a := a+1; //a的值增加1 例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.