奧賽信息學競賽班進階篇課件pascal-01-基本語句(共21張)

Pascal

語言的基本語句賦值語句讀語句寫語句條件判斷語句循環(huán)語句第一頁第二頁，共21頁。常量

常量：程序執(zhí)行過程中其值保持不變的數(shù)據(jù)constpi=3.1415926；

f=false；{f為邏輯值false(假)}st=’abcd’；{st為字符串’abcd’}SS:array[1..4,0..1]ofinteger=((0,1),(1,0),(0,-1),(-1,0));

第二頁第三頁，共21頁。變量

變量：程序執(zhí)行過程中其值可以改變的數(shù)據(jù)vari,j,k,l:integer；

{integer整數(shù)類型

}a,b:real；{real實數(shù)類型

}ch:char；

{char字符類型

}p:boolean;{Boolean布爾類型

}

i15ch‘A’第三頁第四頁，共21頁。算符

運算符

+{加}、–{減}、*{乘}、/{除}、div{整除}、mod{取余數(shù)}

關系運算符＝、<>{不等于}、<、<＝、>、>＝

邏輯運算符

not{邏輯非}、and{邏輯與}、or{邏輯或}、xor{邏輯異或}第四頁第五頁，共21頁。程序結構programfirst；

constpi=3.14159；vars,r:real;beginwrite('r=');readln(r)；s:=pi*sqr(r)；writeln('s=',s);end.

第五頁第六頁，共21頁。賦值語句賦值語句【例】(1)a:=200；

(2)b:=a+30*2；

(3)a:=a–50;200a200+30*2200aba200-50第六頁第七頁，共21頁。賦值語句常見錯誤a:=35+6y;a:=35+6y;a:=35+6*y;第七頁第八頁，共21頁。讀語句讀語句【例】

read（a,b,c）；readln（i,j,k）；

readln（x,y）；第八頁第九頁，共21頁。讀語句當輸入數(shù)據(jù)：

1234567891011讀入結果為：12345↓↓↓↓↓abcij678↓k91011↓↓xyread（a,b,c）；readln（i,j,k）；readln（x,y）；第九頁第十頁，共21頁。寫語句寫語句【例】x:=20；y:=30；

write（x，‘+’，y，‘=’）；write（x+y）；執(zhí)行上述語句后，在顯示屏輸出：

20+30=50第十頁第十一頁，共21頁。寫語句寫語句執(zhí)行上述語句后，在顯示屏輸出：

20+30=50【例】x:=20；y:=30；

writeln（x，‘+’，y，‘=’）；writeln（x+y）；第十一頁第十二頁，共21頁。寫語句beginc:=’a’；

r:=3.5；

writeln（c:6）；

writeln（r）；

writeln（r:9）；writeln（r:1）；writeln（r:9:3）；

writeln（r:2:3）；end.第十二頁第十三頁，共21頁。If語句

條件判斷語句(1)If語句A條件B是否

readln（x）；

ifx<0thenwriteln（‘x<0’）

elsewriteln（’x>=0’）；第十三頁第十四頁，共21頁。If語句

readln（x）；

ifx<0thenbeginwriteln（‘x<0’）

b:=b+1;endelsewriteln(‘aaaaa’);第十四頁第十五頁，共21頁。If語句Ifa>0thenbeginifc=‘@’thenwrite(‘aaa’);endelseifc=‘$’thenwrite(‘bbb’)elsewrite(‘ccc’);第十五頁第十六頁，共21頁。If語句(1)If語句

readln（x）；

ifx<0thenwriteln（‘x<0’）

elseifx>0thenwriteln（‘x>0’）

elsewrite（‘x=0’）；第十六頁第十七頁，共21頁。If語句

條件判斷語句(1)If語句如果0<a<b就……if0<a<bthen….if(0<a)and(a<b)then….第十七頁第十八頁，共21頁。Case語句(2)case語句下一條語句語句n-1表達式＝情況標號語句1語句2語句n標號1標號2標號n-1elsetrue……第十八頁第十九頁，共21頁。Case語句varc:char;Beginread(c);casecof‘@’:writeln(‘mail’