《PASCAL语言介绍及顺序结构.ppt》由会员分享，可在线阅读，更多相关《PASCAL语言介绍及顺序结构.ppt（54页珍藏版）》请在三一办公上搜索。
1、第二讲 PASCAL语言介绍,例：计算机可以与人对话,Program example(input,output);begin writeln(How are you?);readln;end.,例：计算机可以与人对话,Program example(input,output);Var s:string;Begin writeln(How are you?);readln(s);writeln(Me too);readln;End.,program circle(input,output);const Pi=3.142;Var r,l,s:real;Begin write(Enter radiu
2、s of a circle:);read(r);l:=2*Pi*r;s:=Pi*r*r;write(r:,r,l:,l,s:,s);End.,程序首部,说明部分,执行部分,程序体,Program 程序名（INPUT，OUTPUT）；lable 标号说明；const 常量定义；type 类型说明；var 变量说明；function 函数说明；procedure 过程说明；begin程序语句；;程序语句;end.,说明部分,语句部分,基本符号1、字母A B C D E F G H I J K L M N O Q R S T U V W X Y Za b c d e f g h i j k l m
3、n o p q r s t u v w x y z2、数字：0 1 2 3 4 5 6 7 8 9 3、特殊符号+-*/=():=.,:;.,1、重要特性:允许通过使用描述性的符号名(称为变量名或变量),而不是存储地址,来引用存储在存储器中的数据。2、变量是专用的标识符，标识符的合法命名：以字母开始，后面可以跟任意个字母和数字。NUMBER，HOURS，A，B1234 3、保留字 program and array begin case const等。4、标准标识符false real input abs read等。,返回,Pascal中的数据类型,integer(整型),整数包括正、负整数
4、和零，标准常量maxint=32767；Div(求商）和mod（取余）运算符pred（x）：求前导函数；succ(x)：求后继函数例：11 div 2=5 11 mod 2=1 pred(3)=2；succ(3)=4；,Turbo Pascal中的整型数,返回,real(实型),实型是最常用的数据类型，在PASCAL语言中，实数有两种表示方法：小数表示法，如：1.2,0.0023,0.0,100.0指数表示法（或称科学表示法），如：1.2e0,2.3e-3,0e0,1e2Real类型数据的范围：2.9e-391.7e38,Turbo Pascal中的实型数,返回,字符型(char),是指在两个
5、单引号中的一个字符；字符型的数据有128个；ord：求某字符的序数（ASCII码）例如：ord(A)=65(01000001)2,ASCII码表,返回,4、布尔型(boolean),只有两个值：false；true用于布尔型的运算：NOT、AND、OR；ord(true)=1；ord(false)=0pred(true)=？；succ(false)=？,返回,表达式：是指由常量、变量、函数、括号及运算符等联结起来的式子。注：表达式中的变量必须有明确的值。,表达式必须以线性形式写出.因此,分母、指数等都必须写在一行上。函数的自变量可以是任意表达式。且函数的自变量要写在括号中。为了指定运算的次序可
6、以利用括号。括号必须成对出现，且只有“（”。所有括起来的子表达式必须首先计算，且从里到外。运算优先级：函数、NOT、AND、*、/、DIV、MOD、OR、+、-、=、,数学表达式 PASCAL表达式,1.357 1.3572+3X 2+3*X,(A+B)/(C+D),SQRT(B*B-4*A*C),X0且X0,(X=0)AND(X=0),计算机的几种操作,1、数据处理和比较操作：加、减、乘、除,and,or,not2、赋值操作:赋值语句3、输入输出操作：读、写 read和readln write和writeln4、控制操作：条件执行、转移控制,表达式与赋值语句,一般形式:=意义：计算机先计算赋
7、值号右边表达式的值，然后将计算结果写入赋值号左边的变量中。,program Ex(input,output);var a,b,c:integer;begin a:=3;b:=5;c:=a;a:=b;b:=c;end.执行上面程序后，变量a,b的最终值各是多少？,练习：,program Ex(input,output);var a,b:integer;begin a:=3;b:=5;a:=a+b;b:=a-b;a:=a-b;end.执行上面程序后，变量a,b的最终值各是多少?,练习：,注意事项：,1、赋值语句中左右两边数据类型必须匹配即赋值相容；表达式的类型必须与左边变量的类型赋值相容.表达式的
8、类型与左边变量的类型相同表达式为整型,左边变量为实型.如果表达式为实型,左边变量为整型则赋值不相容,为非法赋值语句,注意事项：,1、赋值语句中左右两边数据类型必须匹配即赋值相容；2、一个赋值语句只能给一个变量赋值。变量可以被多次赋值，赋值后的变量将在程序中一直保持不变，直到被再次赋为其它值；,注意事项：,1、赋值语句中左右两边数据类型必须匹配即赋值相容；2、一个赋值语句只能给一个变量赋值。变量可以被多次赋值，赋值后的变量将在程序中一直保持不变，直到被再次赋为其它值；3、被赋值的变量本身可以作为因子参与运算，如：n:=n+1等。,可以看作有特殊功能的赋值语句,累加 count:=count+nu
9、m记数 count:=count+1累乘 a:=a*x,输出语句,用于将计算结果通过屏幕或打印机输出给人看一般形式:write()或 writeln()输出表是一些由逗号分开的输出项输出项可以是变量或表达式,2356,Program example(input,output);var x,y:integer;Begin x:=2;y:=3;End.,writeln(x,y,x+y,x*y);,x=2 y=3 x+y=5 x*y=6,Program example(input,output);var x,y:integer;Begin x:=2;y:=3;End.,writeln(x=,x,y=
10、,y,x+y=,x+y,x*y=,x*y),writeln语句,writeln(x=,x,y=,y);writeln(x+y=,x+y,x*y=,x*y);,x=2 y=3 x+y=5 x*y=6,writeln;输出空行或换行write(x,y);writeln;等价于writeln(x,y),例：,Program example(input,output);var r:real;begin r:=3.1416;writeln(r);writeln(r:12);writeln(r:10:2);writeln(r:3:2);writeln(r:1);end.,场宽说明,在输出项后加冒号，加整型
11、表达式，表达式的值代表输出项所占的宽度，例如：X:=-125.6;I:=23；write（x：12，i：10）-1.25600e+02 23,12位,10位,场宽说明,对于实型数也可以用两个整型表达式来说明场宽。第一个值表示总场宽，第二个值表示小数位数。此时实型数以小数形式输出。例：write（x：10：2）；-125.60,常常在read语句前加write语句，打印输入提示信息。例：writeln（input two num：）；read（hours，rate）；运行：input two num：,read语句,read语句用于在程序执行时从外部输入数据给变量.一般形式:read(变量表)r
12、ead语句中,输入数据与输入变量之间必须赋值相容.布尔变量的值不能直接输入,可根据输入的整型或字符型,给布尔变量赋相应值.,read语句举例,Program example(input,output);Var hours,rate:integer;ch1,ch2,ch3:char;Begin End.,read(hours,rate);writeln(hours,rate);,read(hours,rate)输入30 45输出两变量的值,read语句举例,输入a b c输出三变量的值,Program example(input,output);Var hours,rate:integer;ch
13、1,ch2,ch3:char;Begin End.,read(ch1,ch2,ch3);writeln(ch1,ch2,ch3);,read(hours,rate)输入30 45输出两变量的值,read(ch1,ch2,ch3)输入abc输出三变量的值,readln语句,输入数据为：1.5 3.7 2.45.7 2.1 8.99.2 1.7 5.32.8 3.4 2.9,Program example(input,output);Var a,b,c,d,e,f,g,h:real;Begin End.,read(a,b);read(c,d,e,f);read(g,h);Writeln(a,b,c
14、,d,e,f,g,h),readln语句,输入数据为：1.5 3.7 2.45.7 2.1 8.99.2 1.7 5.32.8 3.4 2.9,Program example(input,output);Var a,b,c,d,e,f,g,h:real;Begin End.,readln(a,b);readln(c,d,e,f);readln(g,h);Writeln(a,b,c,d,e,f,g,h),练习,任意输入5个数，求它们的和。（要求：只能定义两个变量）,样程：,Program ex(input,output);var sum,x:real;begin sum:=0;read(x);s
15、um:=sum+x;read(x);sum:=sum+x;read(x);sum:=sum+x;read(x);sum:=sum+x;read(x);sum:=sum+x;End.,顺序结构程序设计,用计算机解题的基本方法:(两个任务)任务1:定义在计算机存储器中表示的数据任务2:描述算法-列出处理这些数据的步骤.,例 写一个程序,计算和打印两个数的和及平均值.,1.定义数据:输入变量:用num1和num2来标识两个输入数据,其值由读语句输入输出变量:用sum标识两个数的和,用average标识两个数的平均数,其值代表问题所要求的最后计算结果。,描述算法,1.读数据到变量num1与num2中2
16、.计算num1与num2的和,存储结果在变量sum中3.计算num1与num2的平均,存储结果在变量average中打印变量sum与average的值,样程：,program addtwo(input,output);var num1,num2,sum,average:real;begin read(num1,num2);sum:=num1+num2;average:=sum/2;write(sum,average)end.,练习：,求梯形的面积。（提示：需要输入梯形的上底，下底和高。）,样程：,program a(input，output）；var a，b，h,area：real；Begin
17、 write(Enter a,b,h:);readln（a，b，h）；area:=(a+b)*h/2；writeln（Area=，area）end.,S=,P(P-A)(P-B)(P-C),其中P=（A+B+C）/2,写一程序读入A，B，C的值，计算并打印S值。,练习：,已知三角形A，B，C，求三角形面积的公式为：,S=,P(P-A)(P-B)(P-C),=sqrt(p*(p-a)*(p-b)*(p-c),样程：,program a(input，output）；var a，b，c，s，p：real；begin write(input 3 number:);read（a，b，c）；p：=（a+b
18、+c）/2；s：=sqrt(p*(p-a)*(p-b)*(p-c)；writeln（s=,s）end.,算法：（1）读入一个三位整数（2）将它分解（3）重新组合（4）输出反向的数,练习:,输入一个三位整数，将它反向输出。,样程：,Program ex(input,output);var x,y:integer;a,b,c:integer;begin write(please input one integer(100 x999):);readln(x);a:=x div 100;c:=x mod 10;b:=(x-c)mod 100;y:=c*100+b+a;writeln(y=,y);end
19、.,练习：,某幼儿园里，有5个小朋友编号为：1、2、3、4、5，他们按自己的编号顺序围坐在一张圆桌旁。他们身上都有若干个糖果，现在他们做一个分糖果游戏。从1号小朋友开始，将他的糖果均分3份（如果有多余的，则他将多余的糖果吃掉），自己留1份，其余2份分给他的相邻的两个小朋友。接着2号、3号、4号、5号小朋友也这样做。问一轮后，每个小朋友手上分别有多少糖果。,样程：,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,b,c,d,e=,a,b:5,c:5,d:5,e:5);readln;End.,
