奥赛信息学竞赛班进阶篇pascal-01-基本语句(共21张)PPT课件

‘*’ : writeln(‘snow’);
else writeln(‘!!!!!!!!’);
end;
End.
.
20
Case语句
var x,y:integer;
Begin
read(x,y);
case x+y of
0 : writelБайду номын сангаас(‘mail’);
1..10 : writeln(‘money’);
LOGO
PASCAL基本语句
汕头金山中学信息竞赛班
.
1
Pascal 语言的基本语句
❖ 赋值语句 ❖ 读语句 ❖ 写语句 ❖ 条件判断语句 ❖ 循环语句
.
2
常量
❖ 常量：程序执行过程中其值保持不变的数据
const
pi = 3.1415926；
f = false；
{ f为逻辑值false(假) }
st = ’abcd ’； { st为字符串’abcd ’}
‘=’）； write（x + y）；
执行上述语句后，在显示屏输出：
20+30=50
.
11
写语句
❖ 写语句
【例】 x := 20； y := 30； writeln（x，‘+’，y，‘=’）； writeln（x + y）；
执行上述语句后，在显示屏输出：
20+30=
50
.
12
begin c := ’a’； r := 3. 5； writeln（c : 6）； writeln（r）； writeln（r : 9）； writeln（r : 1）； writeln（r : 9 : 3）； writeln（r : 2 : 3）；
.
9
读语句
read（a , b , c）； readln（i , j , k）； readln （x , y）；
读入结果为：
12345 ↓↓ ↓ ↓↓ abc i j
当输入数据：
678 ↓
12345
k
678 9 10 11
9 10 11 ↓↓ xy
.
10
写语句
❖ 写语句 【例】 x := 20； y := 30； write（x，‘+’，y，
end.
.
6
赋值语句
❖ 赋值语句 【例】 (1) a := 200； (2) b := a + 30*2； (3) a := a–50;
200 a
200 + 30*2
200
a
b
.
200 - 50
a
7
赋值语句
❖ 常见错误
a:=35+6y; a:=35+6*y;
.
8
读语句
❖ 读语句
【例】 read （a , b , c）； readln（i , j , k）； readln （x , y）；
20,30,40 : writeln(‘snow’);
else writeln(‘!!!!!!!!’);
end;
End.
.
21
end else writeln(‘aaaaa’);
.
15
If语句
If a>0 then begin if c=‘@’ then write(‘aaa’);
end else if c=‘$’ then write(‘bbb’)
else write(‘ccc’);
.
16
If语句
(1)If 语句
readln（x）； if x < 0
SS : array[1..4,0..1] of integer
=((0,1),(1,0),(0,-1),(-1,0));
.
3
变量
❖ 变量：程序执行过程中其值可以改变的数据
var i , j , k , l : integer； a , b : real； ch : char；
p : boolean;
{ integer 整数类型 } { real 实数类型 } { char 字符类型 } { Boolean 布尔类型 }
15
i
‘A’
ch
.
4
算符
❖ 运算符 + {加}、 – {减}、 * {乘}、 / {除}、 div {整除}、 mod {取余数}
❖ 关系运算符 ＝、< > {不等于}、 < 、 <＝ 、 > 、 >＝
.
18
Case语句
(2) case 语句
标号1 语句1
标号2
表达式＝情况标号
true
语句2
……
else
标 号 n1
语句n-1
语句n
下一条语句
.
19
Case语句
var c:char;
Begin
read(c);
case c of
‘@’ : writeln(‘mail’);
‘$’ : writeln(‘money’);
then writeln（‘x<0’） else if x > 0
then writeln（‘x>0’） else write（‘x=0’）；
.
17
If语句
❖ 条件判断语句
(1)If 语句 如果 0<a<b 就……
if 0<a<b then …. if (0<a) and (a<b) then ….
❖ 逻辑运算符
not {逻辑非}、and {逻辑与}、or {逻辑或}、xor {逻辑异或}
.
5
程序结构
program first；
const pi=3.14159；
var s,r : real;
begin
write ('r=');
readln (r)；
s:=pi*sqr(r)；
writeln('s=',s);
end.
写语句
.
13
If语句
❖ 条件判断语句
(1)If 语句 readln（x）；
是
否
条件
A
B
if x < 0
then writeln（‘x<0’）
else writeln（’x>=0’）；
.
14
If语句
readln（x）； if x < 0
then begin writeln（‘x<0’） b:=b+1;