Z
zouxuan
Unregistered / Unconfirmed
GUEST, unregistred user!
第一课 初识Pascal语言
信息学奥林匹克竞赛是一项益智性的竞赛活动，核心是考查选手的智力和使用计算机解题的能力。选手首先应针对竞赛中题目的要求构建数学模型，进而构造出计算机可以接受的算法，之后要写出高级语言程序，上机调试通过。程序设计是信息学奥林匹克竞赛的基本功，在青少年朋友参与竞赛活动的第一步必须掌握一门高级语言及其程序设计方法。
一、 Pascal 语言概述
PASCAL语言也是一种算法语言，它是瑞士苏黎世联邦工业大学的N．沃思(Niklaus Wirth)教授于1968年设计完成的，1971年正式发表。1975年，对PASCAL语言进行了修改，作为“标准PASCAL语言”。
PASCAL语言是在ALGOL 60的基础上发展而成的。它是一种结构化的程序设计语言，可以用来编写应用程序。它又是一种系统程序设计语言，可以用来编写顺序型的系统软件（如编译程序）。它的功能强、编译程序简单，是70年代影响最大一种算法语言。
二、 Pascal 语言的特点
从使用者的角度来看，PASCAL语言有以下几个主要的特点：
⒈ 它是结构化的语言。PASCAL语言提供了直接实现三种基本结构（顺序、分支、循环）的语句以及定义“过程”和“函数”(子程序)的功能。可以方便地书写出结构化程序。在编写程序时可以完全不使用GOTO语句和标号。这就易于保证程序的正确性和易读性。PASCAL语言强调的是可靠性、易于验证性、概念的清晰性和实现的简化。在结构化这一点上，比其它（如BASIC,FORTRAN77）更好一些。
⒉ 有丰富的数据类型。PASCAL提供了整数、实型、字符型、布尔型、枚举型、子界型以及由以上类型数据构成的数组类型、集合类型、记录类型和文件类型。此外，还提供了其它许多语言中所没有的指针类型。沃思有一个著名的公式："算法＋数据结构＝程序"。指出了在程序设计中研究数据的重要性。丰富的数据结构和上述的结构化性质，使得PASCAL可以被方便地用来描述复杂的算法，得到质量较高的程序。
⒊ 能适用于数值运算和非数值运算领域。有些语言（如FORTRAN 66,ALGOL 60）只适用于数值计算，有些语言（如COBOL ）则适用于商业数据处理和管理领域。PASCAL的功能较强，能广泛应用于各种领域。PASCAL语言还可以用于辅助设计，实现计算机绘图功能。
⒋ PASCAL程序的书写格式比较自由。不象FORTRAN和COBOL那样对程序的书写格式有严格的规定。PASCAL允许一行写多个语句，一个语句可以分写在多行上，也不区分大小写，这样就可以使PASCAL程序写得象诗歌格式一样优美，便于阅读。
由于以上特点，许多学校选PASCAL作为程序设计课程中的一种主要的语言。它能给学生严格而良好的程序设计的基本训练。培养学生结构化程序设计的风格。但它也有一些不足之处，如它的文件处理功能较差等。
三、 Pascal语言程序的基本结构
任何程序设计语言都有着一组自己的记号和规则。PASCAL语言同样必须采用其本身所规定的记号和规则来编写程序。尽管不同版本的PASCAL语言所采用的记号的数量、形式不尽相同，但其基本成分一般都符合标准PASCAL的规定，只是某些扩展功能各不相同罢了。下面我们首先来了解Pascal语言的程序基本结构。
为了明显起见先举一个最简单的PASCAL程序例子：
【例１】
从这个简单的程序可以看到：
⒈ 一个PASCAL程序分为两个部分：程序首部和程序体（或称分程序）
⒉ 程序首部是程序的开头部分，它包括：
⑴ 程序标志。用“program”来标识“这是一个PASCAL 程序”。PASCAL规定任何一个PASCAL程序的首部都必须以此字开头。在turbo pascal语言中，首部也可省略。
⑵ 程序名称。由程序设计者自己定义（但受一些规则限制），如例中的exam1。
注：在写完程序首部之后，应有一个分号。
⒊ 程序体是程序的主体，在有的书本里也称“分程序”。程序体包括说明部分（也可省略）和执行部分两个部分。
⑴ 说明部分用来描述程序中用到的变量、常量、类型、过程与函数等。本程序中第二行是"变量说明"，用来定义变量的名称、类型。
PASCAL规定，凡程序中用到所有变量、符号常量、数组、标号、过程与函数、记录、文件等数据都必须在说明部分进行定义（或称“说明”）。也就是说，不允许未说明先使用。
⑵ 执行部分的作用是通知计算机执行指定的操作。如果一个程序中不写执行部分，在程序运行时计算机什么工作也不做。因此，执行部分是一个PASCAL程序的核心部分。
执行部分以“begin
”开始，以“end”结束，其间有若干个语句，语句之间以分号隔开。
注：执行部分之后有一个句点，表示整个程序结束。
⒋ PASCAL程序的书写方法比较灵活。当然，书写不应以节省篇幅为目的，而应以程序结构清晰、易读为目的。在编写程序时尽量模仿本书中例题程序格式。
⒌ 在程序中，一对大括号间的文字称为注释。注释的内容由人们根据需要书写，可以用英语或汉语表示。注释可以放在任何空格可以出现的位置。执行程序时计算机对注释不予理睬。
四、 Turbo Pascal语言系统的使用（FreePascal与之类似）
目前，常用的Pascal语言系统有Turbo Pascal7.0、Borland Pascal 7.0、FreePascal1.0.10，下面我们就来学习Turbo Pascal 7.0系统的使用。
1． 系统的启动（上面的这几个版本都可在DOS、WINDOWS下使用）
方式一：只适合在WINDOWS下，在桌面上建立快捷方式，然后双击快捷方式即可
方式二：进入相应的系统目录下，执行主程序（Turbo Pascal的主程序为TURBO.EXE；FreePascal的主程序为FP.EXE），具体的操作步骤如下
进入DOS命令行（这是在WIDOWS下要做的，ＷＩＮ９８及以前的版本是在“运行”窗口中输入COMMAND命令；ＷＩＮＸＰ及以上版本是在“运行”窗口中输入CMD命令）
输入以下命令行即可启动相应的编译集成环境：
cd /tp/bin {进入主程序所在的文件夹，Freepascal是cd /pp/bin/go32v2}
turbo {Freepascal是fp}
系统启动后，屏幕上出现如图1所示的集成环境。
2． Turbo Pascal系统集成环境简介
最顶上一行为主菜单。中间蓝色框内为编辑窗口，在它个编辑窗口内可以进行程序的编辑。最底下一行为提示行，显示出系统中常用命令的快捷键，如：将当前编辑窗口中文件存盘的命令快捷键为F2，获得系统帮助的快捷键为F1，等等。
3． 新建程序窗口
按F10进入主菜单，选择FILE菜单，执行其中New命令。就可建立一个新的程序窗口（默认文件名为Noname00.pas或Noname01.pas等）。
4． 程序的输入、编辑与运行
在当前程序窗口中，一行一行的输入程序。事实上，程序窗口是一个全屏幕编辑器。所以对程序的编辑与其它编辑器的编辑方法类似，这里不再重复。
当程序输入完毕之后，一般要先按Alt+F9（或执行compile菜单中compile命令）对程序进行编译。如果程序有语法错误，则会在程序窗口的第一行处显示第一个红色错误信息。若无语法错误，则窗口正中央会出现一个对话框，提示编译成功。接下来，我们可以运行程序了。
程序的运行可以通过按ALT+R打开RUN菜单中的RUN命令，或直接按快捷键CTRL+F9。则可以在用户窗口中输出运行结果。通常在程序运行结束后系统回到Pascal系统的集成环境，因此要查看运行结果，要按ALT+F5将屏幕切换到用户屏幕。
5．程序的保存与打开
当我们想把程序窗口中的程序存入磁盘时，可以通过按F2键(或执行File菜单中的save命令)来保存程序。第一次保存文件时屏幕上会出现一个对话框要求输入文件名(默认扩展名为.pas)。
当我们要将磁盘上的程序文件中的PASCAL程序装入窗口时，可按F3(或执行File菜单中的Open命令)来装入程序，此时系统也会弹出一个对话框要求输入要打开的文件名，或直接在文件对话框列表中选择所要的文件，然后回到打开文件。
6．退出Turbo Pascal：直接按组合键ALT+X或选择“File”菜单中的“Exit”
五、 第一个程序
为让大家了解程序设计的基本过程（编辑→编译／解释→连接→运行），请大家输入下面的程序并运行，学会用自己的描述它的功能是什么？
program sample;
var
i,n,number:integer;
begin
write('Number=');
readln(number);
for i:=1 to numberdo
begin
if i mod 2=1 then
begin
for n:=1 to (number-i) div 2do
write(' ');
for n:=1 to ido
write('*');
writeln;
end;
end;
readln
end.
请输入上面的程序，将其存盘、关闭。然后再打开并运行序。（中途要在不退出Pascal的情况下进入命令行状态查看程序的运行结果，可以选择“File”菜单中的“Command shell”，Turbo Pascal为“Dos shell”，返回请输入EXIT命令，不分大小写。
作业：模仿本课中出现的例程及学到的知识，完成下列编程任务
1． 提示用户输入圆的半径，计算并输出圆的周长
2． 提示用户输入两个数，计算并输出这两个数的和
第二课 赋值语句、输出语句
上节课，我们学习了Pascal语言的程序基本结构，在一个程序中，所有的操作都由执行部分来完成，而执行部分又都是由一个个语句组成的。因此，下面开始我们要学习pascal语言的基本语句，并且在学习过程中逐步学会程序设计的基本方法。
这节课我们要学习两种语句，即赋值语句与输出语句。在语句学习之前我们要先了解一些pascal语言的基础知识。
一、常量、变量与算术表达式
（一）常量：在程序运行过程中，其值不能被改变的量称为常量。如123,145.88,'abc',true等。
１、整型常量：整型常量采用我们平常使用的十进制整数表示，包括正整数、负整数和零。如：138，0，-512等都是整型常量，而18.或18.0都不是整型常量。pascal中有一个标准标识符Maxint，它代表所使用的计算机系统允许的最大整型数，而最小的整型数即为－Maxint；Turbo Pascal还定义了长整数常量MaxLongInt，其值为2147483647。
注：计算机系统能表示的整型数的范围取决于其字长，如：现在大部分机器的字长为16，它们所能支持的整型数的范围为-215至+215-1，即-32768至+32767，这里涉及到有符号数和补码方面的知识；要想知道你所使用的计算机所能表示的整型数的范围，用这样的语句就可以知道了：WRITE(-maxint-1,' ',maxint)
２、实型常量：包括正实数、负实数和实数零，其实就是常说的小数，pascal中表示实型常量的形式有两种。
⑴十进制表示法：这是人们日常使用的带小数点的表示方法，如0.0、-0.0、+5.61、-8.0、-6.050等都是实型常量，而0.、.37都不是合法的实数形式
⑵科学记数法：采用指数形式的表示方法，如1.25×105可表示成1.25E+05。在科学记数法中，字母"E"表示10这个"底数"，而E之前为一个十进制表示的小数，称为尾数，E之后必须为一个整数，称为"指数"。如-1234.56E+26、+0.268E-5 、1E5是合法形式，而.34E12、2.E5、E5、E、1.2E+0.5都不是合法形式的实数。
无论实数是用十进制表示法还是科学表示法，它们在计算机内的表示形式是一样的，总是用浮点方式存储。
和整数相比，实数能表示的范围大得多，但值得注意的是实数的运算比整数的运算速度慢且无法像整数那样精确表示，只能近似表示。
３、字符常量：在Pascal语言中，字符常量是由单个字符组成，所有字符来自ASCII字符集，共有256个字符。在程序中，通常用一对单引号将单个字符括起来表示一个字符常量 ，如：'a'，'A'，'0'等 ；特殊地，对于单引号字符，则要表示成''''。对于ASCII字符集中，按每个字符在字符集中的位置，将每个字符编号为0－255，编号称为对应字符的序号，因此字符也存在大小，如：'A'<'a'、'b'>'a'
４、布尔常量：布尔型常量仅有两个值，真和假，分别用标准常量名true和false表示 ，它们的序号分别为1和0。
５、符号常量：它是由程序员自己定义的，一个常量即可以直接用字面形式表示（称为直接常量， 如 124,156.8），也可以用一个标识符来代表一个常量，称为"符号常量"。但符号常量必须在程序中的说明部分定义，也就是说先定义，后使用。
定义符号常量的一般格式： CONST <常量标识符>=<常量>;
如：
CONST PI=3.1415926;
E=2.71828;
说明：常量说明部分以关键字const开头, 后面的标识符为常量标识符，其中"="号后的常量为整数、实数、字符、 字符串（字符串常量在后面章节中将作介绍） ；而且在常量说明部分可以将几个常量说明成符号常量，共用一个关键字"const"，例如：
则在本程序中pi和zero作为符号常量，分别代表实数3.14159和整数0；也就是说，常量说明部分既定义了常量名及其值，又隐含定义了常量的类型。
关于符号常量，应注意下列几点：
⑴ 符号常量一经定义，在程序的执行部分就只能使用该常量标识符，而不能修改其值。
⑵ 使用符号常量比直接用数值更能体现"见名知义"的原则，也便于修改参数，故一个较好的程序中，应尽量使用符号常量，在执行部分基本上不出现直接常量。
（二）变量：变量代表了一个存储单元，其中的值是可变的，故称为变量。如游戏"魂斗罗"中玩者命的个数最初为3，当你死了一次命减少一，这里命的个数就是一个变量（或者说命的个数存储在一个存储单元中）。即在程序运行过程中，其值可以改变的量，称为变量。
变量有三个要素是：变量名、变量类型、变量值
一个程序中可能要使用到若干个变量，为了区别不同的变量，必须给每个变量（存贮单元）取一个名（称为变量名），该变量（存贮单元）存放的值称为变量的值，变量中能够存放值的类型为变量的类型。例如 "魂斗罗"游戏中用于存放"命"的变量,在游戏程序中的名字可取为N,它的类型为整型,游戏初始时这个变量的值为3。
1．变量名：用一个合法的标识符代表一个变量。如n,m,rot,total 等都是合法变量名。在程序中用到的变量必须在说明部分加以说明，变量名应遵循自定义标识符的命名规则，并注意“见名知义”的原则，即用一些有意义的单词作为变量名
“自定义标识符”的命名规则为：自定义标识符必须以字母（包含下划线"_"）开头，后面的字符可以是字母或数字，标识符长度不超过63个字符。
2．变量的类型：常量是有类型的数据，变量在某一固定时刻用来存放一个常量，因此也应有相应的类型 ；如整型变量用来存放整数，实型变量用来存放实数；也就是说，变量的类型取决于将要存放的数据的类型，并且其类型一旦定义了，就不能再改变，也不能把其他类型的数据赋给它。
3．变量说明：在程序中若要使用变量，变量的名称及类型在程序的变量说明部分加以定义，变量的值则在程序的执行部分中才能赋给，变量说明的一般格式：VAR <变量标识符>[,<变量标识符>]:<类型>; (中括号内部分表示可省,下同)
其中VAR是pascal保留字,表示开始一个变量说明段, 每个变量标识符或由逗号隔开的多个变量标识, 必须在它的冒号后面说明成同一类型。一个程序中，可以说明许多不同类型的变量，每种类型变量之间用分号隔开，共用一个VAR符号。例如:
var
age,day:integer;
amount,average:real;
其中：Integer(整型)、Real(实型)、Boolean(布尔型)、Char(字符型)是标准标识符，它们是"类型标识符"，代表了确定的类型，如age和 day 被定义为整型变量，amount和average被定义为实型变量。
一旦定义了变量，就确定了它的类型，也就是说，就确定了该变量的取值范围和对该变量所能进行的运算。
（三）算术表达式
⑴算术表达式的定义：pascal语言中的算术表达式是由符合pascal语法规定的运算对象(包括常量、变量、函数)、算术运算符、圆括号组成的有意义的式子。如：A+3.14159*5/8.4-Abs(-1123)
⑵算术运算符，常用的有以下6个算术运算符：
① ＋ (加)
② － (减)
③ ＊ (乘)
④ ／ (实数除)得到结果为实型.如5.0/2.0=2.5， 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 4= -1 , 4 mod (-3)=1, - 4 mod 3= -1，即 a mod b=a-(a div b)*b
(3)运算优先顺序，如果一个表达式里出现两个或两个以上的运算符，则必须规定它们的运算次序 ，pascal规定
①表达式中相同优先级的运算符，按从左到右顺序计算
②表达式中不同优先级的运算符，按从高到低顺序计算
③括号优先级最高,从内到外逐层降低
在算术运算中运算符的优先顺序与数学上的四则运算一致，即“先乘除后加减”（注：MOD、DIV运算的优先级与＊、/相同）
二、赋值语句
变量既然代表一个存储单元，其值是可变的，那么其中的值是怎么提供的，又是怎么改变的呢？可以通过赋值语句来进行
1、赋值语句的格式
变量名:=表达式;
其中“:=”称为赋值号，是赋值语句的标志
2、执行过程：计算机先计算赋值号右边表达式的值，然后将表达式的值赋给变量名代表的变量,如：
A:=(9*8)-(2-1);
A:=A+1;
最后A的值为72
三、输出语句
输出语句的作用是将程序运算的结果输出到屏幕或打印机等输出设备，这里通常是指输出到屏幕。
（一）输出语句的两种格式
1、 write语句
格式：Write(表达式1，表达式2，……)；
如:write(1,2,3,4);
write(1.2,3.4,5);
write('My name is Liping');
2、 writeln语句
格式：Writeln(表达式1，表达式2，……)或writeln
（二）输出语句的功能
计算机执行到某一输出语句时，先计算出输出语句中的每个表达式的值，并将每一个表达式的值一个接一个地输出到屏幕上。
Write语句与writeln语句格式上都相似，但它们在功能上有所不同，两个语句的区别在于，write语句将其后括号中的表达式一个接一个输出后，没有换行 ；而writeln语句则在输出各个表达式的值后换行，例如以下两个程序段的输出分别为：
write(1,2,3,4);
write(5,6);
输出为：
123456
writeln(1,2,3,4);write(5,6);
输出为：
1234
56
四、应用例析
例1：某仓库5月1日有粮食100吨，5月2日又调进20吨，5月3日卖出库存的3分之二，5月4日又调进库存的3倍粮食，问该仓库从5月1日到5月4日期间每天的粮食分别是多少吨？(输出每天的库存量)
分析：在这个问题中，主要要描述从5月1日到5月4日期间仓库的粮食库存量，且易知它是不断变化的。因此我们可以用一个变量A来描述仓库的粮食库存量
程序可写如下：
Program ex1;
Var
A : integer;
begin
A:=100;
Writeln('5/1:',A);
A:=A+20;
Writeln('5/2:',A);
A:=A div 3;
writeln('5/3:',A);
A:=A *4;
writeln('5/4:',A);
Readln;
end.
例2：有三个小朋友甲乙丙。甲有50粒糖果，乙有43粒糖果，丙有13粒糖果。现在他们做一个游戏。从甲开始，将自己的糖分三份，自己留一份，其余两份分别给乙与丙，多余的糖果自己吃掉，然后乙与丙也依次这样做。问最后甲、乙、丙三人各有书多少粒糖果？
分析：这个问题中我们关心的是在游戏过程中每个小朋友的糖果个数，且他们所拥有的糖果数是在变化的。因此可用a,b,c三个变量分别存放甲乙丙三个小朋友在某一时刻所拥有的糖果数。对于每人，分糖后，他的糖果数一定为原来的糖果数 div 3（因为分糖过程糖果的数目不一定都刚好分完，用整除恰恰可以表示多余的糖自己吃掉）。而其他两人则增加与这个小朋友现在拥有的一样的糖果。
程序可写如下：
program ex2;
var
A,B,C:integer;
begin
A:=50;B:=43;C:=13;
{初始时每个小朋友所拥有的糖果数}
A:=A div 3;
B:=B+A;C:=C+A;{甲小朋友分糖果后，每个人拥有的糖果数变化情况}
B:=B div 3;
A:=A+B;C:=C+B;
{乙小朋友分糖果后，每个人拥有的糖果数变化情况}
C:=C div 3;
A:=A+C;B:=B+C;
{丙小朋友分糖果后，每个人拥有的糖果数变化情况}
writeln('A=',A,'B=',B,'C=',C);
{输出结果}
readln;
end.
注：上程序中倒数第三行中'A='表示一个字符串（即用一对单引号括起来的一串字符），对于字符串，输出字符串的内容（即引号内的所得字符，而引号不输出）。
以上程序的运行结果为：
A=51B=35C=16
练习二：
1、已知某梯形的上底A=13，下底B=18，高H=9，求它的面积S。
2、已知某圆的半径R=139，求该圆的周长C与面积S？
3、某机关组织游泳比赛。将一堆西瓜分给前三名，把该堆西瓜中的一半又半个西瓜奖给第一名；剩下的一半又半个西瓜给第二名；把最后剩下的一半又半个西瓜给第三名，但每次分时并没切开任何一个西瓜，且刚好西瓜分完。问前三名各分到多少个西瓜 ？（答案：共7个，第一、二、三名各4、2、1个）
第三课 带格式的输出语句及输入语句
一、写语句（WRITE、WRITELN）的输出格式
在pascal语言中输出数据时是可以按照一定格式的，对整数隐含的输出形式为按十进制数形式；对实数的输出，隐含的形式是科学记数法形式（如果不想用科学记数法输出而用小数形式输出，要自己另行定义）。
事实上，输出语句中的每个输出项中的表达式之后可以加上格式说明，若输出项后没有加格式说明， 则数据按系统隐含的格式输出，还可加上一定格式符号按特定格式输出。
１、隐含的输出格式
pascal语言为整型量、实型量、布尔型量和字符串( 用一对单引号括起来的字符序列)规定了每种数据所占的宽度（即一个数据占几列），一个数据所占的宽度称为“场宽”或“字段宽”；系统给出的隐含场宽称为标准场宽，每一种pascal版本给定的标准场宽不尽相同，下表给出标准pascal、Turbo pascal、FreePascal所规定的标准场宽
标准场宽
数据类型 标准pascal TurboPascal FreePascal
integer 10 实际长度 实际长度
real 22 17 25
布尔型 10 4或5 4或5
字符串 串长 串长 串长
在Turbo Pascal系统中，对于整型字符串的输出都是按数据本身长度输出，对于布尔型数据（只有True和False两种值），TRUE为4列，FALSE为5列，一律采用大写输出。而real型数据的输出时，则按17列输出，其中第一列为符号位，正号不显示，后四位为"E±nn"，中间的12列为尾数部分。如：（□代表一个空格）
语句 WRITELN(2.367) WRITELN(67) WRITELN(TRUE) WRITELN('ACDE')
TurboPascal结果 □2.3670000000E+01 67 TRUE ACDE
FreePascal结果 □2.367000000000000000E+01 67 TRUE ACDE
有时，在程序中往往根据实际情况，需要自己定义场宽。
２、指定场宽（自己定义场宽）：在写语句中输出项含有格式符号时,就是为了指定场宽
⑴指定单场宽
格式：write(表达式:N)或writeln(表达式:N)，其中N为自然数，指定单场宽后，所有数据不再按标准场宽输出，而按指定场宽输出；若数据实际长度小于指定场宽时，则一律“向右靠齐，左留空格”。
如write(1234:8);write('abcdef':12)
输出结果:
□□□□1234□□□□□□abcdef
对于标准实型数据指定单场宽时，如果场宽大于标准场宽时，右靠齐按标准场宽格式输出17位，左留空格。若场宽小于标准场宽时，第一位仍为符号位，最后四位仍为“E±nn”，中间部分为尾数显示部分；如果指定的宽度小于8位，则数据按8位格式“*.*E±nn”输出
⑵指定双场宽
如果输出项是实数时，如果希望输出的实数不用科学记数法输出,而用小数形式输出,可以用指定双场宽方法输出，双场宽输出格式为：write(实型表达式:m:n)，其中m和n都是自然数，m 用以指定整个数据所占的宽度，n指定输出实数的小数位数，如：
write(sqrt(75):9:4);
输出:□□□8.6602
如果双场宽不能满足输出数据的最低要求，系统自动突破指定的场宽限制，按实际长度输出，如：write(sqrt(75):5:4);
要使小数点后有4位数字，而总场宽为5，是不可能的（因为还有一个小数点，小数点前面还有一个数字），它最低限度要有6列，即输出为：8.6602(舍弃超过场宽的数据坚持四舍五入原则)
例1：写出下列程序在turbo pascal下的输出结果
program ex;
const s='abcdefg';
var
i:integer;
r:real;
c:char;b:boolean;
begin
i:=1234;
r:=1234.5678;
c:='#';
b:=true;
writeln(i,i:6,i:3);
writeln(r,r:12:5,r:8:5,r:8:3);
writeln(c,c:5);
writeln(s,s:10,s:5);
writeln(b,b:5,b:3);
end.
运行结果如下:
1234□□12341234
□1.2345678000E+03□□1234.567801234.567801234.568
#□□□□#
abcdefg□□□abcdefgabcdefg
TRUE□TRUETRUE
３、应用例析
例2：已知A=253，B=43，输出A*B的运算式子，即输出如下
□□□□□□□２５３＊４３＝１０８７９□□□□□□□□□２５３□□□□□□□＊□□４３□□□□－－－－－－－－□□□□□□□□□７５９□□□□□＋□１０１２□□□□－－－－－－－－□□□□□□□１０８７９
分析：对于该问题，我们只要控制好输出时右靠齐即可。即前四行的总宽度一样（例如为12），第五行总宽度比前面少1。第六、七行总宽度与前四行一样。
参考程序如下：
var
a,b:integer;
begin
a:=253;b:=43;
writeln(a:10,'*',b,'=',a*b);
writeln(a:12);
write('*':8);writeln(b:4);
writeln('--------':12);
writeln(a*3:12);
write('+':6);writeln(a*4:5);
writeln('--------':12);
writeln(a*b:12);
end.
二、 输入语句（读语句READ、READLN）
在程序中变量获得一个确定的值，固然可以用赋值语句，但是如果需要赋值的变量较多，或变量的值经常变化，则使用本节介绍的输入语句─读语句，将更为方便。读语句是在程序运行时由用户给变量提供数据的一种很灵活的输入动作，它有两种格式：
read(<变量名表>);
readln[(<变量名表>)];
其中变量名表是用逗号隔开的若干个变量名组成的。
功能：从标准输入文件（即INPUT，一般对应着键盘）中读入数据，并依次赋给相应的变量
说明：①、read和readln是标准过程名,它们是标准标识符。
②、执行到read或readln语句时，系统处于等待状态，等待用户从键盘上输入数据，系统根据变量的数据类型的语法要求判断输入的字符是否合法。如执行read(a)语句，a是整型变量，则输入的字符为数字字符时是合法的，当输入结束时，则自动将刚接受的一串数字字符转换为整数赋给变量a。
③、在输入数值型（整型或实型）数据时，数据间要用空格或回车分隔开各个数据，输入足够个数的数据，否则仍要继续等待输入，但最后一定要有回车，表示该输入行结束，直到数据足够，该读语句执行结束，程序继续运行。
例3：设a、b、c为整型变量，需将它们的值分别赋以10、20、30，写出对应下列语句的所有可能输入格式
Read(a,b,c);
解：根据③,即可列出所有可能输入格式
(a)10□20□30←┘
(b)10□20←┘
30←┘
(c)10←┘
20□30←┘
(d)10←┘
20←┘
30←┘
其中"←┘"表示回车键，下同
④、read语句与readln语句的第一个区别是：read语句是一个接一个地读数据，在执行完本Read语句（读完本语句中变量所需的数据）后，下一个读语句接着从该数据输入行中继续读数据，也就是说，不换行。如：
Read(a,b);
Read(c,d);
Read(e);
如果输入数据行如下：
1□2□3□4□5□6□←┘
则a,b,c,d,e的值分别为1,2,3,4,5，如果后面无读语句则数据6是多余的，这是允许的。
Readln则不同，在读完本Readln语句中变量所需的数据后，该数据行中剩余的数据多余无用，或者说，在读完本Readln语句中变量所需数据后，一定要读到一个回车，否则多余的数据无用。
例4：设要达到例3同样的目的，但语句改为
readln(a,b);
readln(c);
则例3中的4种输入格式只有(b)(d)是有效的：
(b)10□20←┘
30←┘
(d)10←┘
20←┘
30←┘
⑤、readln语句与read语句的第二个区别是：read 后一定要有参数表，而readln可以不带参数表，即可以没有任何输入项，只是等待读入一个换行符(回车)，经常用于暂停程序的运行，直到输入一个回车。
例5：设有下列语句
read(a,b,c);
readln(d,e);
readln;
readln(f,g);
其中,所有变量均为整型。再设输入的数据如下：
1□2←┘
3□4□5□6□7□8←┘
9□10←┘
11←┘
12□13←┘
列表给出每个变量的值
分析：可以假想有一“数据位置指针”，每读一个数据后，指针后移到该数据之后，每执行一个readln语句后，指针移到下一个数据行的开头。
各变量的值如下表所示：
━━━━━━━━━━━━
变量名 a b c d e f g
────────────
值 1 2 3 4 5 11 12
────────────
⑥、为了避免可能出现的错误，建议在程序中按下列原则使用读语句：(A)如果没有特殊需要,在一个程序中尽量避免混合使用read语句和readln语句;(B)尽量用readln语句来输入数据, 一个数据行对应一个readln语句;(C)由于执行read或readln语句时, 系统不会提供任何提示信息,因此,编程时最好在readln语句之前加以适当提示,例如：
write('Input a,b,c:');
readln(a,b,c);
在执行时,屏幕上显示:
Input a,b,c:■
其中，“■”为光标；执行readln语句后，系统处于待待输入状态，只有输入了所需数据后才继续往下执行。
三、顺序结构程序设计
到目前为止，我们可以用读、写语句和赋值语句编写一些简单的程序。通过阅读这些程序，可以逐步熟悉pascal程序的编写方法和应遵循的规则，为以后各章的学习打基础
例6：试编一程序,输入一梯形的上底、下底、高, 求该梯形的面积。
分析：整个程序分为三段:输入、计算、输出。程序中用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.
例7：某幼儿园里，有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;{1号均分后，1、2、5号的糖果数变化情况}
b:=b div 3;c:=c+b;a:=a+b;{2号均分后，1、2、3号的糖果数变化情况}
c:=c div 3;b:=b+c;d:=d+c;{3号均分后，2、3、4号的糖果数变化情况}
d:=d div 3;c:=c+d;e:=e+d;{4号均分后，3、4、5号的糖果数变化情况}
e:=e div 3;d:=d+e;a:=a+e;{5号均分后，4、5、1号的糖果数变化情况}
{输出结果}
writeln('a=',a);
writeln('b=',b);
writeln('c=',c);
writeln('d=',d);
writeln('e=',e);
readln;｛暂停｝
end.
例8：编一程序求半径为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（假设这三边可以构成一个三角形），求三角形的面积Ｓ？
提示：可利用海伦公式 ，求平方根请使用SQRT()函数，如：56的平方根可表示为SQRT(56)。
3、编一程序，要求输入任意两个整数A和B，其中0<B<99，输出这两个数相乘的计算过程，例如：
Input A and B(0<B<99):235 25←┘２３５＊２５＝５８７５□□□□□□□□□２３５□□□＊□□□□□□２５－－－－－－－－－－－－□□□□□□□□１１７５□□□＋□□□□４７０－－－－－－－－－－－－□□□□□□□□５８７５
第四课 简单的分支结构程序设计
在现实生活中，我们每天都要进行根据实际情况进行选择。例如，原打算明天去公园，但如果明天天气不好，将留在家里看电视，也就是说人会根据条件进行行为的选择；计算机也会根据不同情况作出各种逻辑判断，进行一定的选择。在这课与下一课中，我们将会发现，我们是通过选择（分支）结构语句来实现程序的逻辑判断功能。
一、PASCAL中的布尔（逻辑）类型
在前面，我们学习了整型(integer)与实型（real），其中integer型数据取值范围为-32768到32767之间所有整数。而real型数据取值范围为其绝对值在10-38 到1038 之间的所有实数，它们都是数值型的（即值都为数）；布尔型（Boolean）是一种数据的类型，这种类型只有两种值，即“真”与“假”。
1、 布尔常量：在Pascal语言中“真”用ture表示，“假”用False表示，所以布尔类型只有TRUE与FALSE两个常量；
2、 布尔变量（BOOLEAN）：如果我们将某些变量说明成布尔型，那么这些变量就是布尔变量，它们只能用于存放布尔值（ture或false），例如，VAR A，B：BOOLEAN；
3、 布尔类型是顺序类型：由于这种类型只有两个常量，Pascal语言中规定ture的序号为1，false的序号为0。若某种类型的常量是有限的，那么这种类型的常量通常都有一个序号，我们称这种类型为顺序类型；如前面我们学过的整型（integer），以及后面要学到的字符型（char）都是顺序类型；
4、 布尔类型的输入与输出
a）、输出
VAR A，B：BOOLEAN；
begin
A：=TRUE；B：=FALSE；
WRITELN（A，B）；
end.
结果：TRUEFALSE
b）布尔类型变量不能直接用读语句输入：布尔类型变量不能通过读语句给它们提供值；事实上，我们可以通过间接方式对布尔变量进行值的输入，最常用的就是通过赋值语句
例如，以下程序是错误的
var a,b,c:Boolean;
begin
readln(a,b,c);
{错误语句}
writeln(a,b,c);
end.
又如：
var a:Boolean;
begin
a:=3>7;
{正确语句}
writeln(a);
end.
二、关系表达式与布尔表达式
1、什么是关系表达式：用小括号、>、<、>=、<=、=、<>将两个算术表达式连接起来的式子就称为关系表达式（比较式），如：3+7>8,x+y<10,2*7<=13等都是关系表达式
2、关系表达式的值
很显然，上面几个关系表达式中第一个是真的，第三个是假的，而第二个表达式可能是真的，也可能是假的；所以我们很容易发现，这些表达式的值是"对"的或"不对"的（或者说，是"真"的或"假"的），即关系表达式的值为布尔值。表示该比较式两端式子的大小关系是否成立；如3+2>6是假的，故它的值为FALSE；同样，45>=32是对的,故该表达式的值为true
说明：①对于>=、<=来说，只要有一部分成立，则表达式的值就为TRUE，如：3<=4和5>=5都是真的，即值为TRUE
②关系表达式可用于表示一个命题。如：“ｍ为偶数”可表示为：ｍ mod 2=0。“ｎ为正数”可表示为：n>0
3、布尔运算及布尔表达式（也称逻辑运算及逻辑表达式）：为了表示更复杂的命题，Pascal还引入三种逻辑运算符：not、and、or，它们分别相当于数学上的“非”、“且”和“或”的意义
这三个运算符的运算对象为布尔量，其中not为单目运算，只有一个运算对象，and与or为双目运算，有两个运算对象，它们的运算真值表如下：
a b Not a a and b a or b a xor b
false false true false false false
false true true false ture true
true false false false true true
true true false true true false
于是，一个或多个关系表达式用布尔运算符连接起来的式子就称为布尔表达式；布尔表达式的值也为布尔值；根据上表我们可以总结各运算符的运算规则：
NOT：非运算，取反（原来为真，非后为假；原来为假，非后为真）
AND：与运算，同为真则为真，其余均为假（参加运算的两个对象同为真结果才为真，否则为假）
OR：或运算，只要有一个为真，结果就为真
XOR：同或运算，相同则为真，不同则为假（参加运算的两个对象相同就为真，不同则为假）
请算出后面表达式的值：'a'<'A' NOT ('a'<'A') (3*4>6) AND ('B'>'A') (3*4>6) OR ('B'<'A')
注：①布尔运算符与运算对象之间可以没有空格，如：NOT('a'<'A')和(3*4>6)AND('B'>'A')都是正确的表达式；
②用括号改变各种运算符的先后顺序是非常重要的，如：NOT 'a'<'A'和3*4>6 AND ('B'>'A')都是不正确的表达式，因为布尔运算比关系运算的优先级高，导制上面的表达式有语法错误，为什么错请想一想
③布尔运算符的运算级别为：NOT＞AND＞OR 如：FALSE OR NOT TRUE AND TRUE的值为 FALSE，它等价于：FALSE OR ((NOT TRUE) AND TRUE)
如果一个表达式里出现两个或两个以上的运算符，则必须规定它们的运算次序，pascal规定：
①表达式中相同优先级的运算符,按从左到右顺序计算；
②表达式中不同优先级的运算符,按从高到低顺序计算；
③括号优先级最高，从内到外逐层降低；
对于一个复杂的表达式可能同时包含算术运算、关系运算和逻辑运算以及函数运算，运算的优先顺序为：括号＞函数＞NOT＞*、/、div、mod、and＞+、－、or、xor＞关系运算（>、=、<、<=、>=、<>）
对于复杂的命题，我们可以用布尔表达式来表示。例如，命题：“m,n都是偶数或都是奇数”可表示为(m mod 2=0)and(n mod 2=0) or (m mod 2=1)and(n mod 2=1)。
三、简单的IF语句
１、格式
Ⅰ、IF ＜布尔表达式＞then
语句；
Ⅱ、IF ＜布尔表达式＞then
语句１ else
语句２；
注意：Ⅱ型IF语句中语句１后无“；”号
２、功能
Ⅰ、执行IF语句时，先计算＜布尔表达式＞的值，若为TRUE则执行语句，否则不执行任何操作；
Ⅱ、执行IF语句时，先计算＜布尔表达式＞的值，若为TRUE则执行语句１，否则执行语句２；
３、示例
1）例4.2：输入一个整数ａ，判断是否为偶数（是输出Ｙｅｓ，否则输出Ｎｏ）
Program ex4_2;
Var a:integer;
begin
Write('a=');readln(a);
If (a mod 2 =0)then
writeln('Yes')
else
writeln('No');
Readln;
end.
2＝华榕超市里卖电池，每个电池８角钱，若数量超过１０个，则可打75折
Program ex4_3;
Var Num:integer;Price,Total:real;
begin
Write('Num=');readln(Num);
Price=0.8;
If Num>10 then
Price:=Price*0.75;
Total:=Num*Price;
Writeln('Total=',Total:0:2);
Readln;
end.
3＝编写一与电脑猜"红"或"黑"的游戏
分析：用１代表红，０代表黑。先由计算机先出答案，然后再由人猜，猜对输出"YOU WIN"否则输出"YOU LOST"；为了模拟猜"红"或"黑"的随意性，程序中需要用到随机函数random
函数是什么呢，例如大家都知道|-2|=2，|58|=58，那么|x|=?
如果我们用y表示|x|，那么，这里y=|x|就是一个函数，也就是说函数是一个关于一个或多个自变量（未知量，如上例中的x）的运算结果
在pascal语言中，系统提供了许多内部函数，其中包括|x|函数，当然它用abs(x)表示；我们如果要求X2-Y的绝对值，可以调用内部函数abs(x*x-y)即可求得；Random也是一个内部函数，调用它能得到0~n-1之间的整数（但它不确定的，或说是随机的）；同时由于函数是一个运算结果，所以函数的调用只能出现在表达式中
Program ex4_3;
Uses crt;
Var Computer,People:integer;
begin
Randomize;
Computer:=random(2);
Write('You guess（0－Red 1-Black）:');readln(People);
If People=Computer then
writeln('YOU WIN')
else
writeln('YOU LOST');
Readln;
end.
练习四：
1.某车站行李托运收费标准是：10公斤或10公斤以下，收费2.5元，超过10公斤的行李，按每超过1公斤增加1.5元进行收费。 试编一程序，输入行李的重量，算出托运费。
2.利用本课的知识，将第三课练习的第2题作进一步完善，即：程序要能判断输入的三个边能不能构成三角形（有数小于等于零、两边之和不能大于第三边都不能构成三角形），若不能则提示输入的数据有误且不做任何计算；若能构成三角形就计算并输出其面积。
信息学奥林匹克竞赛是一项益智性的竞赛活动，核心是考查选手的智力和使用计算机解题的能力。选手首先应针对竞赛中题目的要求构建数学模型，进而构造出计算机可以接受的算法，之后要写出高级语言程序，上机调试通过。程序设计是信息学奥林匹克竞赛的基本功，在青少年朋友参与竞赛活动的第一步必须掌握一门高级语言及其程序设计方法。
一、 Pascal 语言概述
PASCAL语言也是一种算法语言，它是瑞士苏黎世联邦工业大学的N．沃思(Niklaus Wirth)教授于1968年设计完成的，1971年正式发表。1975年，对PASCAL语言进行了修改，作为“标准PASCAL语言”。
PASCAL语言是在ALGOL 60的基础上发展而成的。它是一种结构化的程序设计语言，可以用来编写应用程序。它又是一种系统程序设计语言，可以用来编写顺序型的系统软件（如编译程序）。它的功能强、编译程序简单，是70年代影响最大一种算法语言。
二、 Pascal 语言的特点
从使用者的角度来看，PASCAL语言有以下几个主要的特点：
⒈ 它是结构化的语言。PASCAL语言提供了直接实现三种基本结构（顺序、分支、循环）的语句以及定义“过程”和“函数”(子程序)的功能。可以方便地书写出结构化程序。在编写程序时可以完全不使用GOTO语句和标号。这就易于保证程序的正确性和易读性。PASCAL语言强调的是可靠性、易于验证性、概念的清晰性和实现的简化。在结构化这一点上，比其它（如BASIC,FORTRAN77）更好一些。
⒉ 有丰富的数据类型。PASCAL提供了整数、实型、字符型、布尔型、枚举型、子界型以及由以上类型数据构成的数组类型、集合类型、记录类型和文件类型。此外，还提供了其它许多语言中所没有的指针类型。沃思有一个著名的公式："算法＋数据结构＝程序"。指出了在程序设计中研究数据的重要性。丰富的数据结构和上述的结构化性质，使得PASCAL可以被方便地用来描述复杂的算法，得到质量较高的程序。
⒊ 能适用于数值运算和非数值运算领域。有些语言（如FORTRAN 66,ALGOL 60）只适用于数值计算，有些语言（如COBOL ）则适用于商业数据处理和管理领域。PASCAL的功能较强，能广泛应用于各种领域。PASCAL语言还可以用于辅助设计，实现计算机绘图功能。
⒋ PASCAL程序的书写格式比较自由。不象FORTRAN和COBOL那样对程序的书写格式有严格的规定。PASCAL允许一行写多个语句，一个语句可以分写在多行上，也不区分大小写，这样就可以使PASCAL程序写得象诗歌格式一样优美，便于阅读。
由于以上特点，许多学校选PASCAL作为程序设计课程中的一种主要的语言。它能给学生严格而良好的程序设计的基本训练。培养学生结构化程序设计的风格。但它也有一些不足之处，如它的文件处理功能较差等。
三、 Pascal语言程序的基本结构
任何程序设计语言都有着一组自己的记号和规则。PASCAL语言同样必须采用其本身所规定的记号和规则来编写程序。尽管不同版本的PASCAL语言所采用的记号的数量、形式不尽相同，但其基本成分一般都符合标准PASCAL的规定，只是某些扩展功能各不相同罢了。下面我们首先来了解Pascal语言的程序基本结构。
为了明显起见先举一个最简单的PASCAL程序例子：
【例１】
从这个简单的程序可以看到：
⒈ 一个PASCAL程序分为两个部分：程序首部和程序体（或称分程序）
⒉ 程序首部是程序的开头部分，它包括：
⑴ 程序标志。用“program”来标识“这是一个PASCAL 程序”。PASCAL规定任何一个PASCAL程序的首部都必须以此字开头。在turbo pascal语言中，首部也可省略。
⑵ 程序名称。由程序设计者自己定义（但受一些规则限制），如例中的exam1。
注：在写完程序首部之后，应有一个分号。
⒊ 程序体是程序的主体，在有的书本里也称“分程序”。程序体包括说明部分（也可省略）和执行部分两个部分。
⑴ 说明部分用来描述程序中用到的变量、常量、类型、过程与函数等。本程序中第二行是"变量说明"，用来定义变量的名称、类型。
PASCAL规定，凡程序中用到所有变量、符号常量、数组、标号、过程与函数、记录、文件等数据都必须在说明部分进行定义（或称“说明”）。也就是说，不允许未说明先使用。
⑵ 执行部分的作用是通知计算机执行指定的操作。如果一个程序中不写执行部分，在程序运行时计算机什么工作也不做。因此，执行部分是一个PASCAL程序的核心部分。
执行部分以“begin
”开始，以“end”结束，其间有若干个语句，语句之间以分号隔开。
注：执行部分之后有一个句点，表示整个程序结束。
⒋ PASCAL程序的书写方法比较灵活。当然，书写不应以节省篇幅为目的，而应以程序结构清晰、易读为目的。在编写程序时尽量模仿本书中例题程序格式。
⒌ 在程序中，一对大括号间的文字称为注释。注释的内容由人们根据需要书写，可以用英语或汉语表示。注释可以放在任何空格可以出现的位置。执行程序时计算机对注释不予理睬。
四、 Turbo Pascal语言系统的使用（FreePascal与之类似）
目前，常用的Pascal语言系统有Turbo Pascal7.0、Borland Pascal 7.0、FreePascal1.0.10，下面我们就来学习Turbo Pascal 7.0系统的使用。
1． 系统的启动（上面的这几个版本都可在DOS、WINDOWS下使用）
方式一：只适合在WINDOWS下，在桌面上建立快捷方式，然后双击快捷方式即可
方式二：进入相应的系统目录下，执行主程序（Turbo Pascal的主程序为TURBO.EXE；FreePascal的主程序为FP.EXE），具体的操作步骤如下
进入DOS命令行（这是在WIDOWS下要做的，ＷＩＮ９８及以前的版本是在“运行”窗口中输入COMMAND命令；ＷＩＮＸＰ及以上版本是在“运行”窗口中输入CMD命令）
输入以下命令行即可启动相应的编译集成环境：
cd /tp/bin {进入主程序所在的文件夹，Freepascal是cd /pp/bin/go32v2}
turbo {Freepascal是fp}
系统启动后，屏幕上出现如图1所示的集成环境。
2． Turbo Pascal系统集成环境简介
最顶上一行为主菜单。中间蓝色框内为编辑窗口，在它个编辑窗口内可以进行程序的编辑。最底下一行为提示行，显示出系统中常用命令的快捷键，如：将当前编辑窗口中文件存盘的命令快捷键为F2，获得系统帮助的快捷键为F1，等等。
3． 新建程序窗口
按F10进入主菜单，选择FILE菜单，执行其中New命令。就可建立一个新的程序窗口（默认文件名为Noname00.pas或Noname01.pas等）。
4． 程序的输入、编辑与运行
在当前程序窗口中，一行一行的输入程序。事实上，程序窗口是一个全屏幕编辑器。所以对程序的编辑与其它编辑器的编辑方法类似，这里不再重复。
当程序输入完毕之后，一般要先按Alt+F9（或执行compile菜单中compile命令）对程序进行编译。如果程序有语法错误，则会在程序窗口的第一行处显示第一个红色错误信息。若无语法错误，则窗口正中央会出现一个对话框，提示编译成功。接下来，我们可以运行程序了。
程序的运行可以通过按ALT+R打开RUN菜单中的RUN命令，或直接按快捷键CTRL+F9。则可以在用户窗口中输出运行结果。通常在程序运行结束后系统回到Pascal系统的集成环境，因此要查看运行结果，要按ALT+F5将屏幕切换到用户屏幕。
5．程序的保存与打开
当我们想把程序窗口中的程序存入磁盘时，可以通过按F2键(或执行File菜单中的save命令)来保存程序。第一次保存文件时屏幕上会出现一个对话框要求输入文件名(默认扩展名为.pas)。
当我们要将磁盘上的程序文件中的PASCAL程序装入窗口时，可按F3(或执行File菜单中的Open命令)来装入程序，此时系统也会弹出一个对话框要求输入要打开的文件名，或直接在文件对话框列表中选择所要的文件，然后回到打开文件。
6．退出Turbo Pascal：直接按组合键ALT+X或选择“File”菜单中的“Exit”
五、 第一个程序
为让大家了解程序设计的基本过程（编辑→编译／解释→连接→运行），请大家输入下面的程序并运行，学会用自己的描述它的功能是什么？
program sample;
var
i,n,number:integer;
begin
write('Number=');
readln(number);
for i:=1 to numberdo
begin
if i mod 2=1 then
begin
for n:=1 to (number-i) div 2do
write(' ');
for n:=1 to ido
write('*');
writeln;
end;
end;
readln
end.
请输入上面的程序，将其存盘、关闭。然后再打开并运行序。（中途要在不退出Pascal的情况下进入命令行状态查看程序的运行结果，可以选择“File”菜单中的“Command shell”，Turbo Pascal为“Dos shell”，返回请输入EXIT命令，不分大小写。
作业：模仿本课中出现的例程及学到的知识，完成下列编程任务
1． 提示用户输入圆的半径，计算并输出圆的周长
2． 提示用户输入两个数，计算并输出这两个数的和
第二课 赋值语句、输出语句
上节课，我们学习了Pascal语言的程序基本结构，在一个程序中，所有的操作都由执行部分来完成，而执行部分又都是由一个个语句组成的。因此，下面开始我们要学习pascal语言的基本语句，并且在学习过程中逐步学会程序设计的基本方法。
这节课我们要学习两种语句，即赋值语句与输出语句。在语句学习之前我们要先了解一些pascal语言的基础知识。
一、常量、变量与算术表达式
（一）常量：在程序运行过程中，其值不能被改变的量称为常量。如123,145.88,'abc',true等。
１、整型常量：整型常量采用我们平常使用的十进制整数表示，包括正整数、负整数和零。如：138，0，-512等都是整型常量，而18.或18.0都不是整型常量。pascal中有一个标准标识符Maxint，它代表所使用的计算机系统允许的最大整型数，而最小的整型数即为－Maxint；Turbo Pascal还定义了长整数常量MaxLongInt，其值为2147483647。
注：计算机系统能表示的整型数的范围取决于其字长，如：现在大部分机器的字长为16，它们所能支持的整型数的范围为-215至+215-1，即-32768至+32767，这里涉及到有符号数和补码方面的知识；要想知道你所使用的计算机所能表示的整型数的范围，用这样的语句就可以知道了：WRITE(-maxint-1,' ',maxint)
２、实型常量：包括正实数、负实数和实数零，其实就是常说的小数，pascal中表示实型常量的形式有两种。
⑴十进制表示法：这是人们日常使用的带小数点的表示方法，如0.0、-0.0、+5.61、-8.0、-6.050等都是实型常量，而0.、.37都不是合法的实数形式
⑵科学记数法：采用指数形式的表示方法，如1.25×105可表示成1.25E+05。在科学记数法中，字母"E"表示10这个"底数"，而E之前为一个十进制表示的小数，称为尾数，E之后必须为一个整数，称为"指数"。如-1234.56E+26、+0.268E-5 、1E5是合法形式，而.34E12、2.E5、E5、E、1.2E+0.5都不是合法形式的实数。
无论实数是用十进制表示法还是科学表示法，它们在计算机内的表示形式是一样的，总是用浮点方式存储。
和整数相比，实数能表示的范围大得多，但值得注意的是实数的运算比整数的运算速度慢且无法像整数那样精确表示，只能近似表示。
３、字符常量：在Pascal语言中，字符常量是由单个字符组成，所有字符来自ASCII字符集，共有256个字符。在程序中，通常用一对单引号将单个字符括起来表示一个字符常量 ，如：'a'，'A'，'0'等 ；特殊地，对于单引号字符，则要表示成''''。对于ASCII字符集中，按每个字符在字符集中的位置，将每个字符编号为0－255，编号称为对应字符的序号，因此字符也存在大小，如：'A'<'a'、'b'>'a'
４、布尔常量：布尔型常量仅有两个值，真和假，分别用标准常量名true和false表示 ，它们的序号分别为1和0。
５、符号常量：它是由程序员自己定义的，一个常量即可以直接用字面形式表示（称为直接常量， 如 124,156.8），也可以用一个标识符来代表一个常量，称为"符号常量"。但符号常量必须在程序中的说明部分定义，也就是说先定义，后使用。
定义符号常量的一般格式： CONST <常量标识符>=<常量>;
如：
CONST PI=3.1415926;
E=2.71828;
说明：常量说明部分以关键字const开头, 后面的标识符为常量标识符，其中"="号后的常量为整数、实数、字符、 字符串（字符串常量在后面章节中将作介绍） ；而且在常量说明部分可以将几个常量说明成符号常量，共用一个关键字"const"，例如：
则在本程序中pi和zero作为符号常量，分别代表实数3.14159和整数0；也就是说，常量说明部分既定义了常量名及其值，又隐含定义了常量的类型。
关于符号常量，应注意下列几点：
⑴ 符号常量一经定义，在程序的执行部分就只能使用该常量标识符，而不能修改其值。
⑵ 使用符号常量比直接用数值更能体现"见名知义"的原则，也便于修改参数，故一个较好的程序中，应尽量使用符号常量，在执行部分基本上不出现直接常量。
（二）变量：变量代表了一个存储单元，其中的值是可变的，故称为变量。如游戏"魂斗罗"中玩者命的个数最初为3，当你死了一次命减少一，这里命的个数就是一个变量（或者说命的个数存储在一个存储单元中）。即在程序运行过程中，其值可以改变的量，称为变量。
变量有三个要素是：变量名、变量类型、变量值
一个程序中可能要使用到若干个变量，为了区别不同的变量，必须给每个变量（存贮单元）取一个名（称为变量名），该变量（存贮单元）存放的值称为变量的值，变量中能够存放值的类型为变量的类型。例如 "魂斗罗"游戏中用于存放"命"的变量,在游戏程序中的名字可取为N,它的类型为整型,游戏初始时这个变量的值为3。
1．变量名：用一个合法的标识符代表一个变量。如n,m,rot,total 等都是合法变量名。在程序中用到的变量必须在说明部分加以说明，变量名应遵循自定义标识符的命名规则，并注意“见名知义”的原则，即用一些有意义的单词作为变量名
“自定义标识符”的命名规则为：自定义标识符必须以字母（包含下划线"_"）开头，后面的字符可以是字母或数字，标识符长度不超过63个字符。
2．变量的类型：常量是有类型的数据，变量在某一固定时刻用来存放一个常量，因此也应有相应的类型 ；如整型变量用来存放整数，实型变量用来存放实数；也就是说，变量的类型取决于将要存放的数据的类型，并且其类型一旦定义了，就不能再改变，也不能把其他类型的数据赋给它。
3．变量说明：在程序中若要使用变量，变量的名称及类型在程序的变量说明部分加以定义，变量的值则在程序的执行部分中才能赋给，变量说明的一般格式：VAR <变量标识符>[,<变量标识符>]:<类型>; (中括号内部分表示可省,下同)
其中VAR是pascal保留字,表示开始一个变量说明段, 每个变量标识符或由逗号隔开的多个变量标识, 必须在它的冒号后面说明成同一类型。一个程序中，可以说明许多不同类型的变量，每种类型变量之间用分号隔开，共用一个VAR符号。例如:
var
age,day:integer;
amount,average:real;
其中：Integer(整型)、Real(实型)、Boolean(布尔型)、Char(字符型)是标准标识符，它们是"类型标识符"，代表了确定的类型，如age和 day 被定义为整型变量，amount和average被定义为实型变量。
一旦定义了变量，就确定了它的类型，也就是说，就确定了该变量的取值范围和对该变量所能进行的运算。
（三）算术表达式
⑴算术表达式的定义：pascal语言中的算术表达式是由符合pascal语法规定的运算对象(包括常量、变量、函数)、算术运算符、圆括号组成的有意义的式子。如：A+3.14159*5/8.4-Abs(-1123)
⑵算术运算符，常用的有以下6个算术运算符：
① ＋ (加)
② － (减)
③ ＊ (乘)
④ ／ (实数除)得到结果为实型.如5.0/2.0=2.5， 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 4= -1 , 4 mod (-3)=1, - 4 mod 3= -1，即 a mod b=a-(a div b)*b
(3)运算优先顺序，如果一个表达式里出现两个或两个以上的运算符，则必须规定它们的运算次序 ，pascal规定
①表达式中相同优先级的运算符，按从左到右顺序计算
②表达式中不同优先级的运算符，按从高到低顺序计算
③括号优先级最高,从内到外逐层降低
在算术运算中运算符的优先顺序与数学上的四则运算一致，即“先乘除后加减”（注：MOD、DIV运算的优先级与＊、/相同）
二、赋值语句
变量既然代表一个存储单元，其值是可变的，那么其中的值是怎么提供的，又是怎么改变的呢？可以通过赋值语句来进行
1、赋值语句的格式
变量名:=表达式;
其中“:=”称为赋值号，是赋值语句的标志
2、执行过程：计算机先计算赋值号右边表达式的值，然后将表达式的值赋给变量名代表的变量,如：
A:=(9*8)-(2-1);
A:=A+1;
最后A的值为72
三、输出语句
输出语句的作用是将程序运算的结果输出到屏幕或打印机等输出设备，这里通常是指输出到屏幕。
（一）输出语句的两种格式
1、 write语句
格式：Write(表达式1，表达式2，……)；
如:write(1,2,3,4);
write(1.2,3.4,5);
write('My name is Liping');
2、 writeln语句
格式：Writeln(表达式1，表达式2，……)或writeln
（二）输出语句的功能
计算机执行到某一输出语句时，先计算出输出语句中的每个表达式的值，并将每一个表达式的值一个接一个地输出到屏幕上。
Write语句与writeln语句格式上都相似，但它们在功能上有所不同，两个语句的区别在于，write语句将其后括号中的表达式一个接一个输出后，没有换行 ；而writeln语句则在输出各个表达式的值后换行，例如以下两个程序段的输出分别为：
write(1,2,3,4);
write(5,6);
输出为：
123456
writeln(1,2,3,4);write(5,6);
输出为：
1234
56
四、应用例析
例1：某仓库5月1日有粮食100吨，5月2日又调进20吨，5月3日卖出库存的3分之二，5月4日又调进库存的3倍粮食，问该仓库从5月1日到5月4日期间每天的粮食分别是多少吨？(输出每天的库存量)
分析：在这个问题中，主要要描述从5月1日到5月4日期间仓库的粮食库存量，且易知它是不断变化的。因此我们可以用一个变量A来描述仓库的粮食库存量
程序可写如下：
Program ex1;
Var
A : integer;
begin
A:=100;
Writeln('5/1:',A);
A:=A+20;
Writeln('5/2:',A);
A:=A div 3;
writeln('5/3:',A);
A:=A *4;
writeln('5/4:',A);
Readln;
end.
例2：有三个小朋友甲乙丙。甲有50粒糖果，乙有43粒糖果，丙有13粒糖果。现在他们做一个游戏。从甲开始，将自己的糖分三份，自己留一份，其余两份分别给乙与丙，多余的糖果自己吃掉，然后乙与丙也依次这样做。问最后甲、乙、丙三人各有书多少粒糖果？
分析：这个问题中我们关心的是在游戏过程中每个小朋友的糖果个数，且他们所拥有的糖果数是在变化的。因此可用a,b,c三个变量分别存放甲乙丙三个小朋友在某一时刻所拥有的糖果数。对于每人，分糖后，他的糖果数一定为原来的糖果数 div 3（因为分糖过程糖果的数目不一定都刚好分完，用整除恰恰可以表示多余的糖自己吃掉）。而其他两人则增加与这个小朋友现在拥有的一样的糖果。
程序可写如下：
program ex2;
var
A,B,C:integer;
begin
A:=50;B:=43;C:=13;
{初始时每个小朋友所拥有的糖果数}
A:=A div 3;
B:=B+A;C:=C+A;{甲小朋友分糖果后，每个人拥有的糖果数变化情况}
B:=B div 3;
A:=A+B;C:=C+B;
{乙小朋友分糖果后，每个人拥有的糖果数变化情况}
C:=C div 3;
A:=A+C;B:=B+C;
{丙小朋友分糖果后，每个人拥有的糖果数变化情况}
writeln('A=',A,'B=',B,'C=',C);
{输出结果}
readln;
end.
注：上程序中倒数第三行中'A='表示一个字符串（即用一对单引号括起来的一串字符），对于字符串，输出字符串的内容（即引号内的所得字符，而引号不输出）。
以上程序的运行结果为：
A=51B=35C=16
练习二：
1、已知某梯形的上底A=13，下底B=18，高H=9，求它的面积S。
2、已知某圆的半径R=139，求该圆的周长C与面积S？
3、某机关组织游泳比赛。将一堆西瓜分给前三名，把该堆西瓜中的一半又半个西瓜奖给第一名；剩下的一半又半个西瓜给第二名；把最后剩下的一半又半个西瓜给第三名，但每次分时并没切开任何一个西瓜，且刚好西瓜分完。问前三名各分到多少个西瓜 ？（答案：共7个，第一、二、三名各4、2、1个）
第三课 带格式的输出语句及输入语句
一、写语句（WRITE、WRITELN）的输出格式
在pascal语言中输出数据时是可以按照一定格式的，对整数隐含的输出形式为按十进制数形式；对实数的输出，隐含的形式是科学记数法形式（如果不想用科学记数法输出而用小数形式输出，要自己另行定义）。
事实上，输出语句中的每个输出项中的表达式之后可以加上格式说明，若输出项后没有加格式说明， 则数据按系统隐含的格式输出，还可加上一定格式符号按特定格式输出。
１、隐含的输出格式
pascal语言为整型量、实型量、布尔型量和字符串( 用一对单引号括起来的字符序列)规定了每种数据所占的宽度（即一个数据占几列），一个数据所占的宽度称为“场宽”或“字段宽”；系统给出的隐含场宽称为标准场宽，每一种pascal版本给定的标准场宽不尽相同，下表给出标准pascal、Turbo pascal、FreePascal所规定的标准场宽
标准场宽
数据类型 标准pascal TurboPascal FreePascal
integer 10 实际长度 实际长度
real 22 17 25
布尔型 10 4或5 4或5
字符串 串长 串长 串长
在Turbo Pascal系统中，对于整型字符串的输出都是按数据本身长度输出，对于布尔型数据（只有True和False两种值），TRUE为4列，FALSE为5列，一律采用大写输出。而real型数据的输出时，则按17列输出，其中第一列为符号位，正号不显示，后四位为"E±nn"，中间的12列为尾数部分。如：（□代表一个空格）
语句 WRITELN(2.367) WRITELN(67) WRITELN(TRUE) WRITELN('ACDE')
TurboPascal结果 □2.3670000000E+01 67 TRUE ACDE
FreePascal结果 □2.367000000000000000E+01 67 TRUE ACDE
有时，在程序中往往根据实际情况，需要自己定义场宽。
２、指定场宽（自己定义场宽）：在写语句中输出项含有格式符号时,就是为了指定场宽
⑴指定单场宽
格式：write(表达式:N)或writeln(表达式:N)，其中N为自然数，指定单场宽后，所有数据不再按标准场宽输出，而按指定场宽输出；若数据实际长度小于指定场宽时，则一律“向右靠齐，左留空格”。
如write(1234:8);write('abcdef':12)
输出结果:
□□□□1234□□□□□□abcdef
对于标准实型数据指定单场宽时，如果场宽大于标准场宽时，右靠齐按标准场宽格式输出17位，左留空格。若场宽小于标准场宽时，第一位仍为符号位，最后四位仍为“E±nn”，中间部分为尾数显示部分；如果指定的宽度小于8位，则数据按8位格式“*.*E±nn”输出
⑵指定双场宽
如果输出项是实数时，如果希望输出的实数不用科学记数法输出,而用小数形式输出,可以用指定双场宽方法输出，双场宽输出格式为：write(实型表达式:m:n)，其中m和n都是自然数，m 用以指定整个数据所占的宽度，n指定输出实数的小数位数，如：
write(sqrt(75):9:4);
输出:□□□8.6602
如果双场宽不能满足输出数据的最低要求，系统自动突破指定的场宽限制，按实际长度输出，如：write(sqrt(75):5:4);
要使小数点后有4位数字，而总场宽为5，是不可能的（因为还有一个小数点，小数点前面还有一个数字），它最低限度要有6列，即输出为：8.6602(舍弃超过场宽的数据坚持四舍五入原则)
例1：写出下列程序在turbo pascal下的输出结果
program ex;
const s='abcdefg';
var
i:integer;
r:real;
c:char;b:boolean;
begin
i:=1234;
r:=1234.5678;
c:='#';
b:=true;
writeln(i,i:6,i:3);
writeln(r,r:12:5,r:8:5,r:8:3);
writeln(c,c:5);
writeln(s,s:10,s:5);
writeln(b,b:5,b:3);
end.
运行结果如下:
1234□□12341234
□1.2345678000E+03□□1234.567801234.567801234.568
#□□□□#
abcdefg□□□abcdefgabcdefg
TRUE□TRUETRUE
３、应用例析
例2：已知A=253，B=43，输出A*B的运算式子，即输出如下
□□□□□□□２５３＊４３＝１０８７９□□□□□□□□□２５３□□□□□□□＊□□４３□□□□－－－－－－－－□□□□□□□□□７５９□□□□□＋□１０１２□□□□－－－－－－－－□□□□□□□１０８７９
分析：对于该问题，我们只要控制好输出时右靠齐即可。即前四行的总宽度一样（例如为12），第五行总宽度比前面少1。第六、七行总宽度与前四行一样。
参考程序如下：
var
a,b:integer;
begin
a:=253;b:=43;
writeln(a:10,'*',b,'=',a*b);
writeln(a:12);
write('*':8);writeln(b:4);
writeln('--------':12);
writeln(a*3:12);
write('+':6);writeln(a*4:5);
writeln('--------':12);
writeln(a*b:12);
end.
二、 输入语句（读语句READ、READLN）
在程序中变量获得一个确定的值，固然可以用赋值语句，但是如果需要赋值的变量较多，或变量的值经常变化，则使用本节介绍的输入语句─读语句，将更为方便。读语句是在程序运行时由用户给变量提供数据的一种很灵活的输入动作，它有两种格式：
read(<变量名表>);
readln[(<变量名表>)];
其中变量名表是用逗号隔开的若干个变量名组成的。
功能：从标准输入文件（即INPUT，一般对应着键盘）中读入数据，并依次赋给相应的变量
说明：①、read和readln是标准过程名,它们是标准标识符。
②、执行到read或readln语句时，系统处于等待状态，等待用户从键盘上输入数据，系统根据变量的数据类型的语法要求判断输入的字符是否合法。如执行read(a)语句，a是整型变量，则输入的字符为数字字符时是合法的，当输入结束时，则自动将刚接受的一串数字字符转换为整数赋给变量a。
③、在输入数值型（整型或实型）数据时，数据间要用空格或回车分隔开各个数据，输入足够个数的数据，否则仍要继续等待输入，但最后一定要有回车，表示该输入行结束，直到数据足够，该读语句执行结束，程序继续运行。
例3：设a、b、c为整型变量，需将它们的值分别赋以10、20、30，写出对应下列语句的所有可能输入格式
Read(a,b,c);
解：根据③,即可列出所有可能输入格式
(a)10□20□30←┘
(b)10□20←┘
30←┘
(c)10←┘
20□30←┘
(d)10←┘
20←┘
30←┘
其中"←┘"表示回车键，下同
④、read语句与readln语句的第一个区别是：read语句是一个接一个地读数据，在执行完本Read语句（读完本语句中变量所需的数据）后，下一个读语句接着从该数据输入行中继续读数据，也就是说，不换行。如：
Read(a,b);
Read(c,d);
Read(e);
如果输入数据行如下：
1□2□3□4□5□6□←┘
则a,b,c,d,e的值分别为1,2,3,4,5，如果后面无读语句则数据6是多余的，这是允许的。
Readln则不同，在读完本Readln语句中变量所需的数据后，该数据行中剩余的数据多余无用，或者说，在读完本Readln语句中变量所需数据后，一定要读到一个回车，否则多余的数据无用。
例4：设要达到例3同样的目的，但语句改为
readln(a,b);
readln(c);
则例3中的4种输入格式只有(b)(d)是有效的：
(b)10□20←┘
30←┘
(d)10←┘
20←┘
30←┘
⑤、readln语句与read语句的第二个区别是：read 后一定要有参数表，而readln可以不带参数表，即可以没有任何输入项，只是等待读入一个换行符(回车)，经常用于暂停程序的运行，直到输入一个回车。
例5：设有下列语句
read(a,b,c);
readln(d,e);
readln;
readln(f,g);
其中,所有变量均为整型。再设输入的数据如下：
1□2←┘
3□4□5□6□7□8←┘
9□10←┘
11←┘
12□13←┘
列表给出每个变量的值
分析：可以假想有一“数据位置指针”，每读一个数据后，指针后移到该数据之后，每执行一个readln语句后，指针移到下一个数据行的开头。
各变量的值如下表所示：
━━━━━━━━━━━━
变量名 a b c d e f g
────────────
值 1 2 3 4 5 11 12
────────────
⑥、为了避免可能出现的错误，建议在程序中按下列原则使用读语句：(A)如果没有特殊需要,在一个程序中尽量避免混合使用read语句和readln语句;(B)尽量用readln语句来输入数据, 一个数据行对应一个readln语句;(C)由于执行read或readln语句时, 系统不会提供任何提示信息,因此,编程时最好在readln语句之前加以适当提示,例如：
write('Input a,b,c:');
readln(a,b,c);
在执行时,屏幕上显示:
Input a,b,c:■
其中，“■”为光标；执行readln语句后，系统处于待待输入状态，只有输入了所需数据后才继续往下执行。
三、顺序结构程序设计
到目前为止，我们可以用读、写语句和赋值语句编写一些简单的程序。通过阅读这些程序，可以逐步熟悉pascal程序的编写方法和应遵循的规则，为以后各章的学习打基础
例6：试编一程序,输入一梯形的上底、下底、高, 求该梯形的面积。
分析：整个程序分为三段:输入、计算、输出。程序中用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.
例7：某幼儿园里，有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;{1号均分后，1、2、5号的糖果数变化情况}
b:=b div 3;c:=c+b;a:=a+b;{2号均分后，1、2、3号的糖果数变化情况}
c:=c div 3;b:=b+c;d:=d+c;{3号均分后，2、3、4号的糖果数变化情况}
d:=d div 3;c:=c+d;e:=e+d;{4号均分后，3、4、5号的糖果数变化情况}
e:=e div 3;d:=d+e;a:=a+e;{5号均分后，4、5、1号的糖果数变化情况}
{输出结果}
writeln('a=',a);
writeln('b=',b);
writeln('c=',c);
writeln('d=',d);
writeln('e=',e);
readln;｛暂停｝
end.
例8：编一程序求半径为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（假设这三边可以构成一个三角形），求三角形的面积Ｓ？
提示：可利用海伦公式 ，求平方根请使用SQRT()函数，如：56的平方根可表示为SQRT(56)。
3、编一程序，要求输入任意两个整数A和B，其中0<B<99，输出这两个数相乘的计算过程，例如：
Input A and B(0<B<99):235 25←┘２３５＊２５＝５８７５□□□□□□□□□２３５□□□＊□□□□□□２５－－－－－－－－－－－－□□□□□□□□１１７５□□□＋□□□□４７０－－－－－－－－－－－－□□□□□□□□５８７５
第四课 简单的分支结构程序设计
在现实生活中，我们每天都要进行根据实际情况进行选择。例如，原打算明天去公园，但如果明天天气不好，将留在家里看电视，也就是说人会根据条件进行行为的选择；计算机也会根据不同情况作出各种逻辑判断，进行一定的选择。在这课与下一课中，我们将会发现，我们是通过选择（分支）结构语句来实现程序的逻辑判断功能。
一、PASCAL中的布尔（逻辑）类型
在前面，我们学习了整型(integer)与实型（real），其中integer型数据取值范围为-32768到32767之间所有整数。而real型数据取值范围为其绝对值在10-38 到1038 之间的所有实数，它们都是数值型的（即值都为数）；布尔型（Boolean）是一种数据的类型，这种类型只有两种值，即“真”与“假”。
1、 布尔常量：在Pascal语言中“真”用ture表示，“假”用False表示，所以布尔类型只有TRUE与FALSE两个常量；
2、 布尔变量（BOOLEAN）：如果我们将某些变量说明成布尔型，那么这些变量就是布尔变量，它们只能用于存放布尔值（ture或false），例如，VAR A，B：BOOLEAN；
3、 布尔类型是顺序类型：由于这种类型只有两个常量，Pascal语言中规定ture的序号为1，false的序号为0。若某种类型的常量是有限的，那么这种类型的常量通常都有一个序号，我们称这种类型为顺序类型；如前面我们学过的整型（integer），以及后面要学到的字符型（char）都是顺序类型；
4、 布尔类型的输入与输出
a）、输出
VAR A，B：BOOLEAN；
begin
A：=TRUE；B：=FALSE；
WRITELN（A，B）；
end.
结果：TRUEFALSE
b）布尔类型变量不能直接用读语句输入：布尔类型变量不能通过读语句给它们提供值；事实上，我们可以通过间接方式对布尔变量进行值的输入，最常用的就是通过赋值语句
例如，以下程序是错误的
var a,b,c:Boolean;
begin
readln(a,b,c);
{错误语句}
writeln(a,b,c);
end.
又如：
var a:Boolean;
begin
a:=3>7;
{正确语句}
writeln(a);
end.
二、关系表达式与布尔表达式
1、什么是关系表达式：用小括号、>、<、>=、<=、=、<>将两个算术表达式连接起来的式子就称为关系表达式（比较式），如：3+7>8,x+y<10,2*7<=13等都是关系表达式
2、关系表达式的值
很显然，上面几个关系表达式中第一个是真的，第三个是假的，而第二个表达式可能是真的，也可能是假的；所以我们很容易发现，这些表达式的值是"对"的或"不对"的（或者说，是"真"的或"假"的），即关系表达式的值为布尔值。表示该比较式两端式子的大小关系是否成立；如3+2>6是假的，故它的值为FALSE；同样，45>=32是对的,故该表达式的值为true
说明：①对于>=、<=来说，只要有一部分成立，则表达式的值就为TRUE，如：3<=4和5>=5都是真的，即值为TRUE
②关系表达式可用于表示一个命题。如：“ｍ为偶数”可表示为：ｍ mod 2=0。“ｎ为正数”可表示为：n>0
3、布尔运算及布尔表达式（也称逻辑运算及逻辑表达式）：为了表示更复杂的命题，Pascal还引入三种逻辑运算符：not、and、or，它们分别相当于数学上的“非”、“且”和“或”的意义
这三个运算符的运算对象为布尔量，其中not为单目运算，只有一个运算对象，and与or为双目运算，有两个运算对象，它们的运算真值表如下：
a b Not a a and b a or b a xor b
false false true false false false
false true true false ture true
true false false false true true
true true false true true false
于是，一个或多个关系表达式用布尔运算符连接起来的式子就称为布尔表达式；布尔表达式的值也为布尔值；根据上表我们可以总结各运算符的运算规则：
NOT：非运算，取反（原来为真，非后为假；原来为假，非后为真）
AND：与运算，同为真则为真，其余均为假（参加运算的两个对象同为真结果才为真，否则为假）
OR：或运算，只要有一个为真，结果就为真
XOR：同或运算，相同则为真，不同则为假（参加运算的两个对象相同就为真，不同则为假）
请算出后面表达式的值：'a'<'A' NOT ('a'<'A') (3*4>6) AND ('B'>'A') (3*4>6) OR ('B'<'A')
注：①布尔运算符与运算对象之间可以没有空格，如：NOT('a'<'A')和(3*4>6)AND('B'>'A')都是正确的表达式；
②用括号改变各种运算符的先后顺序是非常重要的，如：NOT 'a'<'A'和3*4>6 AND ('B'>'A')都是不正确的表达式，因为布尔运算比关系运算的优先级高，导制上面的表达式有语法错误，为什么错请想一想
③布尔运算符的运算级别为：NOT＞AND＞OR 如：FALSE OR NOT TRUE AND TRUE的值为 FALSE，它等价于：FALSE OR ((NOT TRUE) AND TRUE)
如果一个表达式里出现两个或两个以上的运算符，则必须规定它们的运算次序，pascal规定：
①表达式中相同优先级的运算符,按从左到右顺序计算；
②表达式中不同优先级的运算符,按从高到低顺序计算；
③括号优先级最高，从内到外逐层降低；
对于一个复杂的表达式可能同时包含算术运算、关系运算和逻辑运算以及函数运算，运算的优先顺序为：括号＞函数＞NOT＞*、/、div、mod、and＞+、－、or、xor＞关系运算（>、=、<、<=、>=、<>）
对于复杂的命题，我们可以用布尔表达式来表示。例如，命题：“m,n都是偶数或都是奇数”可表示为(m mod 2=0)and(n mod 2=0) or (m mod 2=1)and(n mod 2=1)。
三、简单的IF语句
１、格式
Ⅰ、IF ＜布尔表达式＞then
语句；
Ⅱ、IF ＜布尔表达式＞then
语句１ else
语句２；
注意：Ⅱ型IF语句中语句１后无“；”号
２、功能
Ⅰ、执行IF语句时，先计算＜布尔表达式＞的值，若为TRUE则执行语句，否则不执行任何操作；
Ⅱ、执行IF语句时，先计算＜布尔表达式＞的值，若为TRUE则执行语句１，否则执行语句２；
３、示例
1）例4.2：输入一个整数ａ，判断是否为偶数（是输出Ｙｅｓ，否则输出Ｎｏ）
Program ex4_2;
Var a:integer;
begin
Write('a=');readln(a);
If (a mod 2 =0)then
writeln('Yes')
else
writeln('No');
Readln;
end.
2＝华榕超市里卖电池，每个电池８角钱，若数量超过１０个，则可打75折
Program ex4_3;
Var Num:integer;Price,Total:real;
begin
Write('Num=');readln(Num);
Price=0.8;
If Num>10 then
Price:=Price*0.75;
Total:=Num*Price;
Writeln('Total=',Total:0:2);
Readln;
end.
3＝编写一与电脑猜"红"或"黑"的游戏
分析：用１代表红，０代表黑。先由计算机先出答案，然后再由人猜，猜对输出"YOU WIN"否则输出"YOU LOST"；为了模拟猜"红"或"黑"的随意性，程序中需要用到随机函数random
函数是什么呢，例如大家都知道|-2|=2，|58|=58，那么|x|=?
如果我们用y表示|x|，那么，这里y=|x|就是一个函数，也就是说函数是一个关于一个或多个自变量（未知量，如上例中的x）的运算结果
在pascal语言中，系统提供了许多内部函数，其中包括|x|函数，当然它用abs(x)表示；我们如果要求X2-Y的绝对值，可以调用内部函数abs(x*x-y)即可求得；Random
也是一个内部函数，调用它能得到0~n-1之间的整数（但它不确定的，或说是随机的）；同时由于函数是一个运算结果，所以函数的调用只能出现在表达式中Program ex4_3;
Uses crt;
Var Computer,People:integer;
begin
Randomize;
Computer:=random(2);
Write('You guess（0－Red 1-Black）:');readln(People);
If People=Computer then
writeln('YOU WIN')
else
writeln('YOU LOST');
Readln;
end.
练习四：
1.某车站行李托运收费标准是：10公斤或10公斤以下，收费2.5元，超过10公斤的行李，按每超过1公斤增加1.5元进行收费。 试编一程序，输入行李的重量，算出托运费。
2.利用本课的知识，将第三课练习的第2题作进一步完善，即：程序要能判断输入的三个边能不能构成三角形（有数小于等于零、两边之和不能大于第三边都不能构成三角形），若不能则提示输入的数据有误且不做任何计算；若能构成三角形就计算并输出其面积。