1、第三章 Pascal程序控制語句,回顧,了解常量和變量的概念 掌握變量的定義方法與使用方法 掌握常用的數(shù)據(jù)類型 掌握運算符號和表達式,本章目標,掌握條件語句 了解條件語句的嵌套 掌握情況語句 掌握循環(huán)語句 掌握Break與Continue語句,條件語句,語法結(jié)構(gòu)： if then else 功能 表達式為真，執(zhí)行語句塊1，否則執(zhí)行語句塊2,實例1,實例1,例:求兩個數(shù)中的最大值。,var a,b,max:integer; begin a:=10; b:=5; if ab then max:=a else max:=b; showmessage(inttostr(max); end;,實例2,例

2、:判斷數(shù)據(jù)的正負。 -1 (x0),var x,y:integer; begin x:=1; if x0 then y:=1 else if x=0 then y:=0 else y:=-1; showmessage(inttostr(y); end;,情況語句,語法結(jié)構(gòu)： case of : else case 語句適用被判斷的變量或?qū)傩允钦汀⒆址偷? 用case語句進行邏輯跳轉(zhuǎn)比編寫復(fù)雜的if語句容易閱讀，而且程序代碼運行較快！,實例,For 循環(huán)（一）,語法結(jié)構(gòu) 格式1： for 循環(huán)變量：= 值1 to 值2 do 功能,For 循環(huán)（二）,格式2： for 循環(huán)變量：= 值1 d

3、ownto 值2 do 功能,使用For循環(huán)完成示例,求1100的和,var sum,i:integer; begin sum:=0; for i:=1 to 100 do begin sum:=sum+i; end; showmessage(inttostr(sum);,var sum,i:integer; begin sum:=0; for i:=100 downto 1 do begin sum:=sum+i; end; showmessage(inttostr(sum);,當型循環(huán),語法格式 while do 功能 先計算表達式的結(jié)果，如果表達式為true，while語句將重復(fù)執(zhí)行循環(huán)

4、體。如果表達式結(jié)果為false，則退出循環(huán)，執(zhí)行while之后的語句 while后面的為通常為關(guān)系或邏輯表達式,While示例,求1100的和 var sum,i:integer; begin sum:=0; i:=1; while i=100 do begin sum:=sum+i; i:=i+1; end; showmessage(inttostr(sum);,求1100的奇數(shù)和 var sum,i:integer; begin sum:=0; i:=1; while i=100 do begin sum:=sum+i; i:=i+2; end; showmessage(inttostr(

5、sum);,直到型循環(huán),語法格式 repeat until 功能 先執(zhí)行循環(huán)體，再判斷表達式，只要until后面的表達式為true，則將退出循環(huán)體,否則繼續(xù)執(zhí)行循環(huán)體 repeat語句下面的循環(huán)體至少執(zhí)行一次,示例,求1100的和,var i:integer; total:integer; begin i:=0; total:=0; repeat i:=i+1; total:=total+i; until i=100; showmessage(inttostr(total);,break語句,功能是強行退出循環(huán)，break語句只能用在循環(huán)體內(nèi),var i:integer; input_str:

6、string; begin repeat input_str:= InputBox(提示, 請輸入整數(shù)：, 0); i:=strToInt(input_str); if (i=100) and (i=200) then begin break; /跳出循環(huán) end; until false; /設(shè)置為false表示一直循環(huán)，永不退出 showmessage(你輸入的數(shù)據(jù)為： + input_str ); end;,continue語句,continue語句也用在循環(huán)體中，其作用是強行結(jié)束本次循環(huán)，轉(zhuǎn)入循環(huán)開始處，開始執(zhí)行下一次循環(huán)操作。,var i,s: Integer; s=0; begin for i:=1 to 100 do begin if i mod 2=0 then continue; /如果為0，跳過剩余語句，轉(zhuǎn)到下一個循環(huán) s:=s+i; end; end; showmessage(inttostr(s);,循環(huán)三要素,循環(huán)控制變