【正文】 Insert(s1, S, w) 過程 將 s1 插到 s 中第 w位 S := 39。 Delete(s,8,4)。{s=39。 write(k)。k,code:integer。 s1:=copy(s,3,5)。12345678939。如： var hisname:string[15]。如果兩個字符串長度不等，但短字符串與長字符串前面的字符逐個相等，則認為短字符串小于長字符串。運算符主要是 +，用來進行字符串的連接。 FalseString:string[5]=?no?。 splitline=??。另外允許長度為 0 的空串 {此時字符串的存儲仍然要一個字節(jié)，用來存放其長度字符 }，但字符類型必須也只能有一個字符。 也可以直接用系統(tǒng)函數(shù)來求字符串的長度，如 length(myname)。 3．字符串長度 為了記錄一個字符串的實際長度即有效字符的長度，系統(tǒng)在所有字符串變量前保留一個不可見字符，稱它為長度字節(jié)，因此 turbopascal編譯器為每一字符串變量在內(nèi)存中所分配的字節(jié)數(shù)（一個字符占一個字節(jié)）是其長度加 1。 heraddress: address。 定 義了三個字符串類型，最大長度為別是 10， 20， 255。 end. 二、字符串類型定義和變量說明 1．定義 type 變量標識符 =string[常數(shù) ]； 還可以使用不帶字符串最大長度（即不用方括號）的字符串定義，此時取時大長度的缺省值 255，形式為： type 變量標識符 =string。 for i:=1 to 40 do if odd(a[i]) then write(a[i]:5)。 var a:array[1..40] of integer。 writeln(?Max=?,max)。 begin randomize。選最大數(shù)時可用“擂臺比武”的思想，假設(shè)最大數(shù)放在變量 max里，如果 a[i]比 max大，則取而代之， i從 1 到 100 重復此操作。 for i:=1 to 20 do write(b[i]:5:1)。 {————從鍵盤上讀入 20 個同學的三次競賽成績 } for i:=1 to 20 do b[i]:=0。 i,j:integer。定義一個 20 個元素的一維數(shù)組來存放平均分。 writeln。 二維數(shù)組的輸入輸出要用雙重循環(huán)來控制： for i:=1 to 10 do{————控制行數(shù) } begin for j:=1 to 5 do read(a[i,j]){————第一行讀入 5 個元素 } readln。 對某一列進行處理。 對某一行進行處理。 (1).二維數(shù)組的定義： var a： array[1..10,1..5] of integer； 其中： a 是數(shù)組名，由程序員自定； array 和 of 是定義數(shù)組的保留字；（這兩點和一維數(shù)組定義的格式一樣）中括號中的兩個范圍表示二維數(shù)組共有多少行、多少列（第一個范圍表示行數(shù)，第二個范圍表示列數(shù)）；最后一個表示數(shù)組元素的類型，規(guī)定和一維數(shù)組一樣。 一維數(shù)組在編程中多用于描述線性的關(guān)系：如一組數(shù)；一組成績；一組解答等。通常也用循環(huán)結(jié)構(gòu)來完成這一功能： for i:=1 to 10 do write(a[i],39。 {————數(shù)組元素 a[1]到 a[10]的值分別為 1 到 10；數(shù)據(jù)賦初值 } for i:=1 to 10 do a[i]:=0。后面我們會專門介紹排序的算法的。 c:array[1..20] of char。 var a,b:array1。 數(shù)組其實是一組相同值類型的變量的集合，這些變量共用一個名，彼此之間通過下標來區(qū)別。指針類型是一種特殊的數(shù)據(jù)類型，它涉及到動態(tài)存儲分配。 Turbopascal的數(shù)據(jù)類型分為三種類型：簡單類型、構(gòu)造類型、指針類型。” C 說：“小偷肯定是 D?！? ?。骸白畲筵蛾柡钚√?，洪澤湖第二，洞庭湖第三。例：153=13+33+53 1~100 內(nèi)所有的素數(shù) 6. 要將一張 100 元的鈔票換成等值的 10 元、 5 元、 2元、 1元的小鈔票，要求每次換成 40張小鈔票，每種至少一張，編程輸出所有可能的換法，程序應(yīng)適當考慮減少重復次數(shù)。 writeln(39。 if _____(2)_______ then begin write(________(3)________:5)。 begin n:=0。 writeln(h) end. 1． 輸出四位數(shù)以內(nèi)（包括四位數(shù)）是一個質(zhì)數(shù)的完全平方數(shù)的數(shù)，并輸出總的個數(shù)。 for i:=3 to 100 do begin j:=2。 [練習及作業(yè) ]： 一、完善程序 1．求 100 以內(nèi)所有質(zhì)數(shù)的和。 {輸出一行的左半部分 } for ch:=pred(c) downto ?A? do write(ch)。 例 編寫程序輸出如下的字母塔： A ABA ABCBA ……………. ABCD……DCBA [分析 ]： 此題有兩個關(guān)鍵：一是確定每一行前導空格符的數(shù)目；二是按一定規(guī)律輸出英文大寫字母，共 26行。 For I:=1 to 100 do S:=S+I。它 們的主要區(qū)別是 ： while 是先判斷后執(zhí)行，而 repeat 是先執(zhí)行后判斷，因此 while 語句的循環(huán)體有可能一次也不執(zhí)行，而 repeat 語句至少執(zhí)行一次； 前者是當條件滿足時執(zhí)行，而后者是當條件不滿足時執(zhí)行； 前者的循環(huán)體是復合語句時要用 begin、 end，而后者卻不一定要用。 Repeat S:=s+1。 3. 功能 反復執(zhí)行循環(huán)體直到布爾表達式的值為 true 時為止。 I:=I+1。 Var S,I:integer。 Do 后面的語句可以是單一語句也可以是復合語句，稱為循環(huán)體。 第 三講 循環(huán)結(jié)構(gòu)的程序設(shè)計 主要內(nèi)容： 掌握三種循環(huán)語句的格式和執(zhí)行過程； 掌握三種循環(huán)語句的異同，能夠根據(jù)實際情況靈活運用循環(huán)語句； 掌握累加器和累乘器和計數(shù)器； 掌握多重循環(huán)及循環(huán)的嵌套； 熟練運用循環(huán)語句解各種實際問題，如打印圖形、判斷素數(shù)等常用算法。已知商店里有三種鋼筆，它們的單價為 6 元、 5 元和 4元。而操作符（運算符）只有四種可能，因此先用隨機函數(shù)產(chǎn)生出 03 間的數(shù)，再根據(jù)產(chǎn)生的是什么數(shù)來確定是“ +、 、 *、 /”。另一種方法是用條件的嵌套，從而輸出結(jié)果。 {等同于： if ((ch=?A?) and (ch=?Z?)) or ( (ch=?a?) and (ch=?z?)) then writeln(ch,? is an identifier character.?) else if (ch=?0?) and (ch=?9?) then writeln(ch,? is a decimal digit.?) else writeln(ch,? is a special character.?)。} 根據(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.?)。 2．示例 （ 1） 兩個分支的情況，還不如直接用條件語句 case random(Maxint) mod 2 of 0: writeln(?Even digit?)。 s:=s+1。 {這里 f 為布爾型的變量 } 如果 f 成立即等于 true，那么 t 的值增加 1 2．語句的選擇 滿足條件時執(zhí)行什么、不滿足條件時執(zhí)行什么要先搞清楚。 例：條件語句與自然語言描述的對比 （ 1） if a1 then a:=a1 else a:=a+1。 } 其效果跟普通的語句一樣，也就是將多個語句合并成一個語句來使用，特別是在后面的條件語句或循環(huán)語句里執(zhí)行的是多個語句要像一個語句一樣時就必須要使用復合語句。求原先各人的錢數(shù)分別為多少？ 第二講 分支結(jié)構(gòu)程序設(shè)計 主要內(nèi)容： 掌握復合語句、基本 IF 語句及 CASE 語句語法格式和執(zhí)行過程； 能夠根據(jù)實際情靈活運用 IF 語句和 CASE 語句 掌握 IF 語句的嵌套原則 一．復合語句 1．為什么要用復合語句 在 程序中有時候要將多個語句結(jié)合起來作為一個整體，象一個語句一樣來使用。writeln(3)； 練習及作業(yè)： (1) 輸入三角形的三邊，輸出三角形的面積（假設(shè)這三邊一定能構(gòu)成三角形）。 再如 writeln(1,2,3)。 五、一個語句多個輸出項 一個 write 或 writeln 中可以有多個輸出項，各項之間用逗號間隔。一般來說對于變量的處理，可以先按這種方法（即相應(yīng)位加 5后再去尾）通過賦值語句進行處理，輸出時不進行處理，只 是直接輸出就行了。 [思考 ]： 如何對小數(shù)點后指定位進行四舍五入？ [解答 ]： 一種方法是直接指定輸出小數(shù)點后指定的位數(shù)，如對于變量 a 要保留到小數(shù)點后第三位并考慮四舍五入，可以直接寫為 write(a:0:3)。 分別輸出 a 的值和 Jiangshu （ 1）場寬 在輸出項后用“：數(shù)字”指明輸出的寬度。 readln(c)執(zhí)行 時可能讀入的數(shù)據(jù)跟原來不一樣，自己上機去試試吧！ readln。read(c)。 Readln 跟 read 不同的地方就是它執(zhí)行完后將到下一行。 writeln(?a*b*c*c=?,t)。 t:=t*a。 a,b,c,d:integer。如果變量的個數(shù)不確定，或者說變量的個數(shù)很多，此時用一個表達式就不方便了，可行的方法是來一個就算一個，直到全部的都算好結(jié)束。 {執(zhí)行此語句后 a=5,b=3} 還有其它一些辦法，但都沒有上面的兩種方法通用。 b:=c。 {將 s 的值增加 a，常用類似的累加語句來進行求和 } t:=t*a。程序設(shè)計提高班培訓講義 胡苗坤 （ 2021 寒假） 第一講 順序結(jié)構(gòu)程序設(shè)計 主要內(nèi)容： 熟練掌握賦值語句、輸入輸出語句的用法 掌握順序結(jié)構(gòu)程序設(shè)計常用方法 基本運算符的使用 常用函數(shù)和過程 一、賦值語句（： =） 格式：變量名： =表達式 功能：將表達式的 值計算出來賦給相應(yīng)的變量。 {a 的值為 50} a:=a+1； {將 a 的值增加 1，常用此語句來進行計數(shù) } s:=s+a。 a:=b。 {執(zhí)行此語句后 a=8,b=3} a:=ab。 例題 2：計算四個變量的乘積 [分析與算法選擇 ]： 一般的計算，可以直接用一個表達式將運算結(jié)果給一個變量就行了。 var t:longint。 t:=1。 t:=t*d。 二、 read/readln 讀取數(shù)據(jù) 格式： read(變量 ) 或 read(變量 1，變量 2，?? ) readln(變量 ) 或 readln(變量 1，變量 2，?? ) 功能：在運行程序時讀入 相應(yīng)數(shù)據(jù)給指定變量，直到讀入的數(shù)據(jù)滿足為止，這里所說的滿足有兩個方面的含義，一是類型的一致，二是數(shù)據(jù)的滿足。read(b)。 readln(b)。 如 wirte(a),write(?Jiangshu?)。 對于實數(shù)，小數(shù)部分會取自定的位數(shù)，將尾部去除（四舍五入），并自動適應(yīng)到最少的寬度。如要求對實型變量 a要求精確到小數(shù)點后兩位，對小數(shù)點后第三位進行四舍五入，可以用這樣的輸出語句 write(a+:0:2)。在程序中經(jīng)常用一個空的 writeln 語句起換行的作用。write(3)。write(2)。經(jīng)上述三次分錢之后，每個人的錢數(shù)恰好一樣多。 {說明： end 前的最后一個分號可以不寫，也可以寫，相當于其后是一個空語句。 條件通過布爾表達式來描述。 如果 a0 或者 b0，那么 s 的值等于 a+b （ 4） if f then t:=t+1。 例：條件語句與自然語言描述 if a0 then begin a:=a+1。 三、 多分支語句 case {有時也叫多路分支 } 1．格式： case 表達式 of 值 1： 語句 1； 值 2： 語句 2； ?? [else 語句 ] end。 {等同于 if random(maxint) mod 2=0 then writeln(?Even digit.?) else writeln(?Odd digit.?)。 end。 設(shè)三個數(shù)為 a，