《奥赛信息学竞赛班进阶篇pascal-01基本语句课件.ppt》由会员分享，可在线阅读，更多相关《奥赛信息学竞赛班进阶篇pascal-01基本语句课件.ppt（21页珍藏版）》请在三一文库上搜索。
1、PASCAL基本语句,奥赛信息学竞赛班进阶篇pascal-01基本语句,Pascal 语言的基本语句,赋值语句 读语句 写语句 条件判断语句 循环语句,奥赛信息学竞赛班进阶篇pascal-01基本语句,常量,常量：程序执行过程中其值保持不变的数据,const pi = 3.1415926； f = false； f为逻辑值false(假) st = abcd ； st为字符串abcd SS : array1.4,0.1 of integer =(0,1),(1,0),(0,-1),(-1,0);,奥赛信息学竞赛班进阶篇pascal-01基本语句,变量,变量：程序执行过程中其值可以改变的数据 v
2、ar i , j , k , l : integer； integer 整数类型 a , b : real； real 实数类型 ch : char； char 字符类型 p : boolean; Boolean 布尔类型 ,奥赛信息学竞赛班进阶篇pascal-01基本语句,算符,运算符 + 加、 减、 * 乘、 / 除、 div 整除、 mod 取余数,关系运算符 、 不等于、 、 ,逻辑运算符 not 逻辑非、and 逻辑与、or 逻辑或、xor 逻辑异或,奥赛信息学竞赛班进阶篇pascal-01基本语句,程序结构,program first； const pi=3.14159； var
3、s,r : real; begin write (r=); readln (r)； s:=pi*sqr(r)； writeln(s=,s); end.,奥赛信息学竞赛班进阶篇pascal-01基本语句,赋值语句,赋值语句,【例】 (1) a := 200； (2) b := a + 30*2； (3) a := a50;,奥赛信息学竞赛班进阶篇pascal-01基本语句,赋值语句,常见错误,a:=35+6y;,a:=35+6y;,a:=35+6*y;,奥赛信息学竞赛班进阶篇pascal-01基本语句,读语句,读语句,【例】 read （a , b , c）； readln（i , j , k）
4、； readln （x , y）；,奥赛信息学竞赛班进阶篇pascal-01基本语句,读语句,当输入数据： 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）；,奥赛信息学竞赛班进阶篇pascal-01基本语句,写语句,写语句,【例】 x := 20； y := 30； write（x，+，y，=）； write（x + y）；,执行上述语句后，在显示屏输出： 20+30=50,奥赛信息学竞赛班进阶篇pa
5、scal-01基本语句,写语句,写语句,执行上述语句后，在显示屏输出： 20+30= 50,【例】 x := 20； y := 30； writeln（x，+，y，=）； writeln（x + y）；,奥赛信息学竞赛班进阶篇pascal-01基本语句,写语句,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.,奥赛信息学竞赛班进阶篇pascal-01基本语句,If语句,条件判断语句,(1
6、)If 语句,readln（x）； if x =0）；,奥赛信息学竞赛班进阶篇pascal-01基本语句,If语句,readln（x）； if x 0 then begin writeln（x0） b:=b+1; end else writeln(aaaaa);,奥赛信息学竞赛班进阶篇pascal-01基本语句,If语句,If a0 then begin if c= then write(aaa); end else if c=$ then write(bbb) else write(ccc);,奥赛信息学竞赛班进阶篇pascal-01基本语句,If语句,(1)If 语句,readln（x）；
7、 if x 0 then writeln（x0） else write（x=0）；,奥赛信息学竞赛班进阶篇pascal-01基本语句,If语句,条件判断语句,(1)If 语句,如果 0ab 就,if 0ab then .,if (0a) and (ab) then .,奥赛信息学竞赛班进阶篇pascal-01基本语句,Case语句,(2) case 语句,奥赛信息学竞赛班进阶篇pascal-01基本语句,Case语句,var c:char; Begin read(c); case c of : writeln(mail); $ : writeln(money); * : writeln(snow); else writeln(!); end; End.,奥赛信息学竞赛班进阶篇pascal-01基本语句,Case语句,var x,y:integer; Begin read(x,y); case x+y of 0 : writeln(mail); 1.10 : writeln(money); 20,30,40 : writeln(snow); else writeln(!); end; End.,奥赛信息学竞赛班进阶篇pascal-01基本语句,