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

《高中信息技術(shù) 奧林匹克信息學(xué)競賽班進階篇 pascal-01 基本語句課件.ppt》由會員分享，可在線閱讀，更多相關(guān)《高中信息技術(shù) 奧林匹克信息學(xué)競賽班進階篇 pascal-01 基本語句課件.ppt（21頁珍藏版）》請在裝配圖網(wǎng)上搜索。

PASCAL基本語句,Pascal 語言的基本語句,賦值語句 讀語句 寫語句 條件判斷語句 循環(huán)語句,常量,常量：程序執(zhí)行過程中其值保持不變的數(shù)據(jù),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));,變量,變量：程序執(zhí)行過程中其值可以改變的數(shù)據(jù) var i , j , k , l : integer； { integer 整數(shù)類型 } a , b : real； { real 實數(shù)類型 } ch : char； { char 字符類型 } p : boolean; { Boolean 布爾類型 },算符,運算符 + {加}、 – {減}、 * {乘}、 / {除}、 div {整除}、 mod {取余數(shù)},關(guā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.,賦值語句,賦值語句,【例】 (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）；,讀語句,當(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）；,寫語句,寫語句,【例】 x := 20； y := 30； write（x，‘+’，y，‘=’）； write（x + y）；,執(zhí)行上述語句后，在顯示屏輸出： 20+30=50,寫語句,寫語句,執(zhí)行上述語句后，在顯示屏輸出： 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(‘a(chǎn)aaaa’);,If語句,If a0 then begin if c=‘@’ then write(‘a(chǎn)aa’); 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.,