《廣東省汕頭市金山中學(xué)高中信息技術(shù) 奧林匹克信息學(xué)競(jìng)賽班進(jìn)階篇 pascal01 基本語句課件》由會(huì)員分享，可在線閱讀，更多相關(guān)《廣東省汕頭市金山中學(xué)高中信息技術(shù) 奧林匹克信息學(xué)競(jìng)賽班進(jìn)階篇 pascal01 基本語句課件（21頁(yè)珍藏版）》請(qǐng)?jiān)谘b配圖網(wǎng)上搜索。
1、PASCAL基本語句PASCAL 語言的基本語句 賦值語句賦值語句 讀語句讀語句 寫語句寫語句 條件判斷語句條件判斷語句 循環(huán)語句循環(huán)語句常量 常量常量：程序執(zhí)行過程中其值保持不變的：程序執(zhí)行過程中其值保持不變的數(shù)據(jù)數(shù)據(jù)const pi = 3.1415926； f = false； f為邏輯值為邏輯值false(假假) st = abcd ； st為字符串為字符串a(chǎn)bcd SS : array1.4,0.1 of integer =(0,1),(1,0),(0,-1),(-1,0); 變量 變量：程序執(zhí)行過程中其值可以改變的數(shù)據(jù)變量：程序執(zhí)行過程中其值可以改變的數(shù)據(jù) var i , j ,
2、k , l : integer； integer 整數(shù)類型整數(shù)類型 a , b : real； real 實(shí)數(shù)類型實(shí)數(shù)類型 ch : char； char 字符類型字符類型 p : boolean; Boolean 布爾類型布爾類型 i15chA算符 運(yùn)算符運(yùn)算符 + + 加加 、 減減 、 * * 乘乘 、 / / 除除 、 div div 整除整除 、 mod mod 取余數(shù)取余數(shù) 關(guān)系運(yùn)算符關(guān)系運(yùn)算符 、 不等于不等于 、 、 、 邏輯運(yùn)算符邏輯運(yùn)算符 not 邏輯非邏輯非、and 邏輯與邏輯與、or 邏輯或邏輯或、xor 邏輯異或邏輯異或程序結(jié)構(gòu)program first； const
3、 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 := a50;200a200 + 30*2200aba200 - - 50賦值語句 常見錯(cuò)誤常見錯(cuò)誤a:=35+6y;a:=35+6y;a:=35+6*y;讀語句讀語句 讀語句讀語句【例】 read （a , b , c）； readln（i , j , k）； readln （x , y）；讀語
4、句讀語句當(dāng)輸入數(shù)據(jù)當(dāng)輸入數(shù)據(jù)： 1 2 3 4 5 6 7 8 9 10 11讀入結(jié)果為讀入結(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í)行上述語句后，在顯示屏輸出執(zhí)行上述語句后，在顯示屏輸出： 20+30=50 寫語句寫語句 寫語句寫語句執(zhí)行上述語句后，在顯示屏輸出執(zhí)行上述語句后，在顯示屏輸出： 20+30= 50 【例】
5、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 (1)If 語句語句A條件條件B是是否否 readln（x）； if x 0 then writeln（x=0）；IF語句語句 readln（x）； if x 0 then b
6、egin writeln（x0 then begin if c= then write(aaa); end else if c=$ then write(bbb) else write(ccc);IF語句語句 (1)If (1)If 語句語句 readln（x）； if x 0 then writeln（x 0 then writeln（x0） else write（x=0）；IF語句語句 條件判斷語句條件判斷語句 (1)If (1)If 語句語句如果如果 0ab 就就if 0ab then .if (0a) and (ab) then .CASE語句語句(2) case (2) case 語
7、句語句下一條語句語句n-1表達(dá)式情況標(biāo)號(hào)表達(dá)式情況標(biāo)號(hào)語句1語句2語句n標(biāo)號(hào)1標(biāo)號(hào)2標(biāo)號(hào)n-1elsetrueCASE語句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); 1.10 : writeln(money); 20,30,40 : writeln(snow); else writeln(!); end;End.
廣東省汕頭市金山中學(xué)高中信息技術(shù) 奧林匹克信息學(xué)競(jìng)賽班進(jìn)階篇 pascal01 基本語句課件
