奥赛信息学竞赛班进阶篇pascal-01基本语句ppt课件.ppt

《奥赛信息学竞赛班进阶篇pascal-01基本语句ppt课件.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、PASCAL基本语句Pascal语言的基本语句赋值语句读语句写语句条件判断语句循环语句常量常量：程序执行过程中其值保持不变的数据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));变量变量：程序执行过程中其值可以改变的数据vari,j,k,l:integer；{integer整数类型}a,b:real；{real实数类型}ch:char；{char字符类型}p:bool

2、ean;{Boolean布尔类型}i15ch‘A’算符运算符+{加}、–{减}、*{乘}、/{除}、div{整除}、mod{取余数}关系运算符＝、<>{不等于}、<、<＝、>、>＝逻辑运算符not{逻辑非}、and{逻辑与}、or{逻辑或}、xor{逻辑异或}程序结构programfirst；constpi=3.14159；vars,r:real;beginwrite('r=');readln(r)；s:=pi*sqr(r)；writeln('s=',s);end.赋值语句赋值语句【例】(1)a:=200；(2)b:=a+30*2；(3)a:=a–50;20

3、0a200+30*2200aba200-50赋值语句常见错误a:=35+6y;a:=35+6y;a:=35+6*y;读语句读语句【例】read（a,b,c）；readln（i,j,k）；readln（x,y）；读语句当输入数据：1234567891011读入结果为：12345↓↓↓↓↓abcij678↓k91011↓↓xyread（a,b,c）；readln（i,j,k）；readln（x,y）；写语句写语句【例】x:=20；y:=30；write（x，‘+’，y，‘=’）；write（x+y）；执行上述语句后，在显示屏输出：20+30=50写语句写语句执行

4、上述语句后，在显示屏输出：20+30=50【例】x:=20；y:=30；writeln（x，‘+’，y，‘=’）；writeln（x+y）；写语句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.If语句条件判断语句(1)If语句A条件B是否readln（x）；ifx<0thenwriteln（‘x<0’）elsewriteln（’x>=0’）；If语句readln（x）；ifx<0thenbeginwr

5、iteln（‘x<0’）b:=b+1;endelsewriteln(‘aaaaa’);If语句Ifa>0thenbeginifc=‘@’thenwrite(‘aaa’);endelseifc=‘$’thenwrite(‘bbb’)elsewrite(‘ccc’);If语句(1)If语句readln（x）；ifx<0thenwriteln（‘x<0’）elseifx>0thenwriteln（‘x>0’）elsewrite（‘x=0’）；If语句条件判断语句(1)If语句如果0

6、ase语句(2)case语句下一条语句语句n-1表达式＝情况标号语句1语句2语句n标号1标号2标号n-1elsetrue……Case语句varc:char;Beginread(c);casecof‘@’:writeln(‘mail’);‘$’:writeln(‘money’);‘*’:writeln(‘snow’);elsewriteln(‘!!!!!!!!’);end;End.Case语句varx,y:integer;Beginread(x,y);casex+yof0:writeln(‘mail’);1..10:writeln(‘money’);20,30

7、,40:writeln(‘snow’);elsewriteln(‘!!!!!!!!’);end;End.