Pascal语言程序设计概述Word下载.docx
《Pascal语言程序设计概述Word下载.docx》由会员分享，可在线阅读，更多相关《Pascal语言程序设计概述Word下载.docx（32页珍藏版）》请在冰豆网上搜索。
⒊能适用于数值运算和非数值运算领域。
PASCAL的功能较强，能广泛应用于各种领域。
⒋PASCAL程序的书写格式比较自由
三、Pascal语言程序的基本结构
任何程序设计语言都有着一组自己的记号和规则。
PASCAL语言同样必须采用其本身所规定的记号和规则来编写程序
programex_1;
{程序首部}
constpi=3.14159;
{说明部分常量说明}
varr,c,s:
real;
{说明部分变量说明}
begin
r:
=3;
{圆的半径}
c:
=2*pi*r;
{求周长C}
s:
=pi*r*r;
{求面积S}
writeln（‘r=’,r,‘c=’,c,‘s=’,s）;
{输出周长面积}
readln;
end.
其中r、c、s称为变量
从这个简单的程序解释PASCAL程序的构成.
四、pascal的基本语法单位
1、基本符号
A——Z；
a——z；
0——9；
+，-，*，/，=，<
>
，<
=，>
=，<
，>
，（，），[，]，{，}，:
=，，，；
，.，：
，..，'
，^
注意：
pascal语言除了能使用以上规定的基本符号外，不得使用任何其它符号。
五、Pascal语言中的关键字和标识符P6-P7
六、Pascal语言中的常量与变量
（一）、常量
在程序运行过程中，其值不能被改变的量称为常量。
如123,145.88,'
abc'
true等。
（1）整型常量（integer）
范围-32768---32767
（2）实型常量
实型常量包括正实数、负实数和实数零。
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都不是合法形式的实数。
（3）字符常量
字符常量是由单个字符组成，如：
’a’，’A’，’0’等。
特殊地，对于单引号字符，则要表示成’’’’。
对于ASCII字符集中，按每个字符在字符集中的位置，将每个字符编号为0－255，编号称为对应字符的序号。
（4）布尔常量
布尔型常量仅有两个值，真和假，分别用标准常量名true和false表示。
它们的序号分别为1和0。
（5）符号常量：
一个常量即可以直接用字面形式表示（称为直接常量，如124,156.8），也可以用一个标识符来代表一个常量，称为“符号常量”。
但符号常量必须在程序中的说明部分定义，也就是说先定义，后使用。
定义符号常量的一般格式:
CONST
<
常量标识符>
=<
常量>
说明：
常量说明部分以关键字const开头,后面的标识符为常量标识符，其中“=”号后的常量为整数、实数、字符、字符串（字符、字符串常量在后面章节中将作介绍）。
而且，在常量说明部分可以将几个常量说明成符号常量，共用一个关键字“const”。
关于符号常量，应注意下列几点：
⑴符号常量一经定义，在程序的执行部分就只能使用该常量标识符，而不能修改其值。
⑵使用符号常量比直接用数值更能体现“见名知义”的原则，也便于修改参数，故一个较好的程序中，应尽量使用符号常量，在执行部分基本上不出现直接常量。
（二）变量：
变量代表了一个存储单元，其中的值是可变的，故称为变量。
变量有三个要素是：
变量名、变量类型、变量值。
1．变量名
用一个合法的标识符代表一个变量。
如n,m,rot,total等都是合法变量名。
在程序中用到的变量必须在说明部分加以说明，变量名应遵循自定义标识符的命名规则，并注意“见名知义”的原则，即用一些有意义的单词作为变量名。
2．变量的类型
常量是有类型的数据，变量在某一固定时刻用来存放一个常量，因此也应有相应的类型。
如整型变量用来存放整数，实型变量用来存放实数。
3．变量说明
在程序中若要使用变量，变量的名称及类型在程序的变量说明部分加以定义，变量的值则在程序的执行部分中才能赋给。
变量说明的一般格式：
VAR
变量标识符>
[,<
]:
类型>
;
（中括号内部分表示可省,下同）
`其中VAR是pascal保留字,表示开始一个变量说明段,每个变量标识符或由逗号隔开的多个变量标识,必须在它的冒号后面说明成同一类型。
一个程序中，可以说明许多不同类型的变量，每种类型变量之间用分号隔开，共用一个VAR符号。
例如:
var
age,day:
integer;
amount,average:
其中，Integer（整型）、Real（实型）是标准标识符，它们是“类型标识符”，代表了确定的类型，如age和day被定义为整型变量，amount和average被定义为实型变量。
一旦定义了变量，就确定了它的类型，也就是说，就确定了该变量的取值范围和对该变量所能进行的运算。
六、Pascal语言中的表达式
a+b/（c+d）
1/（1+1/（2*3.14159））
a*a*a
七、Pascal语言中的数据类型P11—P12
1、整型（integer）
正、负整数和零
maxint=32767
范围：
-32768～32767
运算：
+、－、*、div（整除）
mod（求余）
2、实型（real）
小数表示法、指数表示法
2.9E-39～1.7E38
+、－、*、/（实数除）
算术运算符的运算次序：
（）→函数*、/、div、mod→+、－
八、常量和变量的定义
常量的定义：
pi=3.14159；
变量的定义：
VAR
r,l,s:
real；
a:
integer；
a是一个两位数，求个位数和十位数
amod10（个位）
adiv10（十位）
*PASCAL语言系统的启动
（1）开机启动WINDOWS98
（2）双击桌面上PASCAL图标即可启动PASCAL系统
*程序的输入、保存
（1）文件的存盘：
拉下file菜单（按Alt+F），选择save或saveas
（2）输入文件名：
ex1，点击OK
*PASCAL程序的运行
拉下run菜单（按Alt+R），选择run
查看运行结果：
Alt+F5
*PASCAL语言系统的退出
拉下file菜单（按Alt+F），选择exit退出PASCAL系统。
输入下列几个程序并保存程序、运行程序，观察程序的运行结果。
=10;
=2*pi*r;
=pi*r*r;
writeln（r,c,s）；
writeln（'
r='
r,'
c='
c,'
s='
s）;
writeln（r：
8：
2,c：
2,s:
8:
2）;
r:
5:
2,'
c:
s:
programEx1;
{输入程序}
vari,j:
{保存程序}
begin{运行程序}
fori:
=1to9do{输错了如何修改？
}
write（'
'
:
30）;
forj:
=1toido
*'
writeln;
end;
programEx3;
=1to9do
30-i）;
=1toi*2-1do
end.
programEx2;
write（i,'
j,'
='
i*j:
第二章简单程序设计
一、教学目的
1、让学生进一步了解算法的概念、程序设计思想和方法。
2、让学生掌握顺序结构的程序设计。
4、让学生学会用Pascal语言设计简单的程序。
一个完整的程序应该由输入、处理、输出三部分组成。
上述求圆的面积、周长的程序中以下三个语句叫做赋值语句。
r:
c:
s:
赋值语句P13
格式：
变量>
：
表达式>
功能：
计算表达式的值，并赋值给变量
注意事项：
①“=”赋值号与数学中的等号意义不同。
如：
语句X=X+1表示将变量X的值加1后的结果值再赋给变量X，而不表示等号两边的值相等。
②赋值号左边只能是变量，不能是数值或表达式。
下面的写法是错误的：
4=X+Y
A+B/2=6
③一次只能给一个变量赋值，如果要给多个变量赋相同的值，只能使用多个赋值语句。
将一个变量的值赋给另一个变量，前一个变量的值保持不变（变量的这种特性可概括为“取之不尽，后入为主”）。
例如：
SUM＝0
I＝0
不能写成：
SUM＝I＝0
④变量名的类型应与表达式的类型相容。
所谓相容是指变量名能够正确存取赋值号右边的表达式的值。
vara,b,c:
b:
=5;
=a;
=b;
b:
=c;
执行上面程序后，变量a,b的最终值各是多少？
vara,b:
=a+b;
=a-b;
=a-b;
执行上面程序后，变量a,b的最终值各是多少?
输出语句（write语句）p14
格式：
：
write（<
输出项表>
）；
writeln（<
按指定的格式将输出项的内容输出
writeln（r,c,s）；
writeln（‘A+B=’,A+B）;
注：
对real或integer限定场宽（自定义场宽）
向右靠齐，左留空格
1.单场宽writeln（a：
5）;
a为整型
2.双场宽writeln（s：
6：
2）;
s为实型writeln（r,c,s）；
writeln（r：
writeln（'
输入上述程序，观察程序的远行结果。
从中体会write语句的格式及功能，并讲解。
练习：
1、.a=123,b=46,打印输出a+b的横式与竖式。
a+b=123+46=169
123
+46
-----------------
169
输入语句（read语句）
read（<
输入项表>
readln（<
从键盘上输入数据，将其值赋给输入项中的变量。
readln（a,b,c）;
输入数据时，数据间用空格键分隔，最后一定要回车，表示输入结束。
已知三角形的三条边a,b,c，求三角形面积（输入的三个数能构成三角形）。
已知三角形的三条边a,b,c，其三角形面积S可用海伦公式进行计算。
算法：
（1）输入三角形的三条边a,b,c
（2）求p=（a+b+c）/2
（3）求s=sqr（p*（p-a）*（p-b）*（p-c））
（4）输出三角形面积s
1、输入一个三位自然数，把这个数的百位与个位数对调，输出对调后的数。
2、把输入的秒数转换成几小时几分几秒？
msecond=shourfminutexsecond
8000second=2hour13minute20second
第三章分支结构的程序设计
5、让学生进一步了解算法的概念、程序设计思想和方法。
6、让学生掌握分支结构的程序设计。
3、让学生学会用Pascal语言设计简单的程序。
学习任务：
简单if语句、逻辑运算、分支结构的程序设计
1、逻辑运算
要判断“X>
Y”是否成立，其结果不是一个数值，而是“成立”或“不成立”，也可以用“真”表示“成立”，用“假”表示“不成立”，也就是说，它的结果是一个逻辑值（“真”或者“假”），其实这种逻辑判断在日常生活中是经常遇到的，例如：
人家问你“你是高中生吗？
”，回答只能是“是”或“否”。
实现逻辑运算是计算机的一个非常重要的功能，逻辑判断又叫布尔运算，是英国数学家布尔（Bool）提出的。
最基本的逻辑运算按次序运算分为：
Not（逻辑非）——and（逻辑与）——or（或）
1）
not逻辑非：
对逻辑值取反。
2）
and逻辑与：
只有两个表达式同为真时，值为真，否则都为假。
3）
or逻辑或：
只有两个表达式同为假时，值为假，否则为真。
要表示1<
x<
19用逻辑表达式x>
1andx<
19表示；
要表示x>
10或者x<
-2用逻辑表达式x>
10orx<
-2表示。
“大家今天上学带雨衣了吗？
”，如果天下雨就带雨衣，如果没下雨就不用带了，带不带雨衣是有条件的，在计算机中要实现这种功能就要用条件判断句来实现，条件判断句使计算机具有人的大脑的功能，能进行逻辑判断，条件判断句给予计算机智慧。
看以下例子：
上面的程序中ifa>
0thenwriteln（'
a>
0'
）
programex9;
vara:
a='
readln（a）;
ifa>
elsewriteln（'
a<
这个语句就叫条件判断句。
2、选择结构语句
一．
N
Y
if语句（条件判断句）
简单if语句格式：
格式一、IF<
条件>
THEN语句
格式二、IF<
THEN
语句组
ENDIF
格式三、IF<
语句组1
ELSE
语句组2
条件:
由=、>
、<
、>
=、<
这些比较符将两个算术表达式连接起来的式子，
x>
=0、xmod2=0、a+b=c、
b*b-4*a*b>
=0等，这样的式子称为关系表达式。
{判断a是否偶数？
ifamod2=0thenwriteln（‘Yes!
beginwrite（'
a,b='
readln（a,b）;
bthenwriteln（a）
elsewriteln（b）;
三个数中找出最大的数的程序：
vara,b,c,m:
a,b,c='
bthenm:
=a
elsem:
ifm<
cthenm:
max='
m）;
课堂练习：
1、行李托运p22
X<
=10运费y=2.5
X>
10运费y=2.5+（x-10）*1.5
2、三个数中找出最大的数，画框图并写程序（注重讲解算法）。
逻辑表达式
多条件用AND、OR、not将关系表达式连接起来的式子（称为逻辑表达式）来表示。
（a+b>
c）and（a+c>
b）and（b+c>
a）{构成三角形的充分必要条件}、
（a=b）and（b=c）{等边三角形的条件}、（a=b）or（b=c）or（a=c）{等腰三角形的条件}
（Amod400=0）or（amod4=0）and（amod100<
0）{判断a是否闰年}等，这样的式子称为逻辑表达式。
二、块结构条件语句格式：
if<
条件1>
then
[<
语句块1>
]
[elseif<
条件2>
语句块2>
]]
……
条件n>
语句块n>
[else
其它语句块>
endif
问题：
如何求解一元二次方程的根？
分析：
要求解一元二次方程的根，需要已知a,b,c的值（a<
0）。
编程思路如右边的框图所示。
根据数学知识一元二次方程是否存在实数根应看判别式是否大于等于零。
已知三角形的三条边a,b,c，判断能否构成三角形？
若能，求三角形面积并判断是什么三角形（等边、等腰、直角、一般的三角形）？
否则输出不能构成三角形的信息。
1、输入三角形的三条边a,b,c
2、判断能否构成三角形，若能，则
（1）求p=（a+b+c）/2
（2）求s=sqr（p*（p-a）*（p-b）*（p-c））
（3）输出三角形面积s
（4）判断是什么三角形？
（等边、等腰、直角、一般的三角形）
否则输出不能构成
三角形的信息。
先画框图，再写程序并讲解。
programEx_9;
vara,b,c,d:
p,s:
Entera,b,c='
if（a+b>
a）then
p:
=（a+b+c）/2;
=sqrt（p*（p-a）*（p-b）*（p-c））;
s='
if（a=b）and（a=c）and（b=c）thenwriteln（'
ItisDenbian'
elseif（a=b）or（a=c）or（b=c）thenwriteln（'
ItisDenyao'
ItisYiban'
end
Thatiswrong!
end.
练习1、月收入t的所得税税率r如下：
tr
T<
8000
800=<
t<
10005%
1000=<
150010%
1500=<
300015%
T>
=300020%
编写一个程序，输入某人的月收入，输出所得税税率、应缴所得税款以及扣除所得税后的实际收入（分别用if语句、if语句嵌套）。
练习2、输入一个年号，判断它是否是闰年。
三、case语句
上面我们知道可以用嵌套的if语句实现多分支的选择结构。
但是如果分支越来越多时，用嵌套的if语句实现多分支就显得繁杂。
当多分支选择的各个条件由同一个表达式的不同结果值决定时，可以用case语句实现。
它的选择过程，很象一个多路开关，即由case语句的选择表达式的值，决定切换至哪一语句去工作。
因此在分支结构程序设计中，它是一种强有力的手段。
在实现多路径分支控制时，用case对某些问题的处理和设计，比用if语句写程序具有更简洁、清晰之感。
（一）、情况语句的一般形式：
case<
of
情况标号表1>
语句1;
情况标号表2>
语句2;
情况标号表n>
语句n
end;
其中case、of、end是Pascal的保留字，表达式的值必须是顺序类型，它可以是整型、布尔型及以后学习的字符型、枚举型和子界型。
情况标号表是一串用逗号隔开的与表达式类型一致的常量序列。
语句可以是任何语句，包括复合语句和空语句。
（二）、case语句的执行过程
先计算表达式（称为情况表达式）的值，如果它的值等于某一个常量（称为情况常量，也称情况标号），则执行该情况常量后面的语句，在执
升级会员 