【正文】 )。)。 writeln。 begin p:=1。 var x1,i:integer。 write(39。 for j:=d+1 to n do begin t:=a[j]。 bool:boolean。 序列分割方法：將相隔某個(gè)增量 h的元素構(gòu)成一個(gè)子序列。a[j1]:=a[j]。 程序 : const n=7。 end。)。 writeln。a[i]:=a[k]。 begin write(39。 大部分情況下枚舉算法的實(shí)現(xiàn)主要通過循環(huán)來完成，確定好檢查范圍和檢查條 件，然后用循環(huán)根據(jù)這個(gè)范圍來檢查，當(dāng)符合檢查條件時(shí)就進(jìn)行相關(guān)處理。 begin write(2)。 你想一下如果一個(gè)數(shù)不能被 2 整除，那它還能夠被 4，被 6，被 8 等等的 2 的倍數(shù)整除嗎？當(dāng)然不能。 [分析與算法選擇 ]： 一個(gè)整數(shù) n 如果是素?cái)?shù)那它有什么特征？哦，它只能夠被 1 還 有它本身整除。首先，枚舉有超級(jí)無敵準(zhǔn)確性，只要時(shí)間足夠，正確的枚舉得出的結(jié)論是絕對(duì)正確的。 readln。 sub(c+5,b*b,a)。 sub(a,b,c)。c:=9。,x:2,39。 var a,b,c:integer。,j)。k in sub=39。,k)。 procedure sub1。 2．函數(shù)的調(diào)用 跟調(diào)用系統(tǒng)內(nèi)的標(biāo)準(zhǔn)函數(shù)一樣，通過“函數(shù)名（參數(shù)）”的形式可將它引用在表達(dá)式中?？梢赃@樣認(rèn)為，系統(tǒng)提供的語句是系統(tǒng)過程，而系統(tǒng)提供的函數(shù)是系統(tǒng)函數(shù)，下面就來看自己是如何編寫類似于語句的過程和類似于系統(tǒng)函數(shù)的函數(shù)的。 [練習(xí) 及作業(yè) ]： 1. 用篩選法求 1— 100內(nèi)的所有質(zhì)數(shù) 2． 編程讀入兩個(gè)字符串，然后輸出如下信息： (1)出現(xiàn)在某一個(gè)字符串中至少一次的字母和數(shù)字； (2)同時(shí)出現(xiàn)在兩個(gè)字符串中至少一次的字母和數(shù)字； (3)出現(xiàn)在一個(gè)字符串中而不出現(xiàn)在另一個(gè)字符串中的字母和數(shù)字； (4)不出現(xiàn)在任何字符串中的 字母和數(shù)字。] B)if (ch=20) and (ch=50) then ...。) 可用集合表達(dá)式表示為： ch in [39。如 A)條件表達(dá)式： (ch=39。A39。)。 thursday:write(39。monday39。 例如：已經(jīng)定義 daystype ord(sunday)=0,succ(sunday)=monday,pred(friday)=thursday 但是枚舉類型中的第一個(gè)元素沒有前趨，最后一個(gè)元素沒有后繼。sat39。tue39。Z39。Z39。 5． 將一個(gè)數(shù)插入到有序的數(shù)列中，插入后數(shù)列仍然有序。并根據(jù)密鑰把密文解密后輸出明文。567839。 } Pos(c, S) 函數(shù) 求字符 c 在 s中的位置 整型 S := 39。Honest Lincoln39。 write(s)。} val(s,k,code) 過程 將字符串 s 轉(zhuǎn)為數(shù)值，存在 k中； code 是錯(cuò)誤代碼 var s:string。 ： 操作 類型 作用 返回值 例子 length(s) 函數(shù) 求字符串 s 的長度 整型 s:=39。關(guān)系運(yùn)算符用于字符串操作時(shí)，其結(jié)果還是為布爾值，在比較兩個(gè)字符串時(shí)，兩者自左向右逐個(gè)比較相對(duì)應(yīng)字符的 ASCII碼值，只有當(dāng)兩個(gè)字符串長度相等且對(duì)應(yīng)字符完全相同 時(shí)才認(rèn)為這兩個(gè)字符串相等。 TrueString:string[5]=?yes?。但字符串類型和字符類型在內(nèi)存中的存儲(chǔ)形式不同。 heraddress: string。 address=string。 writeln。 for i:=2 to 100 do if a[i]max then max:=a[i]。 [分析與算法選擇 ]: 隨機(jī)產(chǎn)生數(shù)可以用其 random 函數(shù)，產(chǎn)生的 100 個(gè)數(shù)依次存放在 a[1]到 a[100]里。 end。 分析：定義一個(gè) 20 行 3 列的二維數(shù)組來存放這些成績。如： for i:=1 to 10 do s:=s+a[i,4]。如第三行第四個(gè)元素： a[3,4]。{————數(shù)組元素之間用空格分隔 } writeln。 {————從鍵盤讀入數(shù)組元素的值；最常用的方法 } for i:=1 to 10 do a[i]:=i。如： var a:array[5..5] of integer。如要象代數(shù)上那樣，可以使用數(shù)組。問到底誰是小偷？ 9. 求二個(gè)正整數(shù)的最小公倍數(shù)和最大公約數(shù) 第四講 數(shù)組和字符串 主要內(nèi)容： 掌握數(shù)組類型的定義及基本操作； 掌握字符串類型的定義及 常用函數(shù)過程的操作； 熟練掌握通過數(shù)組來實(shí)現(xiàn)常見的排序、查找算法； 熟練掌握通過字符串來解決各種實(shí)際問題如加解密，查找子串等?！? 丙：“最小洪澤湖， 洞庭湖第三。 writeln。 var i,j,k,n:integer。 begin __________(1)________。 {輸出空格數(shù) } for ch:=?A? to c do write(ch)。 I:=1。 I:=1。 While I=100 do Begin S:=s+I。 一． While 語句（當(dāng)型循環(huán)） 1．格式： while 布爾表達(dá)式 do 語句； 2．說明： 格式中 while 和 do 都是保留字，布爾表達(dá)式表示條件，它的描述跟條件語句里的條件描述是一樣的。 ，班長小 Q 決定將剩余班會(huì)費(fèi)，用于購買若干支鋼筆獎(jiǎng)勵(lì)給一引起學(xué)習(xí)好、表現(xiàn)好的同學(xué)。 設(shè)三個(gè)數(shù)為 a， b， c，一種方法可以用條件的并列，列舉出可能有的 6種情況。 {等同于 if random(maxint) mod 2=0 then writeln(?Even digit.?) else writeln(?Odd digit.?)。 例：條件語句與自然語言描述 if a0 then begin a:=a+1。 條件通過布爾表達(dá)式來描述。經(jīng)上述三次分錢之后，每個(gè)人的錢數(shù)恰好一樣多。write(3)。如要求對(duì)實(shí)型變量 a要求精確到小數(shù)點(diǎn)后兩位，對(duì)小數(shù)點(diǎn)后第三位進(jìn)行四舍五入，可以用這樣的輸出語句 write(a+:0:2)。 如 wirte(a),write(?Jiangshu?)。read(b)。 t:=t*d。 var t:longint。 {執(zhí)行此語句后 a=8,b=3} a:=ab。 {a 的值為 50} a:=a+1； {將 a 的值增加 1，常用此語句來進(jìn)行計(jì)數(shù) } s:=s+a。 {將 s 的值增加 a，常用類似的累加語句來進(jìn)行求和 } t:=t*a。 {執(zhí)行此語句后 a=5,b=3} 還有其它一些辦法，但都沒有上面的兩種方法通用。 a,b,c,d:integer。 writeln(?a*b*c*c=?,t)。read(c)。 分別輸出 a 的值和 Jiangshu （ 1）場寬 在輸出項(xiàng)后用“：數(shù)字”指明輸出的寬度。一般來說對(duì)于變量的處理，可以先按這種方法（即相應(yīng)位加 5后再去尾）通過賦值語句進(jìn)行處理，輸出時(shí)不進(jìn)行處理，只 是直接輸出就行了。 再如 writeln(1,2,3)。求原先各人的錢數(shù)分別為多少？ 第二講 分支結(jié)構(gòu)程序設(shè)計(jì) 主要內(nèi)容： 掌握復(fù)合語句、基本 IF 語句及 CASE 語句語法格式和執(zhí)行過程； 能夠根據(jù)實(shí)際情靈活運(yùn)用 IF 語句和 CASE 語句 掌握 IF 語句的嵌套原則 一．復(fù)合語句 1．為什么要用復(fù)合語句 在 程序中有時(shí)候要將多個(gè)語句結(jié)合起來作為一個(gè)整體，象一個(gè)語句一樣來使用。 例：條件語句與自然語言描述的對(duì)比 （ 1） if a1 then a:=a1 else a:=a+1。 s:=s+1。} 根據(jù)隨機(jī)產(chǎn)生的非負(fù)整數(shù)情況來確定 偶數(shù)時(shí)：輸出 ?Even digit?； 奇數(shù)時(shí)：輸出 ?Odd digit.? （ 2） 根據(jù)字符型變量 ch 的值來確定不同的執(zhí)行 case ch of ?A?..?Z?,?a?..?z?: writeln(ch,? is an identifier character.?)。另一種方法是用條件的嵌套，從而輸出結(jié)果。已知商店里有三種鋼筆，它們的單價(jià)為 6 元、 5 元和 4元。 Do 后面的語句可以是單一語句也可以是復(fù)合語句，稱為循環(huán)體。 I:=I+1。 Repeat S:=s+1。 For I:=1 to 100 do S:=S+I。 {輸出一行的左半部分 } for ch:=pred(c) downto ?A? do write(ch)。 for i:=3 to 100 do begin j:=2。 begin n:=0。 writeln(39。” ?。骸白畲筵蛾柡?，最小太湖，洪澤湖第二，洞庭湖第三。 Turbopascal的數(shù)據(jù)類型分為三種類型：簡單類型、構(gòu)造類型、指針類型。 數(shù)組其實(shí)是一組相同值類型的變量的集合，這些變量共用一個(gè)名，彼此之間通過下標(biāo)來區(qū)別。 c:array[1..20] of char。 {————數(shù)組元素 a[1]到 a[10]的值分別為 1 到 10；數(shù)據(jù)賦初值 } for i:=1 to 10 do a[i]:=0。 一維數(shù)組在編程中多用于描述線性的關(guān)系：如一組數(shù)；一組成績；一組解答等。 對(duì)某一行進(jìn)行處理。 二維數(shù)組的輸入輸出要用雙重循環(huán)來控制： for i:=1 to 10 do{————控制行數(shù) } begin for j:=1 to 5 do read(a[i,j]){————第一行讀入 5 個(gè)元素 } readln。定義一個(gè) 20 個(gè)元素的一維數(shù)組來存放平均分。 {————從鍵盤上讀入 20 個(gè)同學(xué)的三次競賽成績 } for i:=1 to 20 do b[i]:=0。選最大數(shù)時(shí)可用“擂臺(tái)比武”的思想，假設(shè)最大數(shù)放在變量 max里，如果 a[i]比 max大，則取而代之， i從 1 到 100 重復(fù)此操作。 writeln(?Max=?,max)。 for i:=1 to 40 do if odd(a[i]) then write(a[i]:5)。 定 義了三個(gè)字符串類型，最大長度為別是 10， 20， 255。 3．字符串長度 為了記錄一個(gè)字符串的實(shí)際長度即有效字符的長度，系統(tǒng)在所有字符串變量前保留一個(gè)不可見字符，稱它為長度字節(jié)，因此 turbopascal編譯器為每一字符串變量在內(nèi)存中所分配的字節(jié)數(shù)（一個(gè)字符占一個(gè)字節(jié)）是其長度加 1。另外允許長度為 0 的空串 {此時(shí)字符串的存儲(chǔ)仍然要一個(gè)字節(jié)，用來存放其長度字符 }，但字符類型必須也只能有一個(gè)字符。 FalseString:string[5]=?no?。如果兩個(gè)字符串長度不等，但短字符串與長字符串前面的字符逐個(gè)相等，則認(rèn)為短字符串小于長字符串。12345678939。k,code:integer。{s=39。 } Insert(s1, S, w) 過程 將 s1 插到 s 中第 w位 S := 39。 39。 s:=s1+s2。 [練習(xí)及作業(yè) ]： 1. 輸入 10 個(gè)整數(shù)，把這 10 個(gè)數(shù)按從小到大的順序排列。 第五講 子界、枚舉與集合類型 主要內(nèi)容： 掌握子界、枚舉、集合類型的特點(diǎn)和定義； 能根據(jù)不同的實(shí)際問題來選擇使用不同的數(shù)據(jù)類型； 熟練掌握與這三種數(shù)據(jù)類型相關(guān)的典型例題如篩選法、萬年歷等； 掌握集合的各種運(yùn)算。 var day:riqi。 枚舉類型 : 通過預(yù)定義列出所有值的標(biāo)識(shí)符來定義一個(gè)有序集合，這些值的次序和枚舉類型說明中的標(biāo)識(shí)符的次序是一致的。,39。) 枚舉元素是標(biāo)識(shí)符，不要把作為枚舉元素的標(biāo)識(shí)符視作變量名，它不能被賦值。 Turbo Pascal不允許直接讀寫枚舉值，所以枚舉值的輸出常用 case語句間接的輸出。)。thursday39。 end。,39。T39。T39。 可寫成： if ch in [20..50] then ...。 第六講 過程和函數(shù) 主要內(nèi)容： 子程序的定義、調(diào)用和參數(shù)的傳遞； 理解并掌握標(biāo)識(shí)符的作用域； 理解并掌握值參、變參的含義； 理解并掌握子程序的嵌套； 掌握遞歸和遞推； 在程序設(shè)計(jì)中，對(duì)于較簡單規(guī)模較小的問題，可以直接編寫程序。 1．過程的說明： procedure 過程 標(biāo)識(shí)符 [（形式參數(shù)表） ]； [說明部分； ] begin 語句部分； end。因?yàn)樗皇沁M(jìn)行相關(guān)的運(yùn)算或處理并返回一個(gè)值，不能跟一般的語句等同而單獨(dú)使用，因此必須出現(xiàn)在表達(dá)式中。 var i,j:integer。 end。,k)。 readln。 procedure sub(x,y:integer。y=39。 writel