【正文】 本章要點(diǎn) ? Free Pascal與 Turbo Pascal的區(qū)別 ? Pascal的程序結(jié)構(gòu) ? 基本符號、保留字、標(biāo)識符 ? 數(shù)據(jù)類型、常量、變量及說明方法 ? 函數(shù)與表達(dá)式 ? 三種基本的程序結(jié)構(gòu) 順序結(jié)構(gòu) 分支結(jié)構(gòu) 循環(huán)結(jié)構(gòu) 本講結(jié)束 謝謝合作 。 ： faibonacci（費(fèi)波那契）數(shù)列的前幾個(gè)數(shù)分別為 0， 1， 1， 2， 3， 5， ? if (ord(dong=1)+ord(hong=4)+ord(bo=3)=1) and (ord(hong=1)+ord(dong=4)+ord(bo=2)+ord(tai=3)=1) and (ord(hong=4)+ord(dong=3)=1) and (ord(bo=1)+ord(tai=4)+ord(hong=2)+ord(dong=3)=1) ? then writeln(‘dong:’,dong,’hong:’,hong,’bo:’,bo,’tai:’,tai) ? end ? end. 上機(jī)練習(xí)題 50名學(xué)生，已知他們期中考試的數(shù)學(xué)成績，現(xiàn)需要統(tǒng)計(jì) 100分、 90分、 80分、 70分、60分與不及格各成績檔有多少人。 ? var ? dong,hong,bo,tai:integer。 ? 算法分析：這是一個(gè)邏輯判斷題，每個(gè)湖的大小不一樣，因此要把它們數(shù)字化，每個(gè)湖必取 1~4里面的一個(gè)整數(shù)，這個(gè)整數(shù)就代表它們各自的大小，用一個(gè)四重循環(huán)，由于循環(huán)的次數(shù)已經(jīng)確定，所以采用 for循環(huán)。甲說： “ 最大洞庭湖，最小洪澤湖，鄱陽湖第三 ” ；乙說： “ 最大洪澤湖，最小洞庭湖，鄱陽湖第二，太湖第三 ” ；丙說： “ 最小洪澤湖，洞庭湖第三 ” ；丁說： “ 最大鄱陽湖，最小太湖，洪澤湖第二，洞庭湖第三 ” 。 ? for k:=2*i1 downto 1 do ? write(‘’)。 ? var ? i,j,k:integer。 ? writeln ? end. ? 【 例 10】 :試編寫能打印如下輸出圖形的程序。 ? var ? a,b,c:integer。如： 153，13+53+33=1+125+27=153） ? 算法設(shè)計(jì)：采用三重循環(huán)求解，用 for循環(huán)。 ? writeln(‘the max num is:’,max) ? end. ? 三、多重循環(huán) ? 【 例 9】 :求 100~999中的水仙花數(shù)。 ? if xmax then max:=x。 ? m:=0。 ? writeln(‘input n nums:’)。 ? begin ? writeln(‘input n:’)。 ? 程序代碼： ? program ex8(input,output)。 ? 算法分析： ? 讀入 n值； ? 讀入第 1個(gè)數(shù)，賦值給變量 max； ? 依次讀入后 n1個(gè)數(shù)，與 max比較，若數(shù)值大于 max，則將此數(shù)值賦給 max。 ? until ch=’’。 ? repeat ? read(ch)。 ? i:integer。 ? program ex7(input,output)。 語句 n until 布爾表達(dá)式； 功能：執(zhí)行過程：先執(zhí)行指定的語句序列，然后判別表達(dá)式。 ? writeln(‘i=’,i) ? end. repeat語句：（ “ 直到型循環(huán) ” ）：反復(fù)執(zhí)行循環(huán)體直到條件滿足為止。 ? while ch’’ do ? begin ? if (ch=’a’) or (ch=’A’) ? then i:=i+1。 ? begin ? i:=0。 ? var ? ch:char。 ? 算法分析： ? 設(shè)計(jì)數(shù)器 i，置初值為 0； ? 出入字符； ? 當(dāng)字符不為 ‘ ’時(shí)循環(huán)：如果字符為 ‘ a’或 ‘ A’，則計(jì)數(shù)器加 1；讀入下一個(gè)字符； ? 輸出計(jì)數(shù)器的值，程序結(jié)束。 while x100 do begin write(x:5)。 var x:integer。 【 例 5】 :輸出 1~100之間的奇數(shù)。 說明： 1）為了是 while循環(huán)能正常終止，布爾表達(dá)式中的變量必須在循環(huán)體中的某語句中有所改變，即有可能是布爾表達(dá)式的值為假，使循環(huán)結(jié)束，否則將出現(xiàn)死循環(huán)。 ③ 返回步驟 1。 格式： while 布爾表達(dá)式 do 語句； 執(zhí)行過程： while語句的執(zhí)行過程為： ①判斷布爾表達(dá)式的值 ,如果其值為真 ,執(zhí)行步驟 2,否則執(zhí)行步驟 4。 [適合用于事先知道循環(huán)次數(shù) ]. 當(dāng)循環(huán)次數(shù)未知，只能根據(jù)某一條件來決定是否進(jìn)行循環(huán)時(shí)，用while 語句實(shí)現(xiàn)循環(huán)要更方便。它的基本思路是：一一枚舉各種可能的情況，并判斷哪一種可能是符合要求的解。 ? If k=i then write(I:8) ? end ? end. ? 補(bǔ)充說明： ? 以上用的方法也叫 “ 枚舉法 ” ，又稱 “ 窮舉法 ” 。 ? n:=i mod 100。 ? var ? i,m,n,k:integer。 ? (ab+cd)(ab+cd)=abcd ? 算法分析：這道題屬于搜索問題，因?yàn)槭撬奈徽麛?shù)，其范圍從 1000—— 9999，所求的數(shù)究竟在哪里，無法確定，只有在這個(gè)范圍內(nèi)從小到大一個(gè)一個(gè)進(jìn)行搜索，對每一個(gè)數(shù)，看它的高兩位數(shù)與低兩位數(shù)和的平方是否為該數(shù)。 ? sum:=sum+y ? end。 ? i:=i+1。i:=0。read(x)。 ? var ? i,x,y,sum:integer。可以用 x mod y=0，來找出所有約數(shù)。+1002 ? 【 例 3】 :鍵入一個(gè)自然數(shù)，輸出其所有約數(shù)，計(jì)算出這些約數(shù)之和并輸出。+100 s=1+1/2+1/3+ ? writeln(‘sum=’,sum) ? end. ? 補(bǔ)充說明：類似 sum迭加變量這樣的功能稱為 “ 累加器 ” ；類似 i這樣的變量稱為 “ 計(jì)數(shù)器 ” ； “ 計(jì)數(shù)器 ” 和 “ 累加器 ” 是在程序中經(jīng)常使用的基本操作語句。 ? begin ? sum:=0。 ? 程序代碼： ? program ex1(input,output)。+100之和。 4）當(dāng)初值超過終值，不執(zhí)行循環(huán)，循環(huán)次數(shù)為零。 2）遞增按 succ函數(shù)規(guī)律變化，遞減按 pred函數(shù)規(guī)律變化，整型按數(shù)值大小變化，如果為字符型量，按 ASCII碼表的順序計(jì)算。 格式： for 控制變量： =初值 to 終值 do 循環(huán)體語句； for 控制變量： =初值 downto 終值 do 循環(huán)體語句； For語句執(zhí)行過程 ①先將初值賦給左邊的變量（稱為循環(huán)控制變量）； ②判斷循環(huán)控制變量的值是否已 “ 超過 ” 終值，如已超過，則跳到步驟⑥； ③如果末超過終值，則執(zhí)行 do后面的那個(gè)語句（稱為循環(huán)體）； ④循環(huán)變量遞增（對 to）或遞減（對 downt o)１ ； ⑤返回步驟②； ⑥循環(huán)結(jié)束，執(zhí)行ｆｏｒ循環(huán)下面的一個(gè)語句。 因此，重復(fù)語句是由 循環(huán)體 及 重復(fù)終止條件 兩部分組成。它們分別為FOR循環(huán)、當(dāng)循環(huán) while、直到 repeat循環(huán)。 算法分析：可分為以下 3種情況： 每年的 1， 3， 5， 7， 8， 10， 12這七個(gè)月每月為 31天； 每年的 4， 6， 9， 11這四個(gè)月為 30天； 2月又分為兩種情況：閏年為 29天，否則為 28天。 算法分析：方程的系數(shù) a,b,c決定了方程有無根，是幾個(gè)根，是實(shí)數(shù)根還是復(fù)根。 ? ‘/’:s:=x/y ? end。 ? ‘‘:s:=xy。 ? readln(ch)。 ch:’)。 ? begin ? writeln(‘input x amp。 ? var ? x,y,s:real。常量表中的常量不能重復(fù)。 else 語句 n+1 end。 if (a+bc) and (a+cb) and (b+ca) then if (a*a+b*b=c*c) or (a*a+c*c=b*b) or (b*b+c*c=a*a) then writeln(‘a(chǎn)=’,a,‘b=’:5,b,‘c=’ :5,c,‘ is rt triangle.’) else writeln(‘a(chǎn)=’,a,‘b=’:5,b,‘c=’ :5,c,‘ is not rt triangle.’) else writeln(‘a(chǎn)=’,a,‘b=’ :5,b,‘c=’ :5,c,‘ is not triangle.’) end. 【 例 3】 :輸入三角形的三邊，判斷它是否是直角三角形。 begin write(‘a(chǎn),b,c(0):’)。 if x=0 then if x0 then y:=1 else y:=1。 end. 但是對于本題，下面的程序是否正確。y=39。x=39。 if x0 then y:=1 else if x=0 then y:=0 else y:=1。)。 begin write(39。 var x:real。 End. 2． if 語句的嵌套： 格式： (1) if 語句嵌套在 then語句中 if 條件 1 then if 條件 2 then 語句 21 else 語句 22 else 語句 12； （ 2） if 語句嵌套在 else語句中 if 條件 1 then 語句 11 else if 條件 2 then 語句 21 else 語