1、Pascal基本教程循環程序for 語句 for 語句用來描述已知重復次數的循環結構。for 語句有兩種形式： (1) for 控制變量：初值to終值do語句； (2) for 控制變量：初值downto終值do語句；第一種形式的for 語句是遞增循環。首先將初值賦給控制變量，接著判斷控制變量的值是否小于或等于終值，若是，則執行循環體，在執行了循環體之后，自動將控制變量的值該為它的后繼值，并重新判斷是否小于或等于終值。當控制變量的值大于終值時，退出for循環，執行for語句之后的語句。第一種形式的for 語句是遞減循環。首先將初值賦給控制變量，接著判斷控制變量的值是否大于或等于終值，若是，則執

2、行循環體，在執行了循環體之后，自動將控制變量的值該為它的前趨值，并重新判斷是否大于或等于終值。當控制變量的值小于終值時，退出for循環，執行for語句之后的語句。for 語句中的初值、終值、控制變量的數據都必須是順序類型。當初值和終值確定后，重復的次數就確定不變了，并且控制變量在重復語句內不能施加任何賦值操作。例1：計算1+2+3+99+100program jia; var i,sum:integer;begin sum:=0; for i:=1 to 100 do sum:=sum+i; writeln(sum); readln;end.練習：試打印出120的自然數。 解： 用a代表120

3、各數，同時也用a兼作計數，以控制循環次數； 讓a從1開始； 輸出a； a自動計數（加1），如果未超越所規定的循環范圍則重復步驟，否則結束循環。練習：試打印出120的自然數。Program Exam12；Var a:integer ；Begin for a:=1 to 20 do Writeln (a)； ReadlnEnd.例2：打印出30至60的偶數。 方法一： 設a表示30至60的所有的數，可用for循環列出；用式子a mod 2=0篩選出其中的偶數并輸出。例2：打印出30至60的偶數。 Program ex2;Var a:integer;Begin For a := 30 to 60 d

4、oIf (a mod 2=0) then writeln(a); Readln;End.例2：打印出30至60的偶數。方法二：我們知道，在式子a=2*n中，若n取自然數1、2、3、，時，則a依次得到偶數2、4、6、。因此要想得到30至60的偶數，就可以讓上面式子中的n取15至30的自然數就可以了。所以本題還可以按以下步驟處理：設n表示15至30的所有自然數，可用for循環列出；用式子a := 2*n求出其中的偶數；將結果輸出至屏幕。例2：打印出30至60的偶數。Program ex32;Begin For n := 15 to 30 do Begin a := 2*n; Writeln(a);

5、 End;Readln;End.例3：一個兩位數x，將它的個位數字與十位數字對調后得到一個新數y，此時y恰好比x大36，請編程求出所有這樣的兩位數。 解： 用for循環列舉出所有的兩位數，x為循環變量； 用公式a:= x div 10分離出x的十位數字； 用公式b:= x mod 10分離出x的個位數字； 用公式y:= b*10+a合成新數y； 用式子y-x=36篩選出符合條件的數x并輸出。例3：一個兩位數x，將它的個位數字與十位數字對調后得到一個新數y，此時y恰好比x大36，請編程求出所有這樣的兩位數。 Program lt3;var x,a,b,y:integer;Begin For x

6、:= 10 to 99 do Begin a := x div 10; b := x mod 10; y := b*10+a; if y-x=36 then writeln(x); End; Readln;End.練習2：把整數3025從中剪開分為30和25兩個數，此時再將這兩數之和平方，(30+25)2=3025計算結果又等于原數。求所有符合這樣條件的四位數。 解:設符合條件的四位數為N，它應當是一個完全平方數，用(a*a)表示。 為了確保N=(a*a)在四位數（10009999）范圍內，可確定a在3299循環； 計算N=a*a；將四位數N拆分為兩個數n1和n2； 若滿足條件(n1+n2)*

7、(n1+n2)N 就輸出 N 。練習2：把整數3025從中剪開分為30和25兩個數，此時再將這兩數之和平方，(30+25)2=3025計算結果又等于原數。求所有符合這樣條件的四位數。 Program Exam35;Var N,a,x,n1,n2:Integer;Begin for a:=32 to 99 do begin N:=a*a; n1:= N div 100; 拆取四位數的前兩位數 n2:= N-n1*100; 拆取四位數的后兩位數 X:=n1+n2; if x*x=N then writeln (N); end; ReadlnEnd.例4：打印出九九乘法表: 解:設a為被乘數，范圍為

8、19；b為乘數，范圍為1a；乘式為a*b=(a,b的乘積)，則 a=1: b=1a 1*1=1 a=2: b=1a 2*1=2 2*2=4 a=3: b=1a 3*1=3 3*2=6 3*3=9 a=4: b=1a 4*1=4 4*2=8 4*3=13 4*4=16 ： ： a=9 b=1a 9*1=9 9*2=18 9*9=81從上面分解的橫行中看到共有9行，這里的“行”數變化與a的變化從19相同，可用a控制“行”的循環；每“行”里面相乘的次數與b的范圍相關，由b控制每“行”里面的“內部”循環；內循環被包含在最里層，執行完每“行”的內部循環，就到下一“行”去執行新“行”里面的循環，每“行”都

9、擁有形式相同的（ b=1a ）內循環。即每到一“行”都要執行該“行”的內循環。這里所指的“行”可以理解成抽象的行，不一定是實際上具體對應的行，可以是一個處理“塊”。例4：打印出九九乘法表: Program Exam37;Var a，b: Integer;Begin for a:=1 to 9 do 外循環 begin for b:=1 to a do 內循環 write(a,*，b,=,a*b:2, :3); writeln end; ReadlnEnd.練習3：數學上把除了1和它本身，沒有別的數能夠整除它的自然數叫做素數(或質數)。 解：根據定義，對于給定的自然數N，只需判斷除1和它本身外，

10、還有沒有第三個自然數即可。 令K從1循環至N； 根據N mod K是否為0可統計K的約數的個數； 若N的約數的個數超過2個，則判定N不是素數。練習3：數學上把除了1和它本身，沒有別的數能夠整除它的自然數叫做素數(或質數)。 Program Exam39；Var n，m，k，t: integer；Begin write(N=); ReadLn(N);t:=0； for k:=1 to N do 外循環 if N mod k=0 then t := t+1; 如果N是奇數 if t2 then writeln(No) else writeln(Yes); Readln;End.程序中的變量yse為

11、布爾(或邏輯)類型(Boolean)。布爾值只有兩個： True(真) False(假) 布爾值與條件判斷結果為真(條件成立)或為假(條件不成立)的作用相同，常用于條件語句和循環語句中。上面程序中用 if yes and (t mod 7=0) then writeln；實現每行打印七個素數換行，程序中布爾變量yes為真，在邏輯上表示是素數；關系式（t mod 7=0) 的值為真時，表示該行輸出素數巳是個；用and將這兩個“條件”連起來是作一種布爾(邏輯)運算。Pascal 共有四種邏輯運算符： and (與) 兩條件都為True時，其結果值為True；否則為False； or (或) 兩條件

12、中只要有一個為True ；其結果值為True；否則為False； xor (異或) 兩條件的邏輯值不相同時，其結果值為True；否則為False； not (非) 條件為True時，其結果值為False；否則為True；(取反)習題1.打印出1至20的平方數表。2.打印出100至200之間的奇數。3. 雞兔同籠(用for循環程序完成)4.一輛快車和一輛慢車開往同一地點，快車票價為18元，慢車票價為13. 5元，共售出400張，共計5940元，求快車票和慢車票各多少張?.5.求出能被5整除的所有四位數的和。6.在下面式子中的二個內填入一個合適的同樣的數字，使等式成立。3*6528=3*82567

13、.有一個三位數，它的各位數字之和的11倍恰好等于它自身，請編程求出這個三位數。8.在自然數中，如果一個三位數等于自身各位數字之立方和，則這個三位數就稱為是水仙花數。如:153=13+53+33，所以153是一個水仙花數。求所有的水仙花數。9.編程序打印出下列圖案：平行四邊形 等腰三角形 菱形* * * * * * * * * * * * * *10.編程打印出如下圖案： 1 222 33333 4444444 55555555511.有三種明信片:第一種每套一張，售價2元；第二種每套一張，售價4元； 第三種每套9張，售價2元。現用100元錢要買100張明信片，要求每種明信片至少要買一套，問三種明信片應各買幾套？請輸出全部購買方案。12.某人想把一元錢換成伍分