高中信息技术 奥林匹克信息学竞赛班进阶篇 pascal-01 基本语句课件.ppt

《高中信息技术 奥林匹克信息学竞赛班进阶篇 pascal-01 基本语句课件.ppt》由会员分享，可在线阅读，更多相关《高中信息技术 奥林匹克信息学竞赛班进阶篇 pascal-01 基本语句课件.ppt（21页珍藏版）》请在装配图网上搜索。

PASCAL基本语句,Pascal 语言的基本语句,赋值语句 读语句 写语句 条件判断语句 循环语句,常量,常量：程序执行过程中其值保持不变的数据,const pi = 3.1415926； f = false； { f为逻辑值false(假) } st = ’abcd ’； { st为字符串’abcd ’} SS : array[14,01] of integer =((0,1),(1,0),(0,-1),(-1,0));,变量,变量：程序执行过程中其值可以改变的数据 var i , j , k , l : integer； { integer 整数类型 } a , b : real； { real 实数类型 } ch : char； { char 字符类型 } p : boolean; { Boolean 布尔类型 },算符,运算符 + {加}、 – {减}、 * {乘}、 / {除}、 div {整除}、 mod {取余数},关系运算符 ＝、 {不等于}、 、 ＝,逻辑运算符 not {逻辑非}、and {逻辑与}、or {逻辑或}、xor {逻辑异或},程序结构,program first； const pi=3.14159； var s,r : real; begin write (r=); readln (r)； s:=pi*sqr(r)； writeln(s=,s); end.,赋值语句,赋值语句,【例】 (1) a := 200； (2) b := a + 30*2； (3) a := a–50;,赋值语句,常见错误,a:=35+6y;,,,a:=35+6y;,a:=35+6*y;,读语句,读语句,【例】 read （a , b , c）； readln（i , j , k）； readln （x , y）；,读语句,当输入数据： 1 2 3 4 5 6 7 8 9 10 11,读入结果为： 1 2 3 4 5 ↓ ↓ ↓ ↓ ↓ a b c i j 6 7 8 ↓ k 9 10 11 ↓ ↓ x y,read（a , b , c）； readln（i , j , k）； readln （x , y）；,写语句,写语句,【例】 x := 20； y := 30； write（x，‘+’，y，‘=’）； write（x + y）；,执行上述语句后，在显示屏输出： 20+30=50,写语句,写语句,执行上述语句后，在显示屏输出： 20+30= 50,【例】 x := 20； y := 30； writeln（x，‘+’，y，‘=’）； writeln（x + y）；,写语句,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）； end.,If语句,条件判断语句,(1)If 语句,readln（x）； if x =0’）；,If语句,readln（x）； if x 0 then begin writeln（‘x0’） b:=b+1; end else writeln(‘aaaaa’);,If语句,If a0 then begin if c=‘@’ then write(‘aaa’); end else if c=‘$’ then write(‘bbb’) else write(‘ccc’);,If语句,(1)If 语句,readln（x）； if x 0 then writeln（‘x0’） else write（‘x=0’）；,If语句,条件判断语句,(1)If 语句,如果 0ab 就……,if 0ab then ….,if (0a) and (ab) then ….,,,Case语句,(2) case 语句,Case语句,var c:char; Begin read(c); case c of ‘@’ : writeln(‘mail’); ‘$’ : writeln(‘money’); ‘*’ : writeln(‘snow’); else writeln(‘!!!!!!!!’); end; End.,Case语句,var x,y:integer; Begin read(x,y); case x+y of 0 : writeln(‘mail’); 110 : writeln(‘money’); 20,30,40 : writeln(‘snow’); else writeln(‘!!!!!!!!’); end; End.,