【正文】 , .. .. ..2 2 3 5 8 1 3求出這個數(shù)列的前 20項的和。公倍數(shù)一定大于等于兩數(shù)中的大數(shù)，且是大數(shù)的倍數(shù)，又能給兩數(shù)中的小數(shù)整除。） 編程實現(xiàn)：求 . . . . . .nns a a a a a a a a a a a a? ? ? ? ?之值，其中 a是一個數(shù)字。 枚舉類型： 中學學科網(wǎng)學海泛舟系列資料 :COM 版權(quán)所有 中學學科網(wǎng) 15 “枚舉”的意思就是把所需要的對象都一個一個的列舉出來。 Type TWeekDay=(Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday)。Error number39。Sunday39。 Wednesday:writeln(39。)。 如： TYPE Tmonth=1..12。 begin read(month,day,year)。 例如：定義存放學生姓名的字符數(shù)組： TYPE TName=Array[1..20] of Char。 begin for i:=1 to 5 do begin write(39。 writeln(39。 for i := 10 downto 1 do write(a[i], 39。, s)。 begin for i := 1 to 100 do a[i] := i。 while a[i] = 0 do i := i + 1。字符串類型 :String。 刪除子串過程： delete(S,I,L)，在 S 中從的 I個字符起刪除 L 個字符。 Avg:Real。 Type EvenDigits=Set of [0,2,4,6,8]。請你設(shè)計一個程序，由計算機判斷聰明人要站在什么位置，才能躲過這一場屠殺。最后出圈的兩個人就是被赦免的人。====================39。 中學學科網(wǎng)學海泛舟系列資料 :COM 版權(quán)所有 中學學科網(wǎng) 19 p := p + 1。 end。 var k, r: integer。Please input an integer between 1..32767:39。 str[j + 1] := 1。 隨機產(chǎn)生 20 個三位數(shù)，將這 20個數(shù)按從小到大的順序排列，要求在排列中，用盡可能少的交換次數(shù)。要求：從鍵盤輸入 M， N，編程計算哪一個編號的猴子成為大王。 說明： X可以是整型，也可以是實型；返回值和 X的類型一致 例子： var r: Real。 { } end. 截尾函數(shù) trunc(x) 定義： function Trunc(X: Real): Longint。bees 39。, Round())。rounds to 39。 注意： X 是實型表達式 . 返回實型的 X的平方根 . 平方： function Sqr(X): (Same type as parameter)。 例子： var S: String。length = 39。 例子： var S: String。 Index: Integer)。Honest Lincoln39。 Count:Integer)。 Delete(s,8,4)。 } end. 字符串轉(zhuǎn)為數(shù)值 val 定義： procedure Val(S。123439。 IntToStr := S。這 中學學科網(wǎng)學海泛舟系列資料 :COM 版權(quán)所有 中學學科網(wǎng) 23 個值是 Substr的第一個字符在 S中的位置。 39。pascal39。 s2:=39。 var a,b,c:q。一個指針 變量僅能指向某一種類型的存儲單元，這種數(shù)據(jù)類型是在指針類型的定義中確定的，稱為指針類型的基類型。 begin s1:=39。Turbo 39。 39。 注意： Substr 和 S 字符串類型表達式。 例子： var S: string[11]。I, Code: Integer。 { 39。 begin s := 39。 } end. 刪除子串 delete 定義： procedure Delete(var S: String。 中學學科網(wǎng)學海泛舟系列資料 :COM 版權(quán)所有 中學學科網(wǎng) 22 例子： var S: String。 } end. 插入子串 insert 定義： procedure Insert(Source: String。 Index和 Count 是整型表達式。)。,Sqrt())。 { } R := Frac()。, Round())。 注意： X是實型表達式 . Round 返回 Longint型的 X的四舍五入值 .如果返回值超出了 Longint的表示范圍，則出錯 . 例子： begin Writeln(, 39。, Trunc())。 begin R := Int()。 重復(fù)步驟（ 3），直到找到 40 個自然數(shù)為止。打算從中選出一個大王。求證：所有四位數(shù)數(shù)字（全相同的除外），均能得到 6174。 i := i div 2。 end。 str: array[1..max] of byte。 d := d + 1。 if k n then continue。 begin writeln。用 K＝ K＋ A（ I）來實現(xiàn)報數(shù)功能，因為只有還在圈中的人才能使 K 的值增加。剩下的人繼續(xù)從 1開始報數(shù)，循環(huán)反復(fù)，直到剩下兩個人為止，這兩個人被赦免。 定義： Type 集合數(shù)據(jù)類型標識符 = Set of 基類型 。 Name:String[16]。 長度函數(shù)： length(S)，計算字符串 S 的長度。例如前面提到的學生姓名 :Tname 可以存放20 個字符。 end。 var a: array[1..100] of integer。 writeln(39。 i, s: integer。 for i:=1 to 5 do begin sum:=sum+score[i]。 i:integer。 dayth:=dayth+day。 day:1..31。{if (number0) or (number 6)} end. 子界類型： 子界類型是在其它的離散類型的值域中取出一部分構(gòu)成獨立的類型。 Friday:writeln(39。Thusday39。)。readln(number)。 例題：輸入今天的日期數(shù)字： 0＝ Sunday， 1＝ Monday， …6 ＝ Saturday，輸出明天的日期，用英文單詞表示。 第六節(jié) 數(shù)據(jù)類型 簡單數(shù)據(jù)類型 Pascal 語言基本數(shù)據(jù)類型由： integer(longint,shortint,byte),real,char,。 輸入一個正整數(shù) N，把它分解成質(zhì)因子相乘的形式。） 求兩個數(shù)的最小公倍數(shù)和最大公約數(shù)。, total)。輸入學生分數(shù)： 39。 Repeat 語句 。 while score = 0 do begin readln(score)。 var score: integer。 第五節(jié) while、 repeat 循環(huán)結(jié)構(gòu) While 語 句是另外一種實現(xiàn)循環(huán)的語句，一般形式如下： While 條件 do 語句 While 循環(huán)的執(zhí)行過程如下： 1. 判斷條件是否成立，條件成立時執(zhí)行步驟 2,否則執(zhí)行步驟 4 2. 執(zhí)行 do 后面的語句（循環(huán)體 ) 3. 返回步驟 1 中學學科網(wǎng)學海泛舟系列資料 :COM 版權(quán)所有 中學學科網(wǎng) 13 4. 結(jié)束循環(huán)，執(zhí)行下一語句 注意：一定要有使條件取假 (False)的時候，否則會出現(xiàn)死循環(huán)。 end. 程序說明： 標準函數(shù) chr(i)可以得到代碼為 i 的字符。其基本過程如下： 1. 計算初值并記憶 2. 判斷初值是否超出終值、如果超過則執(zhí)行步驟 7,否則執(zhí)行步驟 3 3. 把初值賦給控制變量 4. 執(zhí)行 do 后面的語句（循環(huán)體 ) 5. 判斷控制變量的值 是否達道終值，如果是則執(zhí)行步驟 6,否則執(zhí)行步驟 7 6. 控制變量取下一個值 (升序取后繼，降序取前驅(qū) ) 7. (循環(huán)結(jié)束 )執(zhí)行下一語句 . 例題：編寫程序輸出序號從 32 到 126 的 ASCII字符與對應(yīng)代 碼之間的對應(yīng)關(guān)系。 例題 1:輸入正整數(shù) N，計算 1Ni i?? 分析： 1Ni i?? ＝ 1+2+3+…+N, 因此我們必需重復(fù)的執(zhí)行 S:=S+i，其中 S 代表和， S=1 {i=1} S=1+2 {i=2} S=1+2+3 {i=3} S=1+2+3+4 {i=4} …. S=1+2+3+4+…+N {i=N} i 從 1 變化到 N，計算前 I項的和： 1+2+3+…+I ，寫成 Pascal 代碼如下： For i:=1 to N DO S:=S+i。 end. 練習： 我們把字母作如下的分類：大寫字母 :?A?..?Z?；小寫字母 :?a?..?z?。 7,6:=39。 begin write(39。 60..89:{ 60 90x?? } writeln(?及格 ?)。 case 語句執(zhí)行和表達式值相匹配的 case常數(shù)所指向的那條語句，如果沒有相匹配的值，則執(zhí)行 else 部分（如果有的話）或者什么也不做。 第三節(jié) Case 分支結(jié)構(gòu) case 語句是由一個表達式和眾多可選擇的操作序列組成。 end。 end。,x)。,y)。 end。有兩種形式的 IF 語句： if 布爾表達式 then 語句 ； if 布爾表達式 then 語句 1 else 語句 2； 當布爾表達式的值為真，則執(zhí)行 then 后面的語句 ，值為假時有兩種情況：要么什么也不做，要么執(zhí)行 else后面的語句。 計算公式： ( ) ( ) ( )2s p p a p b p cabcp? ? ? ???? Pascal 程序中計算平方根的函數(shù)為： sqrt(x)。 {計算圓環(huán)面積的程序 ， R2 表示外圓環(huán)的半徑 ， R1 表示內(nèi)圓環(huán)的半徑 ， R2R1} var R1,R2:Real。 C:=2*Pi*R。 writeln(39。 例：變量值的交換 program swap。 writeln(39。)。c:char。原來的數(shù) 據(jù)按該該格式指定的小數(shù)位數(shù)四舍五入。 單域?qū)捿敵龈袷剑?writeln(I： n)。 writeln(輸出項表 )。例如 a， b， c為整型變量，read(a,b,c)之后，鍵盤輸入： 20 30 40 CR(CR表示回車 )，結(jié)果： a=20， b=30， c=40 readln語句和 read 語句不同之處在于輸入數(shù)據(jù)到各變量 之后， readln 自動換行，從下一行開始再輸入數(shù)據(jù)。 b:=2。對于任何一個變量必須首先賦值，然后才能引用，否則，未賦初值的變量將以一個隨機值參與運算。 writeln(39。 procedure myproc。 中學學科網(wǎng)學海泛舟系列資料 :COM 版權(quán)所有 中學學科網(wǎng) 5 操作一 操作二 end。 PASCAL 使用的保留字有： AND、 ARRAY、 BEGIN、 CASE、 CONST、 DIV、 DO、 DOWNTO、 ELSE、 END、 FILE、FOR、 FUNCTION、 GOTO 、 IF、 IN、 LABEL、 MOD、 NIL、 NOT、 OF、 PACKED、 PROCEDURE、PROGRAM、 RECORD、 REPEAT、 SET、 THEN、 TO、 TYPE、 UNTIL、 VAR、 WHILE、WITH、 FORWARD 常用的標準標識符有： 標準常量： FALSE TRUE MAXINT MAXLONGINT 標準類型： INTEGER BOOLEAN REAL CHAR TEXT 標準文件： INPUT OUTPUT 標準函數(shù)： ABS ACTAN CHR COS EOF ELON EXP LN ODD ORD PRED ROUND SIN SQR SQRT SUCC TRUNC 標準過程： ASSIGN GET NEW DISPOSE PACK PUT READ READLN RESET REWRITE UNPACK WRITE WRITELN 函數(shù)格式： function fun_name(參數(shù)表 ):數(shù)據(jù)類型 。