高中信息技術(shù) 奧林匹克信息學(xué)競(jìng)賽班進(jìn)階篇 pascal-01 基本語(yǔ)句課件.ppt

PASCAL基本語(yǔ)句,Pascal 語(yǔ)言的基本語(yǔ)句,賦值語(yǔ)句 讀語(yǔ)句 寫(xiě)語(yǔ)句 條件判斷語(yǔ)句 循環(huán)語(yǔ)句,常量,常量：程序執(zhí)行過(guò)程中其值保持不變的數(shù)據(jù),const pi = 3.1415926； f = false； f為邏輯值false(假) st = abcd ； st為字符串a(chǎn)bcd SS : array14,01 of integer =(0,1),(1,0),(0,-1),(-1,0);,變量,變量：程序執(zhí)行過(guò)程中其值可以改變的數(shù)據(jù) var i , j , k , l : integer； integer 整數(shù)類型 a , b : real； real 實(shí)數(shù)類型 ch : char； char 字符類型 p : boolean; Boolean 布爾類型 ,算符,運(yùn)算符 + 加、 減、 * 乘、 / 除、 div 整除、 mod 取余數(shù),關(guān)系運(yùn)算符 、 不等于、 、 ,邏輯運(yùn)算符 not 邏輯非、and 邏輯與、or 邏輯或、xor 邏輯異或,程序結(jié)構(gòu),program first； const pi=3.14159； var s,r : real; begin write (r=); readln (r)； s:=pi*sqr(r)； writeln(s=,s); end.,賦值語(yǔ)句,賦值語(yǔ)句,【例】 (1) a := 200； (2) b := a + 30*2； (3) a := a50;,賦值語(yǔ)句,常見(jiàn)錯(cuò)誤,a:=35+6y;,a:=35+6y;,a:=35+6*y;,讀語(yǔ)句,讀語(yǔ)句,【例】 read （a , b , c）； readln（i , j , k）； readln （x , y）；,讀語(yǔ)句,當(dāng)輸入數(shù)據(jù)： 1 2 3 4 5 6 7 8 9 10 11,讀入結(jié)果為： 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）；,寫(xiě)語(yǔ)句,寫(xiě)語(yǔ)句,【例】 x := 20； y := 30； write（x，+，y，=）； write（x + y）；,執(zhí)行上述語(yǔ)句后，在顯示屏輸出： 20+30=50,寫(xiě)語(yǔ)句,寫(xiě)語(yǔ)句,執(zhí)行上述語(yǔ)句后，在顯示屏輸出： 20+30= 50,【例】 x := 20； y := 30； writeln（x，+，y，=）； writeln（x + y）；,寫(xiě)語(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語(yǔ)句,條件判斷語(yǔ)句,(1)If 語(yǔ)句,readln（x）； if x =0）；,If語(yǔ)句,readln（x）； if x 0 then begin writeln（x0） b:=b+1; end else writeln(aaaaa);,If語(yǔ)句,If a0 then begin if c= then write(aaa); end else if c=$ then write(bbb) else write(ccc);,If語(yǔ)句,(1)If 語(yǔ)句,readln（x）； if x 0 then writeln（x0） else write（x=0）；,If語(yǔ)句,條件判斷語(yǔ)句,(1)If 語(yǔ)句,如果 0ab 就,if 0ab then .,if (0a) and (ab) then .,Case語(yǔ)句,(2) case 語(yǔ)句,Case語(yǔ)句,var c:char; Begin read(c); case c of : writeln(mail); $ : writeln(money); * : writeln(snow); else writeln(!); end; End.,Case語(yǔ)句,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.,