高中信息技術(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.,