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