pascal循環(huán)語句.ppt

1、循環(huán)語句,阜陽信息學(xué)夏令營(yíng)pascal初級(jí)班,知識(shí)回顧,20 mod 9 15 mod 4 9 div 2 1 div 8,求下列表達(dá)式的值：,20 mod 10 15 mod 10 149 div 10 45 div 2 20 mod 2 15 mod 2,知識(shí)回顧,作業(yè)1 （請(qǐng)把空行填充完整）,Program oushu; var a:integer; Begin readln(a); if then ; readln; End.,輸入一個(gè)整數(shù)，判斷是不是偶數(shù)，如果是偶數(shù)，則輸出,輸出,Y,For語句 1.遞增型FOR循環(huán)。 FOR 循環(huán)控制變量:=循環(huán)初值 TO 循環(huán)終值 DO 循環(huán)的語

2、句（或語段）例： FOR I:=5 TO 10 DO WRITELN (I); 如果要重復(fù)多個(gè)語句，一定要用BEGIN-END形式：例：FOR I:=1 TO 10 DO BEGIN WRITELN (I); WRITELN (10-I); END;,知識(shí)回顧,For語句 2.遞減型FOR循環(huán) FOR 循環(huán)控制變量:=循環(huán)初值 DOWNTO 循環(huán)終值 DO 循環(huán)語句遞減型FOR循環(huán)與遞增型FOR循環(huán)基本相同，只是循環(huán)控制變量每次遞減。,知識(shí)回顧,3.FOR循環(huán)的幾點(diǎn)注意內(nèi)容：(1)循環(huán)控制變量必須是順序類型的變量。所謂順序類型的變量，就是指整型，字符型，枚舉型，子界型，不允許是實(shí)型。(2)不允

3、許在循環(huán)體內(nèi)再對(duì)循環(huán)控制變量賦值。例如： A:=10;B:=50;FOR K:=A TO B DO BEGIN K:=K+1;這一句是錯(cuò)誤的！ WRITELN (K); END;,知識(shí)回顧,4.多重循環(huán) 循環(huán)體由PASCAL語句構(gòu)成，當(dāng)然也可以包含F(xiàn)OR語句，這就構(gòu)成了循環(huán)的嵌套，形成多重循環(huán)。例如，以下FOR循環(huán)輸出5行，每行輸出10個(gè)星號(hào)(*)FOR i:=1 to 5 DO BEGIN FOR j:=1 TO 10 DO Write(*); END;初學(xué)者應(yīng)當(dāng)特別注意，嵌套的各層循環(huán)應(yīng)當(dāng)使用不同的變量作為循環(huán)變量。,知識(shí)回顧,While語句 1.WHILE循環(huán)的執(zhí)行形式： WHILE 布

4、爾表達(dá)式 DO 語句 例如： k:=10; WHILE k0 DO BEGIN Writeln (k); k:=k-1 END; 其中 (1)WHIlE 和DO是PASCAL保留關(guān)鍵字，是WHILE循環(huán)語句的組成部分。 (2)保留關(guān)鍵字DO后面的“語法”只能是一條語句，稱為“循環(huán)體”；如果循環(huán) 體中需要包含多個(gè)語句則應(yīng)該如上例所示，采用一條復(fù)合語句。,知識(shí)回顧,Repeat-Until語句 1REPEAT-UNTIL類型的循環(huán)的執(zhí)行形式REPEAT 語句1 語句2 語句nUNTIL 布爾表達(dá)式例如：求n=1+2+3+100 n:=0;t:=i; REPEAT n:=n+t; t:=t+1; U

5、NTIL t100;其中在REPEAT和UNTIL之間的語句構(gòu)成循環(huán)。在它們之間可以有任意多個(gè)語句，這一點(diǎn)和FOR，WHILE循環(huán)不同，F(xiàn)OR，WHILE循環(huán)體在語法上只允許一條語句。,知識(shí)回顧,實(shí)例,打印出“*”組成以下圖形：,*,programtuxing(input,output);beginwrite(*); readln; end.,實(shí)例,打印出“*”組成以下圖形：,*,program tuxing(input,output);beginwrite(* ); readln; end.,實(shí)例,打印出“*”組成以下圖形：,*,program tuxing(input,output);va

6、r i:integer;begin for i:= 0 to 18 do write(* ); readln; end.,實(shí)例,打印出“*”組成以下圖形：,*,program tuxing(input,output);var i:integer;begin i=0; While (i=18) begin write(* ); i=i+1; end; readln; end.,實(shí)例,打印出10以內(nèi)的整數(shù)，中間用空格隔開：,1 2 3 4 5 6 7 8 9 10,program number(input,output);begin write(1 2 3 4 5 6 7 8 9 10 ); re

7、adln; end.,實(shí)例,打印出20以內(nèi)的整數(shù)，中間用空格隔開：,1 2 3 19 20,program number(input,output);var i:integer;begin for i:= 1 to 20 do write(i , ); readln; end.,實(shí)例,打印出20以內(nèi)所有偶數(shù)，中間用空格隔開：,2 4 18 20,program oushu(input,output);var i:integer;begin for i:= 1 to 20 do if i mod 2=0 then write(i , ); readln; end.,練習(xí),打印出100以內(nèi)所有能被

8、23整除的數(shù)，中間用空格隔開：,23 46 ,program shu(input,output);var i:integer;begin for i:= to do if i mod =0 then write(i , ); readln; end.,實(shí)例,求1+2+3+4+5的和：,program qiuhe(input,output);var sum:integerbegin sum= 1+2+3+4+5 write(sum); readln; end.,sum=?,1 2 3 4 5,實(shí)例,求1+2+3+4+5的和：,program sum(input,output);var sum:i

9、ntegerbegin sum= 1+2+3+4+5 write(sum); readln; end.,1,2,3,4,5,sum=0,sum=1,sum=3,sum=6,sum=10,sum=15,sum,實(shí)例,求1+2+3+4+5的和：,program sum(input,output);var sum,i:integerbegin write(sum); readln; end.,i=1,i=2,i=3,i=4,i=5,sum=0,sum=1,sum=3,sum=6,sum=10,sum=15,sum,sum:= 0; for i:= 1 to 5 do sum=sum+i;,練習(xí),求1

10、+2+99+100的和：,program sum(input,output);var ； begin write(sum); readln; end.,練習(xí),使用循環(huán)語句編程求1*2*3*4*5的值：,program number(input,output);var s:integerbegin write(s); readln; end.,課后作業(yè),把本次課中所有for語句的循環(huán)均改為while語句格式。 輸出100以內(nèi)，能被7和17整除的數(shù)。 使用循環(huán)求出100以內(nèi)奇數(shù)之和。,循環(huán)嵌套實(shí)例,打印出“*”組成以下圖形（20個(gè)）：,*,program tuxing(input,output);

11、var i:integer;begin for i:= 0 to 20 do write(* ); readln; end.,多重循環(huán) 循環(huán)體由PASCAL語句構(gòu)成，當(dāng)然也可以包含F(xiàn)OR語句，這就構(gòu)成了循環(huán)的嵌套，形成多重循環(huán)。FOR i:=1 to 5 DO BEGIN FOR j:=1 TO 10 DO ； END;初學(xué)者應(yīng)當(dāng)特別注意，嵌套的各層循環(huán)應(yīng)當(dāng)使用不同的變量作為循環(huán)變量。,知識(shí)回顧,循環(huán)嵌套實(shí)例,打印出“*”組成以下圖形（4行每行5個(gè)）：,* * * *,program tuxing(input,output);var i，j:integer;begin for i:= 1 to

12、 4 do bebin for j:=1 to 5 do begin write(* ); end; writeln; end; readln; end.,循環(huán)嵌套實(shí)例,打印出以下圖形（4行每行5個(gè)）：,12345 12345 12345 12345,program tuxing(input,output);var i，j:integer;begin for i:= 1 to 4 do bebin for j:=1 to 5 do begin ; end; writeln; end; readln; end.,練習(xí),打印出以下圖形（4行每行5個(gè)）：,11111 22222 33333 4444

13、4,program tuxing(input,output);var i，j:integer;begin for i:= 1 to 4 do bebin for j:=1 to 5 do begin write(i); end; writeln; end; readln; end.,program tuxing(input,output);var i，j:integer;begin for i:= 1 to 4 do bebin for j:=1 to 5 do begin write(i); end; writeln; end; readln; end.,循環(huán)嵌套實(shí)例,打印出“*”組成以下圖

14、形（5行）：,* * * * *,program tuxing(input,output);var i，j:integer;begin for i:= 1 to do bebin for j:=1 to do begin write(* ); end; writeln; end; readln; end.,循環(huán)嵌套實(shí)例,打印出“*”組成以下圖形（5行）：,1 22 333 4444 55555,program tuxing(input,output);var i，j:integer;begin for i:= 1 to do bebin for j:=1 to do begin ； end;

15、writeln; end; readln; end.,練習(xí),打印出“*”組成以下圖形（5行）：,1 12 123 1234 12345,program tuxing(input,output);var i，j:integer;begin for i:= 1 to do bebin for j:=1 to do begin ； end; writeln; end; readln; end.,循環(huán)嵌套拓展實(shí)例,打印出“*”組成以下圖形（5行）：,* * * * *,program tuxing(input,output);var i，j:integer;begin for i:= to do be

16、bin for j:= to do begin write(* ); end; writeln; end; readln; end.,循環(huán)嵌套拓展實(shí)例,打印出“*”組成以下圖形（5行）：,program tuxing(input,output);var i，j:integer;begin for i:= to do bebin for j:= to do begin ； end; writeln; end; readln; end.,12345 1234 123 12 1,循環(huán)嵌套拓展實(shí)例,打印出“*”組成以下圖形（5行）：,program tuxing(input,output);var i，j:integer;begin for i:= to do bebin for j:= to do begin ； end; writeln; end; readln; end.,12345