高中信息技術(shù) 奧林匹克信息學(xué)競賽班進(jìn)階篇 pascal-01 基本語句課件.ppt
《高中信息技術(shù) 奧林匹克信息學(xué)競賽班進(jìn)階篇 pascal-01 基本語句課件.ppt》由會(huì)員分享,可在線閱讀,更多相關(guān)《高中信息技術(shù) 奧林匹克信息學(xué)競賽班進(jìn)階篇 pascal-01 基本語句課件.ppt(21頁珍藏版)》請?jiān)谘b配圖網(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í)數(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.,賦值語句,賦值語句,【例】 (1) a := 200; (2) b := a + 30*2; (3) a := a–50;,賦值語句,常見錯(cuò)誤,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.,- 1.請仔細(xì)閱讀文檔,確保文檔完整性,對于不預(yù)覽、不比對內(nèi)容而直接下載帶來的問題本站不予受理。
- 2.下載的文檔,不會(huì)出現(xiàn)我們的網(wǎng)址水印。
- 3、該文檔所得收入(下載+內(nèi)容+預(yù)覽)歸上傳者、原創(chuàng)作者;如果您是本文檔原作者,請點(diǎn)此認(rèn)領(lǐng)!既往收益都?xì)w您。
下載文檔到電腦,查找使用更方便
9.9 積分
下載 |
- 配套講稿:
如PPT文件的首頁顯示word圖標(biāo),表示該P(yáng)PT已包含配套word講稿。雙擊word圖標(biāo)可打開word文檔。
- 特殊限制:
部分文檔作品中含有的國旗、國徽等圖片,僅作為作品整體效果示例展示,禁止商用。設(shè)計(jì)者僅對作品中獨(dú)創(chuàng)性部分享有著作權(quán)。
- 關(guān) 鍵 詞:
- 高中信息技術(shù) 奧林匹克信息學(xué)競賽班進(jìn)階篇 pascal-01 基本語句課件 高中 信息技術(shù) 奧林匹克 信息學(xué) 競賽 進(jìn)階 pascal 01 基本 語句 課件
鏈接地址:http://m.italysoccerbets.com/p-2945571.html