【正文】 天； 2月又分為兩種情況：閏年為 29天，否則為 28天。 2）遞增按 succ函數(shù)規(guī)律變化，遞減按 pred函數(shù)規(guī)律變化，整型按數(shù)值大小變化，如果為字符型量，按 ASCII碼表的順序計算。 ? 程序代碼： ? program ex1(input,output)。+100 s=1+1/2+1/3+可以用 x mod y=0，來找出所有約數(shù)。 ? i:=i+1。 ? n:=i mod 100。 格式： while 布爾表達(dá)式 do 語句； 執(zhí)行過程： while語句的執(zhí)行過程為： ①判斷布爾表達(dá)式的值 ,如果其值為真 ,執(zhí)行步驟 2,否則執(zhí)行步驟 4。 var x:integer。 ? begin ? i:=0。 語句 n until 布爾表達(dá)式； 功能：執(zhí)行過程：先執(zhí)行指定的語句序列，然后判別表達(dá)式。 ? until ch=’’。 ? writeln(‘input n nums:’)。如： 153，13+53+33=1+125+27=153） ? 算法設(shè)計：采用三重循環(huán)求解，用 for循環(huán)。 ? for k:=2*i1 downto 1 do ? write(‘’)。 ? if (ord(dong=1)+ord(hong=4)+ord(bo=3)=1) and (ord(hong=1)+ord(dong=4)+ord(bo=2)+ord(tai=3)=1) and (ord(hong=4)+ord(dong=3)=1) and (ord(bo=1)+ord(tai=4)+ord(hong=2)+ord(dong=3)=1) ? then writeln(‘dong:’,dong,’hong:’,hong,’bo:’,bo,’tai:’,tai) ? end ? end. 上機(jī)練習(xí)題 50名學(xué)生，已知他們期中考試的數(shù)學(xué)成績，現(xiàn)需要統(tǒng)計 100分、 90分、 80分、 70分、60分與不及格各成績檔有多少人。 本章要點(diǎn) ? Free Pascal與 Turbo Pascal的區(qū)別 ? Pascal的程序結(jié)構(gòu) ? 基本符號、保留字、標(biāo)識符 ? 數(shù)據(jù)類型、常量、變量及說明方法 ? 函數(shù)與表達(dá)式 ? 三種基本的程序結(jié)構(gòu) 順序結(jié)構(gòu) 分支結(jié)構(gòu) 循環(huán)結(jié)構(gòu) 本講結(jié)束 謝謝合作 。 ? var ? dong,hong,bo,tai:integer。 ? var ? i,j,k:integer。 ? writeln(‘the max num is:’,max) ? end. ? 三、多重循環(huán) ? 【 例 9】 :求 100~999中的水仙花數(shù)。 ? begin ? writeln(‘input n:’)。 ? repeat ? read(ch)。 ? var ? ch:char。 【 例 5】 :輸出 1~100之間的奇數(shù)。 [適合用于事先知道循環(huán)次數(shù) ]. 當(dāng)循環(huán)次數(shù)未知，只能根據(jù)某一條件來決定是否進(jìn)行循環(huán)時，用while 語句實(shí)現(xiàn)循環(huán)要更方便。 ? var ? i,m,n,k:integer。i:=0。+1002 ? 【 例 3】 :鍵入一個自然數(shù)，輸出其所有約數(shù)，計算出這些約數(shù)之和并輸出。+100之和。 格式： for 控制變量： =初值 to 終值 do 循環(huán)體語句； for 控制變量： =初值 downto 終值 do 循環(huán)體語句； For語句執(zhí)行過程 ①先將初值賦給左邊的變量（稱為循環(huán)控制變量）； ②判斷循環(huán)控制變量的值是否已 “ 超過 ” 終值，如已超過，則跳到步驟⑥； ③如果末超過終值，則執(zhí)行 do后面的那個語句（稱為循環(huán)體）； ④循環(huán)變量遞增（對 to）或遞減（對 downt o)１ ； ⑤返回步驟②； ⑥循環(huán)結(jié)束，執(zhí)行ｆｏｒ循環(huán)下面的一個語句。 算法分析：方程的系數(shù) a,b,c決定了方程有無根，是幾個根，是實(shí)數(shù)根還是復(fù)根。 ch:’)。 else 語句 n+1 end。 begin write(‘a(chǎn),b,c(0):’)。x=39。 var x:real。 min:=t end。 注意 :else前面沒有分號 . 格式一： if 布爾表達(dá)式 then 語句 ； 格式二： if 布爾表達(dá)式 then 語句 1 else 語句 2； 邏輯、算術(shù)、關(guān)系運(yùn)算符的運(yùn)算次序： 1. 括號 2. 函數(shù)、 not 3. *、 /、 div、 mod、 and 4. +、 、 or 5. 、 =、 、 =、 =、 補(bǔ)充 【 例 1】 :將輸入的兩個非負(fù)實(shí)數(shù)中較大的放在 max里，小的放在 min里，并輸出。 2. 試編一程序 ,輸入一梯形的上底、下底、高 , 求該梯形的面積。 x:=trunc(random*900)+100。 d:=true。 【 例 5】 ： 寫出程序的運(yùn)行結(jié)果： program ex5(input,output)。 自定義場寬又分為單場寬和雙場寬。 write(5,6)。 ? begin ? writeln(50)。 readln(f,g)。如： Read(a,b)。 ? writeln(‘i=’,i, ‘j=’,j,‘k=’,k)。 ? 【 例 3】 ： 寫出程序運(yùn)行后，變量的值。read(a2)。 ? bool:=not bool。 ? ch:char。 writeln(‘a(chǎn)=’,a,‘b=’,b)。 ? 表達(dá)式中各運(yùn)算符的優(yōu)先級： 表達(dá)式有以下幾種 ： 例如：寫出一個整數(shù)能被 3整除所得余數(shù)的表達(dá)式 ： 例如：寫出一個能表示正數(shù)的表達(dá)式 ： 例如：寫出一個數(shù)既能被 3整除又能被 5整除的表達(dá)式 習(xí) 題 +bx+c的 PASCAL的表達(dá)式是 ____________________ PASCAL的表達(dá)式是__________________________ 2/4*5的值是 ____________， 表達(dá)式 10*4 mod 5*22/4*5的值是 ___________________ j的整數(shù)倍的布爾表達(dá)式是 ________________， m是偶數(shù)的布爾表達(dá)式是 ________________， y在 2至 1之間的布爾表達(dá)式是__________________________， y是閏年的布爾表達(dá)式是_______________________________________________________________。常量的定義具有單一性和不可改變性。 布爾類型的運(yùn)算符有 not(非 )、 and(與 )、 or(或 )。 2)實(shí)數(shù) 名稱 Type Range Significant digits Size 實(shí)型 Real platform dependant ??? 4 or 8 單精度型 Single .. 78 4 雙精度型 Double .. 1516 8 擴(kuò)展型 Extended .. 1920 10 裝配十進(jìn)制型 Comp 2E64+1 .. 2E631 1920 8 ③ 字符類型： 目前微機(jī)上廣泛使用的 ASCII碼字符集滿足 PASCAL對字符集的要求。 2 長整型 Longint 2147483648 .. 2147483647 (9位 ) 4 長字型 Longword 0..4294967295 4 整數(shù) INT64 Int64 9223372036854775808 .. 9223372036854775807 8 Q字型 QWord 0 .. 18446744073709551615 8 （整數(shù)部分 19位） Turbo Pascal規(guī)定了兩個預(yù)定義整型常量表識符maxint和 maxlonint，他們各表示確定的常數(shù)值， maxint為 32767， longint為 2147483647， 他們的類型分別是 integer 和 longint。 例如：在程序中如用到數(shù)學(xué)中的 π，則在定義該常量時可用 PI表示 。一條語句執(zhí)行一定的功能，所有語句完成程序設(shè)計的任務(wù)。最常用的參數(shù)為 input和 output。 有一個好辦法就是把程序弄回TP找錯 ， 再到 FP中執(zhí)行 。 FP中對于數(shù)據(jù)類型的范圍有一定改動 ， 而且語法要求更苛刻 。 補(bǔ)充 在 FP中 ， 如果用 Rewrite打開文件 ， 那么文件就只能被寫入了 。 原因是在 Free Pascal中添加了函數(shù)重載功能 。 從 NOIP2022開始，中國計算機(jī)協(xié)會要求聯(lián)賽使用 freepascal，停止使用turbo pascal。該產(chǎn)品由 1983年推出的 1992年推出的 本，隨著版本的不斷更新，功能也更趨完善， Turbo Pascal是 NOIP在 2022年以前使用的主要軟件之一。 FP函數(shù)和過程在使用時 ， 參數(shù)的類型必須和定義時完全一致 。 不保證 g(2)一定在 f(3)之前執(zhí)行 。 1 FreePascal和 TP語法兼容 ， 但是最不同的就是調(diào)試過程 。 我現(xiàn)在僅僅知道 Ex