(共20张PPT)
PASCAL 程序设计
中山市第一中学
万杰
电话: 13326968001 ,8817686
邮箱： wanjie@
博客：http://wanjie.
1、已知某梯形的上底A=13，下底B=18，高H=9，求它的面积S。 (梯形面积公式（上底+下底）*高/2) 2、某机关组织游泳比赛。将一堆西瓜分给前三名，把该堆西瓜中的一半又半个西瓜奖给第一名；剩下的一半又半个西瓜给第二名；把最后剩下的一半又半个西瓜给第三名，但每次分时并没切开任何一个西瓜，且刚好西瓜分完。问前三名各分到多少个西瓜
第二章 顺序结构课后练习
第二章 练习解答
第一题
简单^-^,不过需要注意面积变量s定义为real。
第二题
If <布尔表达式> then <语句1> else <语句2>；
第三章 选择结构程序设计-if语句
a:=20; b:=30;
If a>=b
then write(“投票通过”)
Else write(“投票不通过”)；
对
错
语句1
语句2
条件
第三章 选择结构程序设计
复合语句:
在某种情况下，当满足某个条件时，我们需要连续执行多个语句，在pascal语言中为了让结构清晰，允许我们把多个语句组成一个复合语句，这样一个复合语句的使用就可以看作一个语句使用。
begin
<语句1>；
<语句2>；
. . . . . .
<语句n>；
end
write(‘a,b=’); readln(a,b); if b=0 then writeln(‘input error’) else begin c:=a/b; writeln(‘a/b=’,c); end;
第三章 选择结构程序设计
例3.1知识点
if语句的格式同复合语句的格式和作用！
练习1：从键盘输入两个数，求最大数。
第三章 选择结构程序设计
Readln(a,b)
If a>=b
Max:=a
Max:=b
Writeln(Max)
T
F
流程图
program L3_1; var a,b,max:real; begin write('enter a,b='); readln(a,b); if a>=b then max:=a else max:=b; writeln('max=',max:8:2); end.
Case<表达式> of <常量表1>:<语句1>； …… <常量表n>：<语句n>； else <语句n+1>； end；
第三章 选择结构程序设计-case语句
else
常量表n
表达式
语句1
语句n
语句n+1
常量表1
write(‘result=’) readln(result); n:=trunc(result/10); case n of 10,9 : writeln(‘class is A’); 8 : writeln(‘class is B’); 7,6 : writeln('class is C'); 5,4,3,2,1,0 : writeln('class is D'); else writeln('input erro!'); end ;
例3.2知识点
case语句的格式
2. <表达式>的结果类型与常量表的类型要一致。
3. If语句和case语句结合使用，可让程序更完善。
第三章 选择结构程序设计
例3.3知识点
开始
计算该月天数days
读入年、月（year,month）
输出年、月和该月天数 （year,month,days）
结束
逐步求精
第三章 选择结构程序设计
Readln(a,b,c)
If a>=b
Max:=a Min:=b
Max:=b Mim:=a
T
F
If c>Max
Max:=c
If cMin:=c
Writeln(Max,Min)
第三章 选择结构程序设计
练习2
Readln(a,b,c)
if not ((a>0)and(b>0)and(c>0) and(a+b>=c)and (abs(a-b)<=c))
writeln('input erro!');
halt;
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('s=',s:8:2);
T
练习3
第三章 选择结构程序设计
练习4
randomize;
c:=random(11);
If p=c
name:='right!'
name:='wrong!'
Writeln(name)
T
F
Readln(p)
第三章 选择结构程序设计
练习5
第三章 选择结构程序设计
randomize;
a:=random(101); b:=random(101);
If p=c
name:='right!'
name:='wrong!'
Writeln(name)
T
F
Readln(p)
c:=a*b
练习6
第三章 选择结构程序设计
Read(p) ‘price
n=trunc(p/1000)
If p<=0 then halt;
Case n
0
t:=0
writeln(‘price=’,p:8:2,‘ tax=’,t:8:2); ’ t(税)
1 2 3 4
5 6 7 8 9
else
t:=p*2/100
t:=p*3/100
t:=p*5/100
练习7
第三章 选择结构程序设计
If x<=800
y:=x
y:=x-0.05
Writeln(y:8:2)
T
F
Readln(x)
练习8
第三章 选择结构程序设计
If length(a) >length(b)
long:=a
Long:=b
T
F
Readln(a)
Readln(b)
If a>b
max:=a
max:=b
T
F
Writeln(long,max)
练习9
第三章 选择结构程序设计
If (age>=10)and(sex=1)or (age>=14)and(sex=0)
Writeln(‘pass’)
Writeln(‘no pass’)
T
F
Readln(age,sex)
练习10
第三章 选择结构程序设计
If (average>80)and(a>=60)and (b>=60)and(c>=60)and(d>=60)
Writeln(‘model student’)
T
average:=(a+b+c+d+e)/5
Readln(a,b,c,d,e)
y:=(year mod 4) and (year mod 100<>0) or (year mod 400=0)
判断该年是否为闰年，并把true或false存入y中
Case （month）
1,3,5,7,8,10,12
days:=31
4,6,9,11
2
else
输出错误信息 并终止程序
y值
days:=30
T
F
days:=28
days:=29
判断该年是否为闰年，并把true或false存入y中
第三章 选择结构程序设计(共16张PPT)
PASCAL 程序设计
中山市第一中学
万杰
电话:13326968001 ,8817686
邮箱：wanjie@
框图的认识：
第二章 顺序结构程序设计
语句1
语句n
语句1
. . . . . .
语句n
PDL框图描述顺序结构
N-S框图描述顺序结构
第二章 顺序结构程序设计
赋值语句
赋值语句是pascal中最常用的语句，它主要用于计算表达式的值，并将其赋给一个变量。
格式：<变量标识符>:=<表达式>；
注意：
1.表达式的类型必须与左端变量类型相容。
2.赋值运算符“:=”与等号“=”具有完全不同的含义。
找出下面程序的错误
program rzy3;
var
a : integer;
b : real;
c : char;
d : string;
e:boolean;
begin
b:=5;
a:=b+1;
a:=2*16384
e:= (5>0);
c:='I';
d:=c+' am a boy';
c:=d;
end .
第二章 顺序结构程序设计
例2.2 图例 假设红代表a杯、黄代表b杯、蓝代表c杯
第二章 顺序结构程序设计
1
2
0
初始情况
a b c
1 2 0
0
2
1
a杯倒入c杯
a b c
1 2 0
0 2 1
2
0
1
b杯倒入a杯
a b c
1 2 0
0 2 1
2 0 1
2
1
0
c杯倒入b杯
a b c
1 2 0
0 2 1
0 1
2 1 0
例2.2知识点
一个变量中的值赋给另外一个变量
“取数用复制，存数用替换”
第二章 顺序结构程序设计
例2.3 已知甲乙两港的水路为208千米，一只船从甲港开往乙港，顺水8小时到达，从乙港返回甲港，逆水13小时到达，求船速和水速。
第二章 顺序结构程序设计
数学模型
顺水速度=水路/顺水时间 vt1=208/8=26 逆水速度=水路/逆水时间 vt2=208/13=16 船速=（顺水速度+逆水速度）/2 vb=（vt1+vt2）/2=21 水速=（顺水速度-逆水速度）/2 vw=（vt1-vt2）/2=5
答：船速是21千米/小时，水速是5千米/小时
第二章 顺序结构程序设计
例2.3知识点
1.学会建立数学模型，用已知量表示未知量
2.题中从键盘中输入表示已知量，通过read或readln过程读入指定的变量。（readln(s,t1,t2)）
3.write(‘s,t1,t2=’);是将字符串的内容原样输出到屏幕上，起到提示输入的作用。
例2.4知识点
1.随机函数的使用
randomize; {随机初始化,让每次产生的随机数都不同}
c:=random(11); {产生一个0到10之间的随机数.如果random后没带 参数,就是产生一个0到1之间的随机小数.}
2.Copy函数的应用
Copy(str,a,b) 作用:从字符串str的左边第a位开始截取b位字符串.
第二章 顺序结构程序设计
例2.5知识点
1.Ord(x) 函数的使用 x必须为有序类型.
ord(‘A’) 即 ‘A’的ASCII码值为:65;
第二章 顺序结构程序设计
练习1：答案
program rzy1_1(input,output);
var
s,a,h:real;
begin
write('input a,h=');
readln(a,h);
s:=(a*h)/2;
write('s=');
writeln(s:8:2);
end.
第二章 顺序结构程序设计
练习2： 答案
第二章 顺序结构程序设计
program rzy1_2;
begin
writeln(' *********** ************* ');
writeln(' * * * * ');
writeln(' * *** ');
writeln(' *********** **************');
writeln(' * * ');
writeln(' * * ');
writeln(' *********** * ');
end.
练习3：答案
第二章 顺序结构程序设计
数学建摸
设燃烧速度为L
则 (n*L-t*L)=k*(m*L-t*L)
(n-t)*L=(k*m-k*t)*L
(n-t)=(k*m-k*t)
k*t-t=k*m-n
(k-1)*t=k*m-n
t=(k*m-n)/(k-1)
练习3：答案
program rzy1_3;
var
m,n,k,t:real;
begin
write('input m,n,k=');
readln(m,n,k);
t:=(k*m-n)/(k-1);
write('t=');
writeln(t:8:2);
end.
第二章 顺序结构程序设计
练习4：答案
数学建摸
设甲乙两地距离为s，v1,v2,dt是已知量。
有 s/v1-s/v2=dt
s*(1/v1-1/v2)=dt
s=dt/(1/v1-1/v2)
第二章 顺序结构程序设计
练习4：答案
program rzy1_4;
var
v1,v2,s,dt:real;
begin
write('v1,v2,dt=');
readln(v1,v2,dt);
s:=dt/(1/v1-1/v2);
writeln('s=',s:8:2);
end.
第二章 顺序结构程序设计(共18张PPT)
PASCAL 程序设计
中山市第一中学
万杰
电话:13326968001 ,8817686
邮箱：wanjie@
1.Pascal语言是世界上第一个 语言。
2.结构化程序设计主要有那四种结构 、 、
、 。
3.下面这个程序按“功能不同”可分成那三个部分
第一章 Pascal程序设计介绍
结构化的高级
程序设计语言
顺序结构
选择结构
函数和过程
循环结构
1. program circle(input,output);
2. const
3. pi=3.14;
4. var
5. r,l,s:real;
6. begin
7. write('r=');
8. readln(r);
9. l:=2*pi*r;
10.s:=pi*r*r;
11.writeln('R=',r:8:2,' L=',l:8:2,' S=',s:8:2);
12.end.
第一章 Pascal程序设计介绍
说明部分
执行部分
程序首部
操作题
4.在pascal中如何将d:\syx设成当前文件夹。
5.打开d:\syx文件夹中circle.pas，如何单步执行观察求圆面积程序中R,L,S的变化情况。
第一章 Pascal程序设计介绍
6.在求圆面积程序中保留字有那些.(注:在pascal中具有特定含义的词称为保留字).保留字不能做 、 、 。
1. program circle(input,output);
2. const
3. pi=3.14;
4. var
5. r,l,s:real;
6. begin
7. write('r=');
8. readln(r);
9. l:=2*pi*r;
10.s:=pi*r*r;
11.writeln('R=',r:8:2,' L=',l:8:2,' S=',s:8:2);
12.end.
第一章 Pascal程序设计介绍
常量名
变量名
程序名
7.在求圆面积程序中，标准标识符有那些？用户自定义标识符有那些？
1. program circle(input,output);
2. const
3. pi=3.14;
4. var
5. r,l,s:real;
6. begin
7. write('r=');
8. readln(r);
9. l:=2*pi*r;
10.s:=pi*r*r;
11.writeln('R=',r:8:2,' L=',l:8:2,' S=',s:8:2);
12.end.
第一章 Pascal程序设计介绍
8.S:=Pi*R*R表示什么意思？
9.一个文件中有四个数 3 4 7 要把3 4 5读入变量a、b、c中，下 5
面那个程序对？
A）readln(a,b); B) read(a,b)
read(c); read(c)
10.已知变量a、b、c中的数为3，4，5要按 3 4 这样输出到屏幕上，下面那个程序对？ 5
A）write(a,b); B) writeln(a,b);
write(c); write(c);
第一章 Pascal程序设计介绍
11.程序中数据分为两类,一类是在程序执行过程中其值保持不变的量,称为常量.常量又可以分为直接常量和用户定义常量.直接常量指程序中直接引用的常数,经常使用的常数有
一.整型常数 举例 ;
二.实型常数 举例 ;
三.字符型常数 举例 ;
四.布尔型常数 举例 ;
12.根据自定义常量语法图写出定义一个常量PI的语句 .
常量说明
CONST
标识符
=
常量
；
第一章 Pascal程序设计介绍
13. 根据变量说明语法图定义三个实型变量,三个整型变量,一个字符型变量 .
变量说明
VAR
标识符
:
类型标识符
；
,
第一章 Pascal程序设计介绍
1.2.6 Trubo Pascal中标准数据类型介绍.
1.整型(integer):观察整数类型表,理解类型标识符,数据表示范围.
名称
类型标识符
数据表示范围
占用存储空间
整型
integer
-32768 ~ +32767
1byte
短整型
shortint
-128 ~ +127
2byte
长整型
longint
-2147483648 ~ +2147483647
4byte
字节型
byte
0 ~ 255
1byte
字型
word
0 ~ 65535
2byte
第一章 Pascal程序设计介绍
1.2.6 Trubo Pascal中标准数据类型介绍.
2.实型(real):理解数据协处理器{$N+}的是使用方法.
3.字符型和字符串型(char 和 string):
3.1 字符和字符串都要用单引号括起来‘ abc def ’. 3.2 name:string[5];最长5个字符。
4.布尔型(boolean):值只有true和false,分别表示真和假或对和错.
第一章 Pascal程序设计介绍
条件A
条件B
not A
A and B
A or B
true
true
false
true
true
true
false
false
false
true
false
true
true
false
true
false
false
true
false
false
逻辑运算符not、and、or
第一章 Pascal程序设计介绍
1.2.7运算符、标准函数和标准过程
运算符
运算类型
运算对象及类型
结果类型
+、-、*
算术 运算
整型或实型
整型或实型
/
算术运算
整型或实型
实型
div、mod
算术运算
整型
整型
not、and、or
逻辑运算
布尔型
布尔型
< 、<= 、= 、> 、>= 、<>
关系运算
标准类型
布尔型
第一章 Pascal程序设计介绍
通过下列程序掌握算术标准函数。
program exp1(input,output);
var
x:real;
begin
write('x=');
readln(x);
writeln('x=',abs(x):8:2);
end.
第一章 Pascal程序设计介绍
算术标准过程。
[1] dec(x) 相当于 x:=x-1
[2] dec(x,n) 相当于 x:=x-n
[3] inc(x) 相当于 x:=x+1
[4] inc(x,n) 相当于 x:=x+n
字符处理标准函数
(2) copy(str,a,b) => copy('abcdef',2,4) 结果：'bcde'
(5) ord(x) => ord('A') 即'A'的ASCII码值为：65 ；
第一章 Pascal程序设计介绍
表达式 PASCAL中表达式是由常量、变量、函数、运算符及圆括号（只能用圆括号）连接起来的算式。与普通的算术运算式不同，表达式书写必须符合PASCAL语言规定。 PASCAL中运算的优先顺序如下：
1)括号内表达式优先处理
( 2)函数
( 3)NOT
( 4)AND,*,/,DIV,MOD
( 5)+,-,OR
( 6)<,<=,=,>,>=,<>,IN
第一章 Pascal程序设计介绍
表达式
3+[(2×3)÷2] 的pascal表示式是什么
的pascal表示式是什么
已知a=6,b=5 将a除b的余数存到c中的表达式是什么
x = sqr(2)) or not(y>0) and (( x-y ) /i <> 0 ) 的结果是什么
第一章 Pascal程序设计介绍
顺序结构
第二章 顺序结构程序设计
语句1
语句n
program rzy3;
var
a : integer;
b : real;
c : char;
d : string;
e:boolean;
begin
b:=5;
a:=b+1;
a:=2*16384
e:= (5>0);
c:='I';
d:=c+‘I am a boy';
c:=d;
end .(共7张PPT)
PASCAL 程序设计
中山市第一中学
万杰
电话:13326968001 ,8817686
邮箱：wanjie@
Pascal语言介绍 问题1:沃斯(N.Wirth) 是谁 问题2:结构化程序设计有那三种基本结构
语句1
语句n
条件
语句1
语句2
对
错
布尔表达式
语句
真
假
问题3: 程序设计主要采用什么方法
自顶向下 逐步求精
Pascal程序的结构初步认识
program circle(input,output); 程序首部:指出程序名及参数
const
pi=3.14;
var
r,l,s:real;
begin
write('r=');
readln(r);
l:=2*pi*r;
s:=pi*r*r;
writeln('R=',r:8:2,' L=',l:8:2,' S=',s:8:2);
end.
说明部分
执行部分
什么是保留字 保留字不能做 , 或 。
标识符的语法图
下列标识符为什么会错？ Begin ， 3student ，student 1 ，a+b
标识符
字母
字母
数字
实数
整数
·
无符号整数
E
整数
整数
＋
－
数字
条件A
条件B
not A
A and B
A or B
true
true
false
true
true
true
false
false
false
true
false
true
true
false
true
false
false
true
false
false
逻辑运算符not、and、or
