Pascal程序的一般结构和基本语句.ppt

1、欢迎参加信息学奥林匹克竞赛学习,授课老师：周老师 QQ群：70184042 E-mail: 注：加入群时，需填写真实姓名,信息学奥赛简介,每年比赛 5月份的市赛 7月份的省赛 全国联赛（10月初赛，11月份复赛）,学习意义,培养学生的自学能力 培养学生的逻辑思维、抽象思维能力 对理科学习有反哺作用。学好了信息学奥赛，一般在理科学习上都能居高临下，相辅相成。 作为一项生存技能，计算机技术特别实用和必要。,培训时间和地点,时间: 每周二、四下午第7节，及周六下午(2:304:30)。 地点：五楼电脑室。,学习资料,电子图书： Pascal辅导教程,教师机上的资料：teacherOINOIP2011

2、初赛,双击安装程序：fpc-2.0.2.i386-win32.exe,单击“选项”，在当前代码页中，选“437 （OEM 美国）”,软件下载：,Free Pascal 集成开发环境,Free Pascal 集成开发环境,编译程序(Compile):Alt+F9 运行程序(Run):Ctrl+F9 保存程序(Save):F2 打开原有的程序:F3 查看程序运行结果:Alt+F5,编写程序的一般过程：编辑编译运行查看结果,程序输入与调试,program Hello; begin write(Hello,the world!);输出Hello,the word! end.,计算半径为R的圆面积S,p

3、rogram Area; const pi=3.14159; 定义常量pi var s,r:real; 定义实型变量s,r begin readln(r); 读入半径数据,存放在变量r s := pi*r*r; 计算圆的面积，并把值赋给变量s writeln(s=,s) ; 输出面积 end.,例2计算半径为R的圆面积Sprogram Area; 程序首部，可以省略不写 const pi=3.14159; 常量说明 说明部分var s,r:real; 变量说明 begin readln(r); 输入 s:=pi*r*r; 处理 writeln(s=,s); 输出end.,保留字,程序名,执行部

4、分,例2计算半径为R的圆面积Sprogram Area; 程序首部，可以省略不写 const pi=3.14159; 常量说明 说明部分var s,r:real; 变量说明 begin readln(r); 输入 s:=pi*r*r; 处理 writeln(s=,s); 输出end.,保留字,程序名,执行部分,烹制方法： 1、将肉末过水煮熟捞出，炒锅中加油，下海米、葱姜末爆香，放入肉末炒至干香，再加入马蹄碎，调入醪糟、红曲米粉、酱油、冰糖、盐调色调味，炒制过程中不断加水，最后用水淀粉勾芡即成肉酱； 2、将丝瓜去皮切条，过开水焯熟，坐锅点火倒油，下葱姜末爆香后放入丝瓜、肉酱，调入盐、胡椒粉，勾芡

5、加味精出锅即可。,输出（write(s)）,输入（read (r)）,处理(s:=pi*r*r),肉酱丝瓜,数据对于一门程序语言是非常重要的，数据的一个非常重要的特征就是它的类型。 PASCAL规定：程序中出现的变量必须先说明才能使用。,PASCAL的数据类型,标准数据类型,标识符：是以字母或下划线开头的字母、数字、下划线组合，用来表示常量、变量、类型、文件、函数、过程或程序的名字。 合法的标识符：x，y，max，min，sum，a15，a3b7，_2d34。 非法的标识符：5x，x-y，ex10.5。 标识符的长度：一般不要超过8个字符。 标识符的选取：最好有一定意义，这样便于记忆，也增加了

6、程序的可读性。,标识符,program 程序名（程序参数表）； 标号说明； 常量说明； 类型说明； 变量说明； 函数说明； 过程说明； begin 程序语句； ； 程序语句； end.,说明部分,执行部分,1、每一个完整语句由分号结束。 2、具体程序不一定包括全部说明，但如果出现，必须按这里所指定的前后次序编写。 3、执行部分不可少，开始为begin，程序体以END.结束，且最后一个句号不能漏掉。 4、END前一句语句的分号可有可无，有则编译时多一个空行。,Pascal程序基本组成,数制的转换,1、常用的进位计数制有：十进制、二进制、八进制、十六进制。,2、常用进制对照表,3、十进制与二进制的

7、相互转换,例1：将十进制数20.6875转换成二进制数。 （1）整数部分的转换：“除以2倒序取余法”。 2 20 0 2 10 0 2 5 1 2 2 0 2 1 1 0 （2）小数部分的转换：“乘2取整法”。 0.6875 0.3750 0.75 0.5 2 2 2 2 1.3750 0.75 1.5 1.0 1 0 1 1 正序取整,倒序取余,合在一起得： （20.6875）10 =（10100.1011）2,基本语句,输入语句（read(r) 或readln(r) 输出语句（write(s)或writeln(s) 赋值语句（变量:=表达式）,学习资料：teacherOINOIP2011初

8、赛,输入语句,程序运行时从键盘输入变量的值。 格式： read (变量名表); readln ;,语义： 执行该语句时，从键盘上读入数据，将值依次赋给变量名表中的变量，其中变量名表是一串用逗号分隔开的变量标识符。,readln后可以没有变量名表，尖括号“”表示此内容可省。如果没有变量名表，表示读入一个回车换行符。,当输入的数据个数多于变量个数时：readln后多余数据将被忽略，read后多余数据要么被忽略，要么被下一个read或readln语句所读入。,语句read(a1,a2,an);等价于read(a1); read(a2);read(an);,语句readln(a1,a2,an);等价于

9、read(a1); read(a2);read(an);readln;,当程序执行到readln时就自动跑到下一行准备读下一行的数据，不管当前行还有没有数据没读完。,输入语句,程序执行到read或readln语句时，系统处理等待状态，等待用户从键盘上输入数据。,说明 输入项括号内应是一组变量，若多个时用逗号分隔。,输入字符型数据时，数据间不能用空格和回车键分隔字符，因为计算机默认空格、回车键也是字符，因此需按read或readln括号内变量的个数，一一对应输入字符，无须分隔符。状态。,输入数值型数据时，数据间用空格或回车健分隔，最后一定要有一个回车，表示输入结束。,程序运行后，输入的必须是常量

10、，类型要保持一致。,数据输入不能少于变量个数，否则系统仍处理等待状态。,program io1; 程序名io1 var a,b,c:integer; 定义整型变量a,b,c begin read(a,b); 读入两个整数，并分别存放在变量a,b read(c); 读入第三个整数，并存放在变量c writeln(a=,a,b=,b,c=,c); 输出三个整数a,b,c end.,program io2; 程序名io2 var a,b,c:integer; 定义整型变量a,b,c begin readln(a,b); 读入两个整数，后继操作从下一行的起始位置开始 read(c); 读入第三个整数，

11、并存放在变量c writeln(a=,a,b=,b,c=,c); 输出三个整数a,b,c end.,输出语句,程序必须要由输出。 格式： write(输出项); writeln;,语义： write语句一项项输出，最后不换行，但必须出一行。 writeln语句也是一项项输出，但输出完最后一项后自行换行，允许没有输出项，起换行作用。,说明： 输出项可以是一组常量、变量、表达式或字符串。 常量直接输出；变量输出存储内容；表达式时先计算后输出结果；字符串用单引号括起来。,program io3; 程序名io3 var a,b,c:integer; 定义整型变量a,b,c begin read(a,b

12、,c); 读入三个整数，并分别存入a,b,c writeln(a=,a,b=,b); 输出变量a,b的值,并换行 writeln(c=,c); 输出变量c的值 end.,program io4; 程序名io4 var a,b,c:integer; 定义整型变量a,b,c begin read(a,b,c); 读入三个整数，并分别存入a,b,c write (a=,a,b=,b); 输出变量a,b的值, writeln(c=,c); 输出变量c的值 end.,2.输出域宽 为输出方便列表，用户可为每个输出项指定一个域宽。指定方法是输出项后加冒号和一个指定域宽的整型表达式，即形式为“项：域宽”。如

13、果输出项的长度少于域宽，则往右靠齐；如果输出项的长度多于域宽，则取实际长度。如语句 Writeln(A=,a:3,A+B,a+b:6); 若程序中a已赋值1000,b已赋值500，则输出字样为 A=1000,A+B= 1500 Writeln(A=,a:3,A+B,a+b:6);,program io5; var a,b:integer; begin read(a,b); 读入两个整型数，并存放在a,b中 writeln(a=,a:3,a+b=,a+b:6); 输出a的值，和表达式a+b的值 end.,3.输出实数 在Pascal程序中，实数(real)以浮点型格式输出。例如805.67对应的

14、浮点数为8.056700000000+E02。这种实数表达方式很不方便。我们可以通过下述形式强迫实数以定点型格式输出： 实数表达式：域宽：小数位数 例如，t的值设为63.123。下面三条输出语句的输出格式分别为： Write(t); 6.312300000000E+01 Write(t:6:2) 63.12 Writeln(t:6:5); 63.12300,program io6; var t:real; begin read(t); writeln(t); writeln(t:6:2); writeln(t:6:5); end.,赋值语句,赋值，顾名思义，就是把一个值赋予某个量。可以这理解：变量相当于装东西的容器，赋值的过程就是把东西放进容器的过程。赋值语句格式如下： 变量:=表达式；,写赋值语句有以下几点要注意： 1、赋值号“:=”。,2、变量要先说明 。在赋值号左边出现的变量，要在程序头的说明部先加以说明，否则编译时出错。,3、表达式必须要有确定的值。,4、赋值号两边的数据类型必须相同或相容。,program Area; const pi=3.14159; 常量说明 var s,r:real; 变量说明 begin readln(r); s:=pi*r*r; writeln(s=,s);end.,小结：,数据对于一门程序语言是非常重要的，数据的一个非常重要的特征就是它的