【正文】 r 語句是形式最簡單的循環(huán)語句。,ch)。B39。ch:char。{輸入一個分?jǐn)?shù) } case x of 0..59:{ 0 60x?? } writeln(?不及格 ?。 表達式只能是順序類型（除了實型以外的簡單類型），其值必須是唯一確定并且和表達式類型相同。 B、利用 MOD 運算可以判斷一個數(shù)能否被另一個數(shù)整除） 從鍵盤輸入 3 個數(shù) a,b,c 輸出其中最大的數(shù)。 end else {if 條件不成立 then } begin 操作 A。,x)。x=39。y=39。 end else begin writeln(?真差勁 ， 要努力哦 ！ ?)。運行時根據(jù)布爾表達式求值結(jié)果，選取其中之一的操作序列執(zhí)行。 ｛ 語句必須以 “； ”結(jié)束 ｝ end.｛ 主程序必須以 “.”結(jié)尾｝ 練習(xí)： 編寫程序?qū)崿F(xiàn)以下功能： 輸入三角形三邊的長，計算三角形的面積。 Program Example1。 readln(R)。 end。 end。,c,c:10)。i=39。r:real。在 n個字符寬的輸出域上按右隊齊方式用小數(shù)點形式輸出 a 的數(shù)值， m 是小數(shù)點后的位數(shù)。定義寬度時分為單域?qū)捄碗p域?qū)挕?Turbo Pascal 的輸出 語句有兩種形式： write(輸出項表 )。 變量名表 是一個或幾個由逗號隔開的變量標(biāo)識符，他們必須在程序說明部分預(yù)先說明，他們可以是整型、實型或字符型，布爾型不可以直接讀入。 begin a:=3。 “:=”稱為賦值號， 賦值語句的作 用是計算表達式的值，并賦給變量。 s:=area(a,b)。 end。 begin 過程體 。如“ ”是一個表示“不等于”的關(guān)系運算符，如拆開后就變成了兩個關(guān)系運算符，分別表示“小于”、“ 大于”。寫表達式時要注意 PASCAL 表達式跟我們已經(jīng)熟悉的數(shù)學(xué)表達式在格式上的區(qū)別： 數(shù)學(xué)表達式 PASCAL表達式 注意 中學(xué)學(xué)科網(wǎng)學(xué)海泛舟系列資料 :COM 版權(quán)所有 中學(xué)學(xué)科網(wǎng) 4 2a 2*a *號不能省略 a247。和我們在數(shù)學(xué)課中學(xué)的基本一樣但在寫法上有些不同，在寫程序時要特別注意寫法的不同： + 加號； 減號； * 乘號 ( 數(shù)學(xué)中寫為 )； / 除號 ( 數(shù)學(xué)中寫為 247。 writeln。如“ const”開始常量說明；“ type”開始類型說明；“ var”開始變量說明。 PASCAL 中引用的每個變量都有“名字”和“類型”屬性。 類型說明在保留字“ type”下開始。這樣不但在編寫程序的時候很方便，也增加了程序的可讀性，修改時更方便。 type ar=array [1..4] of integer。如“pname”、 “i”、 “j”、 “a1”就是合法的標(biāo)識符；但 “1a”、 “a”是 非法的標(biāo)識符。從鍵盤讀入 4 個數(shù)據(jù)，逆序輸出。 type arr=array [1..4] of integer。 begin 程序體 。 for i:=n downto 1 do write(a[i]:4)。我們不能再用“program”、 “const”來作為其它變量、常量等的名字。 （ PASCAL定義的 保留字 和 標(biāo)準(zhǔn)標(biāo)識符 附后） 標(biāo)識符在命名的時候要注意： 名字要易記易讀，有意義。在程序中用到這個值的地方均用常量名來代替。 n是常量名， 4是該常量的值，“；”是語句分隔符。 var部分是變量說明。其中，如果有多個變量同一類型，則變量名與變量名之間用逗號分隔，變量名與變量類型之間用冒號分隔。 程序體： begin for i:=1 to n do read(a[i])。在書寫程序時，以“分層縮進”的風(fēng)格來寫，以便提高程序的可讀性。 大于； 小于； 不等于 (數(shù)學(xué)中寫為 ≠ )； = 小于等于 (數(shù)學(xué)中寫為≤ )； = 大于等于 (數(shù)學(xué)中寫為 ≥ )， 變量、常量通過運算符連接起來的式子我們稱為表達式。同理，在 PASCAL 中“數(shù)據(jù)類型”也是一個取值范圍和在它上面定義的運算規(guī)則。 例題：寫出計算兩個整數(shù) a,b 的和函數(shù) add(a,b)。 var s:real。Please input two number a,b:39。 {============= main program ================} begin myproc。 Age:=20。 end. 輸入語 句 通過計算機的外設(shè)把數(shù)據(jù)送到計算機內(nèi)存的過程稱為輸入。readln 等價于 readln(a,b) 輸入語句輸入的數(shù)據(jù)類型必須和變量一一對應(yīng)。 writeln 語句允許不含有輸出項，即僅 writeln。 雙域?qū)捿敵龈袷剑?writeln(a： n： m)。 const s=39。a39。,r,r:6:1)。復(fù)合語句的一般形式： begin 語句 1。 begin t:=a。,b) end. 例題 1：輸入 圓的半徑，求出圓的周長和面積： Progam CalCircle。{sqr(R)=R*R} write(?面積 =?,S)。 S:real。 輸入分?jǐn)?shù)→ score。 var score:real。 if x=0 then y:=0。 program lianxi。,x1)。 end。編一程序完成自動計費工作。 …… 常量 n:語句 n。 Program JudgeScore2。 end。 if(s=0)and(s=100)then case s div 10 of 10,9:ch:=39。 end。 第四節(jié) for 循環(huán)結(jié)構(gòu) 程序設(shè)計時我們經(jīng)常要做一些重復(fù)的任務(wù)通過反復(fù)的執(zhí)行某一個動作來完成任務(wù)，編寫這一類程序我們使用循環(huán) 結(jié)構(gòu)來實現(xiàn)。 S:=0。 begin for i := 32 to 126 do begin if (j mod 5 = 0) then writeln。語句 write(i: 5, chr(i): 2)。計算總分； Pascal 代碼： while score = 0 do begin readln(score)。輸入學(xué)生分?jǐn)?shù)： 39?？偡譃椋?39。 var score: integer。 total := total + score。所謂水仙花數(shù)，是指一個三位數(shù) abc ，如果滿足 3 3 3a b c abc? ? ? ，則abc 是水仙花數(shù)。譯碼規(guī)則是以數(shù)字 1代替字母 A，數(shù)字 2 代替字母 B， …… ， 26 代替字母 Z，如遇空格則打印一個星號 ?*?，英文句子以 ?.?結(jié)束。 1 一個數(shù)如果恰好等于它的因子之和，這個數(shù)就稱為“完數(shù)”。習(xí)慣上我們在 自定義類型名稱前加上“ T”，如 TColor,TWeekDay，而且單詞以大寫字母開始。 number,i:integer。 for i:=0 to number1 do today:=succ(today)。 Monday:writeln(39。)。Saturday39。 例 按月、日、年順序讀入一日期，輸出該日期是這一年中的第幾天。 for i:=1 to month1 do 中學(xué)學(xué)科網(wǎng)學(xué)海泛舟系列資料 :COM 版權(quán)所有 中學(xué)學(xué)科網(wǎng) 16 case i of 1,3,5,7,8,10,12:dayth:=dayth+31。 例 1：輸入 5 個考分?jǐn)?shù)，計算它們的總分。,i)。,sum)。)。 分析：素數(shù)是除了 1和它本身以外沒有其它約數(shù)的數(shù)。 i := 2。 for i := 1 to 100 do if a[i] 0 then write(a[i], 39。 字符串定義時，如不指定長度，則按該類型的最大長度（ 255個字符）分配空間，使用時最大可用長度為 255個；如果在中括號中給出一個具體的值（ 1— 255 之間），則按這個值的大小分配空間。 記錄類型： 記錄類型由固定數(shù)量的具有不同類型的成分組成，在實際的程序設(shè)計中，這種類型非常有用，比方說學(xué)生的信息包括：學(xué)號，姓名，語文，數(shù)學(xué)，英語成績，平均分等組成，用一個簡單的數(shù)據(jù)類型無法表達。{End Type TStudent} TStudents=Array[1..50] of TStudent。 例 4：傳說中有一個殘暴的國王，喜歡殺戮百姓。用數(shù)組 A（ M）存放 M個人是否還在圈中的信息。 const m = 100。 for i := 1 to m do a[i] := 1。 writeln。 {while} end. 例 5：輸入一個十進制數(shù)，將其轉(zhuǎn)換成二進制數(shù)。 repeat dec(k)。 readln(i)。 end. 練習(xí)： 數(shù)學(xué)黑洞 6174：已知：一個任意的四位 正整數(shù)。 有一組數(shù)，其排列形式如下： 11， 19， 9， 12， 5， 20， 1， 18， 4， 16， 6， 10， 15， 2，17， 3， 14， 7， 13， 8，且尾部 8 和頭部 11 首尾相連，構(gòu)成環(huán)形的一組數(shù)，編程找出相鄰的 4 個數(shù)，其相加之和最大，并給出它們的起始位置。 中學(xué)學(xué)科網(wǎng)學(xué)海泛舟系列資料 :COM 版權(quán)所有 中學(xué)學(xué)科網(wǎng) 20 問題分析： 首先，開辟一個數(shù)組 S(I)，準(zhǔn)備存放這 40 個數(shù)，再開辟一個數(shù)組 CHA(I)，用來存放兩個數(shù)的差。 begin r := Abs()。 bees 39。 { 1 } Writeln(, 39。 rounds to 39。{ 2 } end. 取小數(shù)函數(shù) frac(x) 定義： function Frac(X: Real): Real。5 squared is 39。 Writeln(39。 end. 復(fù)制子串 copy 定義： function Copy(S: String。ABCDEF39。 S 是任意長度字符串類型變量。Abe 39。 Index和 Countare 是整型表達式。 { 39。 var Code: Integer)。 writeln(i)。 begin Writeln(IntToStr(5322))。 例子： var S: String。039。 { 39。 s:=s1s2。 a,b,c 均定義為指針變量，分別可以指向一個整型存儲單元。Turbopascal39。 } end. 字符串壓縮空格串連 定義：操作符 去掉第一個字符串最后的空格后，將兩個字符串聯(lián)在一起。 例子： var s1,s2,s:string。 39。 end. 求子串起始位置 pos 定義： function Pos(Substr: String。 var S:string)。 V 是整型或?qū)嵭妥兞浚? Code 是 Integer 型變量 注意： Val 將 S 轉(zhuǎn)為它的數(shù)值形式。 } Delete(s,9,10)。如果 Index 大于 S 的長度，則不刪除任何字符；如果 Count 大于 S中從 Index開始的實際字符數(shù)，則刪除實際的字符數(shù)。 { 39。 Insert 把 Source 插在 S 中 Index 處。 { 39。 Count: Integer): String。, S, 39。 { 25 } Writeln(39。 也就是說， Frac(X) = X Int(_X). 例子： var R: Real。 { 2 } Writeln(, 39。, Trunc())。 { 1 } Writeln(, 39。 { 157 } end. 取整函數(shù) int(x) 定義： function Int(X: Real): Real。把這個自然數(shù)放進數(shù)組 S 中，同時把這個自然數(shù)與數(shù)組 S 中原有的每一個自然數(shù)的差記錄在數(shù)組 S 中去。編一程序交換這組數(shù)中任意指定的兩段。即： 76411467=6174。 repeat inc(j)。 for r := k downto 1 do write(str[r])。 const max = 20。 a[i] := 0。 k := 0。 var a: array[1..m] of integer。 A（ I）＝ 0 表示第 I個人已被殺掉。在這 30 個百 姓中間有一個聰明人，他站出來對國王說： “請國王大發(fā)慈悲，赦免二人不死。定義一個學(xué)生變量，可以使用 student[1].Name 來訪問學(xué)生的姓名。 TScores=Array[1..5] of TScore。 字符串類型既可按數(shù) 組方式輸入、輸出，也可直接輸入、輸出： readln(s)； writeln(s)；多個字符串輸入時以回車作為數(shù)據(jù)間的分隔符；每個 readln 語句只能讀入一個字符串。)。 while k = 100 do begin k := k + i。把所有非 0 數(shù)輸出。 s := 0。 program p1。 e