第一课初识Pascal语言.pptVIP

　　到目前为止，我们可以用读、写语句和赋值语句编写一些简单的程序。通过阅读这些程序，可以逐步熟悉pascal程序的编写方法和应遵循的规则，为以后各章的学习打基础。 例1 　　 试编一程序,输入一梯形的上底、下底、高, 求该梯形的面积。分析:　　 整个程序分为三段:输入、计算、输出。程序中用a,b,h三个变量分别存放梯形的上、下底与高，S存放面积。 要使用这些变量都要先说明，程序的执行部分中先输入上、下底与高，接着求面积S,最后输出结果S。　　源程序如下:　program Tixing; {程序首部}　var a,b,h,s:real; {程序说明部分}begin　write(Input a,b,h:);　readln(a,b,h); {程序执行部分}　s:=(a+b)*h/2;　write(s=,s:10:3);end. 例2　有5个同学编号为1，2，3，4，5，他们按自己的编号顺序围坐在一张圆桌旁。他们身上都有若干个糖果，现在他们做一个分糖果游戏。从1号同学开始，将他的糖果均分三份（如果有多余的，则他将多余的糖果吃掉），自己留一份，其余两份分给他的相邻的两个同学。接着2号、3号、4号、5号同学也这如果做。问一轮后，每个同学手上分别有多少糖果。分析：　　　 这道问题与第二课中的例2基本一样，只不过这里有5位同学，且他们初始时糖果的数目不确定。这里用a,b,c,d,e分别存放5个同学的糖果。初始时它们的值改为由键盘输入。其它都与第二课中的例2类似。参考程序如下:program fentang;var a,b,c,d,e:integer;begin　write(Please Enter init numbers );readln(a,b,c,d,e); 　a:=a div 3;b:=b+a;e:=e+a;　b:=b div 3;c:=c+b;a:=a+b; 　c:=c div 3;b:=b+c;d:=d+c;　d:=d div 3;c:=c+d;e:=e+d; 　e:=e div 3;d:=d+e;a:=a+e;　writeln(a=,a);　writeln(b=,b);　writeln(c=,c);　writeln(d=,d);　writeln(e=,e);　readln;｛暂停｝end. 例3 　　 编一程序求半径为R的圆的周长与面积?分析: 　　 程序要先输入半径R,然后求周长c和面积s,最后输出c和s.源程序如下:program circle;　const PI=3.14159;　var r,c,s:real;begin　write(Enter R=);readln(r);　c:=2*pi*r;　s:=pi*sqr(r);　writeln(c=,c:10:2);　writeln(s=,s:10:2);end.　　在程序中，为了输出实型周长C和面积S时,按照小数形式输出,采用了指定双场宽格式。练习三1. 编一程序，将摄氏温度换为华氏温度。公式为： 其中f为华氏温度,c是摄氏温度。2. 编一程序，输入三角形的三边a、b、c（假设这三边可以构成一个三角形），求三角形的面积Ｓ？（提示：可利用海伦公式 第3节 分支结构 1、简单的IF语句　　１、格式　　Ⅰ、IF ＜布尔表达式＞THEN 语句；　　Ⅱ、IF ＜布尔表达式＞THEN 语句１ ELSE 语句２；　　（注意Ⅱ型IF语句中语句１后无；号）　　２、功能　　Ⅰ、执行IF语句时，先计算＜布尔表达式＞的值，若为TRUE则执行语句，否则不执行任何操作。　　Ⅱ、执行IF语句时，先计算＜布尔表达式＞的值，若为TRUE则执行语句１，否则执行语句２；　　３、示例　　１）例3.1 输入一个整数ａ，判断是否为偶数。（是输出ｙｅｓ否则输出ｎｏ）。 例3.1 输入一个整数ａ，判断是否为偶数。（是输出ｙｅｓ否则输出ｎｏ）。 Program ex3_1;　　　Var a:integer;　　　Begin 　　　　　Write(a=);readln(a);　　　　If (a mod 2 =0) then writeln(yes)　　　　Else writeln(no);　　　　Readln;　　　End. 例3.2 万客隆超市里卖电池,每个电池８角钱，若数量超过１０个，则可打75折。 编程计算输出根据客人买电池数需要付款的总额（保留两位小数）。 　　Program ex3_2; Var Num:integer;dj,zje:real; Begin Write(Num=);readln(Num)