【正文】 第二個服務員把所有編號是2的倍數(shù)的房間“相反處理”，第三個服務員把所有編號是3的倍數(shù)的房間作“相反處理”，……，以后每個服務員都是如此。并根據(jù)密鑰把密文解密后輸出明文。例如：明文：meet me after the toga party密文：phhw ph diwhu whk wrjd sduwb注意到字母表是循環(huán)的，即認為緊隨Z后的字母是A。}　 例43 Caesar(凱撒密碼)已知最早的代換密碼是由Julius Caesar發(fā)明的Caesar密碼。{39。567839。123439。{i的值為1}+運算符 將兩個字符串連接起來 39。 39。Honest Abe Lincoln39。, S, 8)。Insert(39。S := 39。Honest Lincoln39。Writeln(s)。Honest Abe Lincoln39。}Delete(s,w,k)過程 在s中刪除從第w位開始的k個字符{s=39。str(i,s)。{k=1234}str(i,s)過程 將數(shù)值i轉(zhuǎn)為字符串sval(s,k,code)。begins:=39。var s:string。3456739。s1:=copy(s,3,5)。{l的值為9}copy（s,w,k)函數(shù) 復制s中從w開始的k位字符串s:=39。12345678939。 ………. For i:=1 to 20 do s1[i]:=chr(64+i)。如：var hisname:string[15]。2．字符串賦值語句賦值語句可應用于字符串類型，它表示計算右部字符串表達式的值，并將結(jié)果賦予左部字符串變量。如果兩個字符串長度不等，但短字符串與長字符串前面的字符逐個相等，則認為短字符串小于長字符串。可使用關(guān)系運算符=,=,=,比較任意兩個字符串的大小，這些運算符的優(yōu)先級別比連接符“+”號低，要注意這點，該加括號的地方要加括號。運算符主要是+，用來進行字符串的連接。NewLine:string[2]=1310。FalseString:string[5]=’no’。字符串類型常數(shù)定義要規(guī)定字符串類型及所取的初始值，形式為：const 類型標識符：字符串類型=字符串常數(shù)；如：constPassword:string[7]=’private’。splitline=’’。字符串常數(shù)定義的一般形式為：const 常數(shù)標識符=字符串常數(shù)；其中字符串常數(shù)是用單引號括起的字符串序列。另外允許長度為0的空串{此時字符串的存儲仍然要一個字節(jié)，用來存放其長度字符}，但字符類型必須也只能有一個字符。如‘A’可看作是字符，也可視為字符串。也可以直接用系統(tǒng)函數(shù)來求字符串的長度，如length(myname)。由于系統(tǒng)允許對一個字符串變量進行整體訪問，也可以對字符串變量中的各個字符逐個地訪問，第二種訪問應指定某字符在字符串中的位置即下標，如myname[1]表示字符串變量myname的第一個字符，myname[2]表示第二個字符，依次類推。3．字符串長度為了記錄一個字符串的實際長度即有效字符的長度，系統(tǒng)在所有字符串變量前保留一個不可見字符，稱它為長度字節(jié)，因此turbopascal編譯器為每一字符串變量在內(nèi)存中所分配的字節(jié)數(shù)（一個字符占一個字節(jié)）是其長度加1。 myname, yourname, hisname: string[20]。 heraddress: address。曾上例子可以寫出如下的字符串類型變量說明：var class1, class2: class。定義了三個字符串類型，最大長度為別是10，20，255。 name=string[20]。end.二、字符串類型定義和變量說明1．定義type 變量標識符=string[常數(shù)]；還可以使用不帶字符串最大長度（即不用方括號）的字符串定義，此時取時大長度的缺省值255，形式為：type 變量標識符=string。 for i:=1 to 40 do if not odd(a[i]) then write(a[i]:5)。 for i:=1 to 40 do if odd(a[i]) then write(a[i]:5)。begin for i:=1 to 40 do read(a[i])。var a:array[1..40] of integer。[分析與算法選擇]: 判定一個數(shù)是奇數(shù)或偶數(shù)比較簡單，如果不是要分批輸出可以一邊輸入一邊判定，現(xiàn)在要分批輸入所以輸入跟輸出的過程要分開，輸入的40個數(shù)要先存放起來，通過數(shù)組很方便。 writeln(‘Max=’,max)。 max:=a[1]。 begin randomize。 var a:array[1..100] of integer。選最大數(shù)時可用“擂臺比武”的思想，假設(shè)最大數(shù)放在變量max里，如果a[i]比max大，則取而代之，i從1到100重復此操作。end.例4_1：讓計算機隨機產(chǎn)生100個0到1000之間的整數(shù)，輸出其中最大的數(shù)。 for i:=1 to 20 do write(b[i]:5:1)。 b[i]:=b[i]/3。{————計算總分} for i:=1 to 20 do b[i]:=0。{————從鍵盤上讀入20個同學的三次競賽成績} readln。 i,j:integer。a:array [1..20,1..3] of integer。var定義一個20個元素的一維數(shù)組來存放平均分。{————最常用的輸出方法：按矩陣形式輸出二維數(shù)組的值} 例：競賽小組共有20位同學，這學期每位同學共參與了三項比賽，請統(tǒng)計每位同學的平均分。 writeln。 for j:=1 to 5 do a[i,j]:=0。{————最常用的方法：從鍵盤讀入數(shù)據(jù)初始化二維數(shù)組}for i:=1 to 10 do readln。for j:=1 to 5 do read(a[i,j]){————第一行讀入5個元素}二維數(shù)組的輸入輸出要用雙重循環(huán)來控制：for i:=1 to 10 do{————控制行數(shù)}begin則固定列號為4。對某一列進行處理。則固定行號為4。 對某一行進行處理。 數(shù)組元素的指稱：數(shù)組名[行號，列號]。(2).使用二維數(shù)組： 其中：a是數(shù)組名，由程序員自定；array和of是定義數(shù)組的保留字；（這兩點和一維數(shù)組定義的格式一樣）中括號中的兩個范圍表示二維數(shù)組共有多少行、多少列（第一個范圍表示行數(shù)，第二個范圍表示列數(shù)）；最后一個表示數(shù)組元素的類型，規(guī)定和一維數(shù)組一樣。a：array[1..10,1..5] of integer； (1).二維數(shù)組的定義：var二維數(shù)組在編程中多數(shù)用于描述二維的關(guān)系：如地圖、棋盤、城市街道、迷宮等等。 一維數(shù)組在編程中多用于描述線性的關(guān)系：如一組數(shù)；一組成績；一組解答等。)。通常也用循環(huán)結(jié)構(gòu)來完成這一功能：for i:=1 to 10 do write(a[i],39。和數(shù)組元素的輸入相同，數(shù)組元素的輸出也不能由一個write語句直接完成。{————隨機產(chǎn)生10個100以內(nèi)的數(shù)，賦給各數(shù)組元素}(2)數(shù)組元素的輸出：{————數(shù)組元素a[1]到a[10]的值分別為1到10；數(shù)據(jù)賦初值}for i:=1 to 10 do a[i]:=0。下面是幾個常用輸入數(shù)組元素的例子：for i:=1 to 10 do read(a[i])。后面我們會專門介紹排序的算法的。2．數(shù)組的使用剛才我們已從代數(shù)上使用說明了數(shù)組使用的優(yōu)點，特別是要保存的量比較多且這些量之間又有某種聯(lián)系。c:array[1..20] of char。 描述下標范圍一般通過離散（有序）類型，如從一個整數(shù)到另一個整數(shù)，或者從一個字符到另一個字符等。var a,b:array1。1．數(shù)組的說明 可以先通過 type 標識符=array[下標范圍] of 值類型；然后再在變量說明里引用。數(shù)組其實是一組相同值類型的變量的集合，這些變量共用一個名，彼此之間通過下標來區(qū)別。從前面的變量名里我們已經(jīng)知道，a1,a2..ai彼此之間是相互獨立的，并沒有必然的聯(lián)系。指針類型是一種特殊的數(shù)據(jù)類型，它涉及到動態(tài)存儲分配。描述一個構(gòu)造類型特征的是其成分的類型和它的構(gòu)造方法。Turbopascal的數(shù)據(jù)類型分為三種類型：簡單類型、構(gòu)造類型、指針類型?！?，現(xiàn)已知四人中三人說的是真話，一人說的是假話?！盋說：“小偷肯定是D。8. 誰是小偷? 問題：警察局抓了4名嫌疑犯：A，B，C，D，其中一人是小偷，審問中A說：“我不是小偷?！?丁：“最大鄱陽湖，最小太湖，洪澤湖第二，洞庭湖第三?！?乙：“最大洪澤湖，最小洞庭湖，鄱陽湖第二，太湖第三。7. 四個學生上地理課，回答我國四大淡水湖大小時這樣說：end.二、編寫程序題1. 輸出下圖所示的圖形** * ** * * * ** * * * * * ** * * * * * * * *2．編寫輸出“右三角的九九乘法表”的程序： 1 2 3 4 5 6 7 8 9 4 6 8 10 12 14 16 18 9 12 15 18 21 24 27 16 20 24 28 32 36 25 30 35 40 45 36 42 48 54 49 56 63 64 72 813．找出100以內(nèi)所有被5除余數(shù)為1的整數(shù)4．求出100~999內(nèi)所有的水仙花數(shù)，所謂水仙花數(shù)是該數(shù)等于它各位上的數(shù)的立方和。Count=39。 writeln。 ______(4)_______。 while (i mod j0) and (ji) do j:=j+1。 for i:=2 to 99 do begin k:=____(1)_____。var i,j,k,n:integer。[變量說明]：n存放符合條件的數(shù)的個數(shù)；I、j是循環(huán)檢測變量；K存放完全平方數(shù)。 end。 while (i mod j0) and (ji) do j:=j+1。begin __________(1)________。[變量說明]：h存放所有質(zhì)數(shù)的和；I、j為循環(huán)檢測變量[程序清單]：program ex7_2_1。end.[思考與提高]：上面整個程序是個兩重循環(huán)，而外循環(huán)的循環(huán)體是兩個并列的循環(huán)，因此雖然程序中有三個for語句，但只是兩重循環(huán)。 {輸出一行的右半部分} writeln。 {輸出空格數(shù)} for ch:=’A’ to c do write(ch)。應能保證最后一行前導空格數(shù)目至少為0，設(shè)最后一行的前面空格數(shù)為10個，那么倒數(shù)第二行前面的空格數(shù)為11，倒數(shù)第三行的數(shù)目為12……，如果控制輸出行的字符變量為c，則空格數(shù)為：ord(‘Z’)ord(c)+10var ch,c:char。而當一個循環(huán)的循環(huán)體中又有循環(huán)時，這就是循環(huán)的嵌套，稱為多重循環(huán)。Writeln(s)End.［總結(jié)與提高］for語句的形式簡單，但它也有一定的局限性，主要是控制變量的值不能隨意變化，每次只能取其后繼(用to的情況)或前趨（用downto的情況），另一限制是控制變量只能用簡單的有序的離散量，且循環(huán)次數(shù)已定，不能象while或repeat那樣通過布爾表達式來控制循環(huán)的操作。 I:=1。三、for語句（計數(shù)循環(huán)）1．格式：（1）for 變量標識符：=初值表達式 to終值表達式 do 語句； 從小到大執(zhí)行的格式（2）for 變量標識符：=初值表達式 downto終值表達式 do 語句； 從大到小執(zhí)行的格式2．說明格式中的for,to,downto,do都是保留字，to一般用在升序的計數(shù)，而downto用在降序的計數(shù)。Writeln(s)End.［總結(jié)與提高］While與Repeat語句對比while和repeat語句一般情況下可以相互替換。 I:=I+1。 I:=1。例3．var s,I:integer。二、Repeat語句（直到型循環(huán)）1．格式：repeat 語句；語句；……；語句；until 布爾表達式；2. 說明格式中repeat和until都是保留字，其間的語句構(gòu)成循環(huán)體，最后一個語句的分號可以省略；until后的布爾表達式表示條件，描述的是循環(huán)結(jié)束的條件。 End。 While I=100 do Begin S:=s+I。Begin S:=0。例3．1用當循環(huán)計算1+2+3+……100[分析]：此類題也稱累加，設(shè)最后結(jié)果放入變量S中，設(shè)計一指針I(yè)，讓I從1開始遞增，并累加到S中，當I的值等于100時，循環(huán)結(jié)束。只要布爾表達式成立時（即值為TRUE時）就執(zhí)行循環(huán)體，如此反復直到布爾表達式不成立（值為FALSE）時停止。一．While語句（當型循環(huán)）1．格式：while 布爾表達式 do 語句；2．說明：格式中while和do都是保留字，布爾表達