【正文】 (a,b,c) 。 t:=t*b。在后面的循環(huán)中常用這種方法。 [方法 2]：先合并后分開 a:=a+b。 不管什么計算機語言，賦值語句都是最基本最常用的語句，通過它給變量賦值來進行各種運算、處理。 [方法 1]：引進第三個變量 c:=a。也可能會出 現(xiàn)除數(shù)為 0 的情況。 readln(a,b,c,d)。如上述程序中 t 的初值為 1，如果沒有這句，系統(tǒng)默認的初值為 0，那么乘下來結(jié)果也是 0。 與 read(a,b,c)不同是讀完數(shù)據(jù)后另起一行，如果將它分為三個語句 readln(a)。 如： write(:10:5) 將輸出： {整個輸出項占 10 個字符位置，整數(shù)部分占 4 位，小數(shù)點 1 位，小數(shù)部分 5位，其中整數(shù)部分不足的在高位補空，小數(shù)部分不足在后面補 0} 如果指定的寬度比原輸出項應有的寬度小呢？ 對于整數(shù)或字符等類型的，將自動調(diào)整到最小所要的寬度，如 write(?ABCD?:2)仍將輸出 ABCD。 空的 wirteln 起到一個輸出空行的作用，如果它前面有 write 語句，則在其它輸出空行（可能不滿一行），保證下一個輸出另起一行。 與它等同的分開寫的形式為： write(1)。 2．格式： begin 語句 1； 語句 2； ?? 語句 N； end。 如果 a 大于 b 并且 b 大于 c，那么 s 的值為（ ab）乘以 (bc) （ 3） if (a0) or (b0) then s:=a+b。 如果 a 小于 0，那么執(zhí)行兩部分：（ 1） a 的值增加 1；（ 2） s 的值增加 1。 else writeln(ch,? is a special character.?)。 3． 編一個隨機產(chǎn)生一個 100 以內(nèi)的四則運算題，要求先輸出這個四則運算的式子，這個四則運算的式子要能確保第一 個數(shù)不小于第二個數(shù)，如果是除法的話要能確保能夠整除，然后讓用戶輸入結(jié)果，如果輸入的結(jié)果正確則輸出“ Right!”否則輸出“ Error!”。請你編寫一程序，幫小 Q制訂出一種買筆的方案。如果一開始就為布爾表達式就不成立（值為 FALSE），那么循環(huán)體一次也不執(zhí)行。 Writeln(s) End. [注意 ]： 在 while 循環(huán)體中一定要有相應的語句使布爾表達式的值可能為 false,否則就會構(gòu)成死循環(huán)。 Until I=100。 四．多重循環(huán)（循環(huán)的嵌套） 當程序中要用到多個循環(huán)時，如果這些循環(huán)是并列的關(guān)系，那么它們彼此之間的控制變量不相互影響。 {換行 } end。 if _____(2)_______ then h:=____(3)_______。 j:=2。,n)。 8. 誰是小偷 ? 問題：警察局抓了 4 名嫌疑犯： A， B， C， D，其中一人是小偷，審問中 A說：“我不是小偷。描述一個構(gòu)造類型特征的是其成分的類型和它的構(gòu)造方法。 1．數(shù)組的說明 可以先通過 type 標 識符 =array[下標范圍 ] of 值類型； 然后再在變量說明里引用。 2．數(shù)組的使用 剛才我們已從代數(shù)上使用說明了數(shù)組使用的優(yōu)點，特別是要保存的量比較多且這些量之間又有某種聯(lián)系。 {————隨機產(chǎn)生 10 個 100 以內(nèi)的數(shù)，賦給各數(shù)組元素 } (2)數(shù)組元素的輸出： 和數(shù)組元素的輸入相同，數(shù)組元素的輸出也不能由一個 write 語句直接完成。二維數(shù)組在編程中多數(shù)用于描述二維的關(guān)系：如地圖、棋盤、城市 街道、迷宮等等。則固定行號為 4。 {————最常用的方法：從鍵盤讀入數(shù)據(jù)初始化二維數(shù)組 } for i:=1 to 10 do for j:=1 to 5 do a[i,j]:=0。 var a:array [1..20,1..3] of integer。{————計算總分 } b[i]:=b[i]/3。 var a:array[1..100] of integer。 [分析與算法選擇 ]: 判定一個數(shù)是奇數(shù)或偶數(shù)比較簡單，如果不是要分批輸出可以一邊輸入一邊判定，現(xiàn)在要分批輸入所以輸入跟輸出的過程要分開，輸入的 40 個數(shù)要先存放起來，通過數(shù)組很方便。 for i:=1 to 40 do if not odd(a[i]) then write(a[i]:5)。 曾上例子可以寫出如下的字符串類型變量說明： var class1, class2: class。由于系統(tǒng)允許對一個字符串變量進行整體訪問，也可以對字符串變量中的各個字 符逐個地訪問，第二種訪問應指定某字符在字符串中的位置即下標，如 myname[1]表示字符串變量 myname 的第一個字符， myname[2]表示第二個字符，依次類推。字符串常數(shù)定義的一般形式為： const 常數(shù)標識符 =字符串常數(shù)； 其中字符串常數(shù)是用單引號括起的字符串序列。 NewLine:string[2]=1310。 2．字符串賦值語句 賦值語句可應用于字符串類型，它表示計算右部字符串表達式的值，并將結(jié)果賦予左部字符串變量。{l 的值為 9} copy（ s,w,k) 函數(shù) 復制 s 中從 w開始的 k 位 字符串 s:=39。123439。} Delete(s,w,k) 過程 在 s 中刪除從第 w 位開始的k 個字符 s := 39。 Insert(39。 39。1234567839。第一個服務員把所有的房間門都打開了，第二個服務員把所有編號是 2的倍數(shù)的房間 “相反處理 ”，第三個服務員把所有編號是 3 的倍數(shù)的房間作 “相反處理 ”， …… ，以后每個服務員都是如此。 類型定義的語法格式： type 標識符 1=類型 1； 標識符 2=類型 2； ?? 標識符 n=類型 n； : 當某些變量的取值范圍很具體時 ,可用子界類型 ,它更符合實際、便于查錯和節(jié)省內(nèi)存。 也可以直接定義 : day： 1..31。例如以下的定義是錯誤的： type daystype=(39。,39。例如以下的定義是錯誤的： type daytype1=(monday,tuesday)。若是才能賦給枚舉變量，否則就會出錯。tuesday39。 friday:write(39。 集合 1．集合的定義： type 類型名 =set of 基類型 例如： type num=set of char。,39。t39。t39。 (3)Turbo Pascal規(guī)定集合的元素個數(shù)不超過 256個 (當實際問題所需的元素個數(shù)大于 256時， 可采用布爾數(shù)組代替集合類型 )。自己寫的程序過一段時間后再看可能也有許多看不懂的地方。 形式參數(shù)表形如： 形式參數(shù)段 {；形式參數(shù)段 } 其中形式參數(shù)段列舉每個形式參數(shù)的性質(zhì)、名字和類型，可為： 形式參數(shù) {，形式參數(shù) }：類型 值參數(shù) 或者： var 形式參數(shù) {，形式參數(shù) }：類型 變量參數(shù) 第一種稱為值參數(shù)，它與調(diào)用的程序之間傳遞的是值，第二種稱為變量參數(shù)，它與調(diào)用程序間傳遞的地址。全局變量作用域是整個程序；局部變量作用域是定義該變量的子程序。 writeln(39。k:=9。 writeln(39。 當刪除本語句時。 begin x:=x+1。z=39。,a:2,39。,a:2,39。,a:2,39。應用到程序中，枚舉有許多表現(xiàn)形式，比如把所有的組合都掃描一遍，找出符合要求的組合。 var i:integer。懂了嗎？上面那個方法，確實有許多可以偷懶的地方，編程的一個大原則就是能有多懶就要多懶（當然是要在正確的前提下了。 這樣，我們就把這個問題的算法，優(yōu)化了不少，下面給出了第二種情況的程序，自己寫出其它兩種情況相關(guān)的程序。 while (j=k) and (i mod j0) do j:=j+1。這樣，經(jīng)過 i遍處理之后，前 i個記錄的位置就已經(jīng)按從小到大的順序排列好了。 for i:= 1 to n do read(a[i])。 end。 例： 輸入序列數(shù)據(jù)按非減順序輸出 . 程序 : const n=7。 for i:=2 to n do begin k:=a[i]。)。 begin write(39。output data:39。 程序 1:(子序列是插入排序 ) program xepx。)。i:=id。 for i:=1 to n do write(a[i]:6)。 place:integer。 end。)。,x1:5,39。 。,place)。 search(a,n,x1,b,place)。Enter array:39。m,x:integer。 end. 三、查找算法 查找 是 在數(shù)據(jù)結(jié)構(gòu)中查找指定值的結(jié)點 。 a[i+d]:=t。 writeln。 type arr=array[1..n] of integer。 for i:= 1 to n do write(a[i]:6)。)。 writeln。 while (ka[j]) and (j0) do begin a[j+1]:=a[j]。 i,j,k,t:integer。output data:39。 for i:=1 to n1 do begin k:=i。 const n=7。 end。 [程序清單 ]： program meiju。下面是對枚舉范圍的逐步縮?。? 比 n 的平方根還大的整數(shù)，當然不能整除 n。 如果你要再大一點，可以用 longint 類型的 } if i mod 2=0 then write (i:8)。 1 什么都不是， 2 是素數(shù)， 3是， 4 不是， 5 是??，如此把所有的自然數(shù)（當然是不可能的，只能盡量多）都找一遍，就能 找出所有的素數(shù) (如果可能的話 )。,b:2,39。,b:2,39。,b:2,39。 end。z:=x+y。 變量形參 —— 傳地址：調(diào)用時必須用變量代替行參變量，改變實在參數(shù)的值。,i)。i in main=39。,i)。 例 4：全局變量和局部 變量。而變量參數(shù)一定是變量來調(diào)用，并且過程的處理過程中對變量值的改變能帶回調(diào)用它的上級程序。 從結(jié)構(gòu)化程序設計的要求來看，我們有必要將程序模塊化，而過程與函數(shù)是模塊化好的實現(xiàn)方法。 (4)集合類型變量不能進行算術(shù)運算，了不允許用讀 /寫語句直接輸入 /輸出集合。Y39。Y39。,39。 或 var n: set of char。)。 wednesday:write(39。sunday39。 可以將枚舉類型的定義和變量的定義結(jié)合在一起。,39。,39。 ch1:39。 zimu=39。（所謂 “相反處理 ”是：原來開著的門關(guān)上，原來關(guān)上的門打開。它非常簡單，就是對字母表中的每個字母，用它之后的第 3 個字母來代換。{i 的值為 1} + 運算符 將兩個字符串連接起來 s1:=39。, S, 8)。 Delete(s,8,4)。 write(k)。 s1:=copy(s,3,5)。如： var hisname:string[15]。運算符主要是 +，用來進行字符串的連接。 splitline=??。 也可以直接用系統(tǒng)函數(shù)來求字符串的長度，如 length(myname)。 heraddress: address。 end. 二、字符串類型定義和變量說明 1．定義 type 變量標識符 =string[常數(shù) ]； 還可以使用不帶字符串最大長度（即不用方括號）的字符串定義，此時取時大長度的缺省值 255，形式為： type 變量標識符 =string。 var a:array[1..40] of integer。 begin randomize。 for i:=1 to 20 do write(b[i]:5:1)。 i,j:integer。 writeln。 對某一列進行處理。 (1).二維數(shù)組的定義： var a： array[1..10,1..5] of integer； 其中： a 是數(shù)組名，由程序員自定； array 和 of 是定義數(shù)組的保留字；（這兩點和一維數(shù)組定義的格式一樣）中括號中的兩個范圍表示二維數(shù)組共有多少行、多少列（第一個范圍表示行數(shù)，第二個范圍表示列數(shù)）；最后一個表示數(shù)組元素的類型，規(guī)定和一維數(shù)組一樣。通常也用循環(huán)結(jié)構(gòu)來完成這一功能： for i:=1 to 10 do write(a[i],39。后面我們會專門介紹排序的算法的。 var a,b:array1。指針類型是一種特殊的數(shù)據(jù)類型，它涉及到動態(tài)存儲分配?！?C 說：“小偷肯定是 D。例：153=13+33+53 1~100 內(nèi)所有的素數(shù) 6.