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

Pascal

语言的基本语句赋值语句读语句写语句条件判断语句循环语句第一页第二页，共21页。常量

常量：程序执行过程中其值保持不变的数据constpi=3.1415926；

f=false；{f为逻辑值false(假)}st=’abcd’；{st为字符串’abcd’}SS:array[1..4,0..1]ofinteger=((0,1),(1,0),(0,-1),(-1,0));

第二页第三页，共21页。变量

变量：程序执行过程中其值可以改变的数据vari,j,k,l:integer；

{integer整数类型

}a,b:real；{real实数类型

}ch:char；

{char字符类型

}p:boolean;{Boolean布尔类型

}

i15ch‘A’第三页第四页，共21页。算符

运算符

+{加}、–{减}、*{乘}、/{除}、div{整除}、mod{取余数}

关系运算符＝、<>{不等于}、<、<＝、>、>＝

逻辑运算符

not{逻辑非}、and{逻辑与}、or{逻辑或}、xor{逻辑异或}第四页第五页，共21页。程序结构programfirst；

constpi=3.14159；vars,r:real;beginwrite('r=');readln(r)；s:=pi*sqr(r)；writeln('s=',s);end.

第五页第六页，共21页。赋值语句赋值语句【例】(1)a:=200；

(2)b:=a+30*2；

(3)a:=a–50;200a200+30*2200aba200-50第六页第七页，共21页。赋值语句常见错误a:=35+6y;a:=35+6y;a:=35+6*y;第七页第八页，共21页。读语句读语句【例】

read（a,b,c）；readln（i,j,k）；

readln（x,y）；第八页第九页，共21页。读语句当输入数据：

1234567891011读入结果为：12345↓↓↓↓↓abcij678↓k91011↓↓xyread（a,b,c）；readln（i,j,k）；readln（x,y）；第九页第十页，共21页。写语句写语句【例】x:=20；y:=30；

write（x，‘+’，y，‘=’）；write（x+y）；执行上述语句后，在显示屏输出：

20+30=50第十页第十一页，共21页。写语句写语句执行上述语句后，在显示屏输出：

20+30=50【例】x:=20；y:=30；

writeln（x，‘+’，y，‘=’）；writeln（x+y）；第十一页第十二页，共21页。写语句beginc:=’a’；

r:=3.5；

writeln（c:6）；

writeln（r）；

writeln（r:9）；writeln（r:1）；writeln（r:9:3）；

writeln（r:2:3）；end.第十二页第十三页，共21页。If语句

条件判断语句(1)If语句A条件B是否

readln（x）；

ifx<0thenwriteln（‘x<0’）

elsewriteln（’x>=0’）；第十三页第十四页，共21页。If语句

readln（x）；

ifx<0thenbeginwriteln（‘x<0’）

b:=b+1;endelsewriteln(‘aaaaa’);第十四页第十五页，共21页。If语句Ifa>0thenbeginifc=‘@’thenwrite(‘aaa’);endelseifc=‘$’thenwrite(‘bbb’)elsewrite(‘ccc’);第十五页第十六页，共21页。If语句(1)If语句

readln（x）；

ifx<0thenwriteln（‘x<0’）

elseifx>0thenwriteln（‘x>0’）

elsewrite（‘x=0’）；第十六页第十七页，共21页。If语句

条件判断语句(1)If语句如果0<a<b就……if0<a<bthen….if(0<a)and(a<b)then….第十七页第十八页，共21页。Case语句(2)case语句下一条语句语句n-1表达式＝情况标号语句1语句2语句n标号1标号2标号n-1elsetrue……第十八页第十九页，共21页。Case语句varc:char;Beginread(c);casecof‘@’:writeln(‘mail’