【正文】 是比較好想的方法，但實際上對于求 n!，我們可以根據求出的 (n1)!乘上 n即可得到，而無需重新從 1再累乘到 n。 //累加 n! end。這里 I的值可以是 0到 33， J的值可以 0到 50。例如 153，13+53+33=1+125+27=153，則 153是水仙花數。 var m,a,b,c : integer。 【 分析 】 我們可對 100－ 200之間的每一整數進行判斷，判斷它是否為素數，是則輸出。 //在枚舉的范圍內并且沒有出現約數則繼續(xù)枚舉 end。 //控制每行空格數目 ,這個循環(huán)可以寫成： write(39。 end. 此程序的設計是由兩個并列循環(huán)加一個嵌套循環(huán)構成的。這里只對有限范圍內的數用計算機加以驗證，不算嚴格的證明。 if n mod 2=0 then //輸入的是偶數 begin p : =1。 //直到所枚舉的 p、 q是素數為止 writeln(p,39。 輸入一列圖形（字母金字塔） a a b a b c . . a b c …… y z 把一張一元鈔票換成一分，二分和五分的硬幣，每種至少一枚。所謂的角谷猜想是：“對于任意大于 1的自然數 n，若 n為奇數，則將 n變?yōu)?3*n+1，否則將 n變?yōu)?n的一半。輸出為： 4=2+2 6=3+3 …. 100=3+97 。 有一堆 100多個的零件，若三個三個數，剩二個；若五個五個數，剩三個；若七個七個數，剩五個。 //輸入不是偶數的情況 end. 【 上機練習 】 求 s=11+22+33+..+NN 求 s=1+1/2!+1/3!+…+1/10! 輸入一個整數，若是素數，輸出“ YES”，否則輸出“ NO” 任給一個自然數 n，求出這個自然數不同因數的個數。 //查看當前的 q是不是素數 for j : =2 to trunc (sqrt(q)) do if q mod j=0 then flagq : =false。 flagp,flagq : boolean。 【 分析 】 哥德巴赫猜想是一個古老而著名的數學難題，它的理論證明很麻煩，迄今未得出最后證明。 //控制每行中的＃個數 writeln。 39。 begin for i:=100 to 200 do begin x:=2。 end。 end. 運行結果： 153 370 371 407 同時也可以采用一個 for循環(huán)來求解，表面上看好像優(yōu)于三重循環(huán)，實際上卻比上面的程序效率低，請同學們自己分析。 end. 例 求 100－ 999中的水仙花數。問母雞、公雞、小雞各買多少只？ 【 分析 】 設母雞 I只 ,公雞 J只 ,則小雞為 90IJ只 ,則 15*I+ 10* J+(90IJ)*5=500,顯然一個方程求兩個未知數是不能直接求解。 for n:=1 to 10 do begin t:=t*n。 writeln(‘s=’,s:0:0)。而求 T=N!,又可以用一個 for循環(huán)來實現 :因此 ,整個程序為 : program ex4_17。 找出被 5除時余數為 1的最小的十個數。 end. 運行結果： 以上我們已介紹了三種循環(huán)語句。 f : =1。 例 利用格里高公式求 π。 if x mod 4 1 then yes:=false。 Program ex4_14。 n: =r。 while循環(huán)和 repeat循環(huán)是可以相互轉化的。 repeatuntil語句的含義是：“重復執(zhí)行循環(huán)，直到指定的條件為真時為止”。 end. 運行程序會發(fā)現沒有結果，為什么？因為布爾表達式 abs(t)=1e6，即 1/n=1e6，而程序的說明部分 n是整型數，它的范圍是 32768～ 32767，條件永遠成立，所以形成死循環(huán)，從而沒有運行結果。 f : =1。 π/4=11/3+1/51/7+… ，直到最后一項的值小于106為止。 while r0 do begin a:=b。 Var m,n,a,b,r:integer。 writlen(39。當 s的值超過 10時，最后一項的項數即為要求的 n。 ④ 結束循環(huán) ,執(zhí)行 while的下一個語句。 求 10個數中的最大值和最小值。 var i,n : integer。 end. 例 把整數 3025從中剪開分為 30和 25兩個數，此時再將這兩數之和平方， (30+25)2=3025計算結果又等于原數。 Program ex4_6。 lastx : =2。求 n!的遞推公式為： a1=1 (n=1) an=n*an1 (n1) a1=1是“初始條件”或“邊界條件”。 s := 1。z39。 程序如下： Program ex4_3。 【 分析 】 設 i為循環(huán)控制變量，累加和放在 s中，利用循環(huán)變量 i的值從 1變化到 100的規(guī)律，不需要另外引進從 1變化到 100的其它變量，程序的流程圖如 42所示。 end?？梢允钦?、字符型、枚舉型等，但不能為實型。重復語句是由循環(huán)體及重復終止條件兩部分組成。通常將一組重復執(zhí)行的語句稱為循環(huán)體，而控制重復執(zhí)行或終止執(zhí)行由重復終止條件決定。 說明 ① 循環(huán)變量必須是順序類型。 //禁止類似的修改， Free Pascal中會提示語法錯誤 writeln(i)。 end. 例 編程計算 1到 100的累加和： s=1+2+3+…+100 。 例 將順序打印出 26個小寫英文字母 : abc…zz…cba 。 for k : =39。 //s存放階乘的結果，類型為長整 型，防止結果太大 begin readln(n)。也就是說，從 1！可以推出 2！，從 2！可以推出 3！，從 3！可以推出 4！，以此類推。 begin prevx : =1。 【 分析 】 ①