【正文】 練習(xí)： 1， 2， 3， 4， 5 可以組成多少個三位數(shù) (各位上的數(shù)字允許重復(fù) )? 0、 1， 2， 3， 4， 5 可以組成多少個三位數(shù) (各位上的數(shù)字允許重復(fù) )? 0， 1， 2， 3， 4， 5 可以組成多少個十位數(shù)字大于個位數(shù)字 的兩位數(shù) ? ,各位上數(shù)字由 0,1,2,3,4,5,6,7,8,9 十個數(shù)字組成 ,可以設(shè)置多少種三位數(shù)的密碼 (各位上的數(shù)字允許重復(fù) )?首位數(shù)字不為 0的密碼數(shù)是多少種 ?首位數(shù)字是 0的密碼數(shù)又是多少種 ? ，要給地圖 A、 B、 C、 D四個區(qū)域分別涂上 3 種不同顏色中的某一種，允許同一種顏色使用多次，但相鄰區(qū)域必須涂不同的顏色，不同的涂色方案有多少種 ? 22 名女生， 23名男生 . 選一位學(xué)生代表班級去領(lǐng)獎，有幾種不同選法 ? 選出男學(xué)生與女學(xué)生各一名去參加智力競賽，有幾種不同的選法 ? 有多少個約數(shù) ?并將這些約數(shù)寫出來 . 5 幅不同的國畫、 2幅不同的油畫、 7幅不同的水彩畫中選不同畫種的兩幅畫布置房間，有幾種選法 ? x、 y 可以取 1， 2， 3， 4， 5 中的任一個，則點 (x,y)的不同個數(shù)有多。 ： 做一件事情，完成它需要分成 n個步驟，做第一步有 m1 種不同的方法，做第二步有 m2 種不同的方法，…，做第 n步有種 mn 不同的方法，那么完成這件事有 N=m1*m2*.*mn 種不同的方法。,c)； end. 數(shù)學(xué)知識 一、排列與組合 加法原理與乘法原理 ： 做一件事情，完成它可以有 n 類辦法，在第一類辦法中有 m1 種不同的方法，在第二類辦法中有 m2 種不同的方法，…，在第 n 類辦法中有 mn 種不同的方法。,n,39。,m,39。)； readln(m,n)； c： =factor(m)div(factor(n)*factor(mn))； {調(diào)用 } writeln(39。 (公式： C(m,n)=m！ /n！ *(mn)！從 m中選 n) program zohe1； var m,n： integer； c： longint； function factor(x： integer)： longint； {定義 } var i： integer； p： longint； begin p： =1； for i： =1 to xdo p： =p*i； factor： =p； {這個語句必須 } end； begin write(39。,gcd)； end； begin enter； gcd： =a[1]； for i： =2 to ndo find_gcd(gcd,a[i])； print； end. 函數(shù) function 函數(shù)名 (形參表 )：函數(shù)類型； {函數(shù)首部 } var{局部變量說明部分 } begin{函數(shù)體 } .{函數(shù)語句 } . 函數(shù)名： =表達式 end； ： 函數(shù)在語法上相當(dāng)于一個表達式，所以，調(diào)用時，函數(shù)不能獨立成為一個語句；它可以出現(xiàn)在任何表達式可以出現(xiàn)的地方。)； readln(a[i])； until a[i]0； end； procedure find_gcd(x,y： integer)； {定義過程 } var r： integer； begin r： =x mod y； while r0 do begin x： =y； y： =r； r： =x mod y； end gcd： =y； end； procedure print； begin writeln(39。,i,39。)； readln(n)； for i： =1 to ndo repeat write(39。} 第七章函數(shù)和過程 過程 procedure 過程名 (形式參數(shù)：參數(shù)說明 )； {也可以不帶參數(shù) } var begin . end； 過程名 (實在參數(shù)表 )； 例 1：求 n 個 自然數(shù)的最大公約數(shù)； program gcd1； const maxn=100； var n,i,gcd： integer； a： array[]of integer； procedure enter； begin write(39。； s： =s1+s2； {39。； s2： =39。,S)； {i 的值為 1} +運算符將兩個字符串連接起來 s1： =39。； i： =Pos(39。} Pos(c,S)函數(shù)求字符 c在 s中的位置整型 S： =39。,S,8)； {39。； Insert(39。} Insert(s1,S,w)過程將 s1 插到 s 中第 w 位 S： =39。； Delete(s,8,4)； Writeln(s)； {39。} Delete(s,w,k)過程在 s中刪除從第 w位開始的 k個字符 s： =39。； val(s,k,code)； write(k)； {k=1234} str(i,s)過程將數(shù)值 i轉(zhuǎn)為字符串 si： =1234； str(i,s)； write(s)； {s=39。} val(s,k,code)過程將字符串 s轉(zhuǎn)為數(shù)值，存在 k中； code 是錯誤代碼 var s： string； k,code： integer； begin s： =39。； s1： =copy(s,3,5)； {s1 的值是 39。； l： =length(s)； {l 的值為 9} copy(s,w,k)函數(shù)復(fù)制 s中從 w開始的 k 位字符串 s： =39。 ： 操作類型作用返回值例子 length(s)函數(shù)求字符串 s 的長度整型 s： =39。使用時，最大的可用長度即為該值。當(dāng)然， 它也有自已的特點。如高精度運算時存放操作數(shù)和運算結(jié)果。 program p1； var a： array[,]of integer； b： array[]of real； i,j： integer； begin for i： =1 to 20 do begin for j： =1 to 3do read(a[i,j])； readln； end； {從鍵盤上讀入 20個同學(xué)的三次競賽成績 } for i： =1 to 20 do b[i]： =0； {先將平均分數(shù)組清 0} for i： =1 to 20 do begin for j： =1 to 3do b[i]： =b[i]+a[i,j]； {計算總分 } b[i]： =b[i]/3； {計算平均分 } end； for i： =1 to 20 do write(b[i]： 5： 1)； {輸出平均分 } writeln； end. 字符串 。 分析：定義一個 20 行 3列的二維數(shù)組來存放這些成績。則固定列號為 4。如： for i：=1 to 5do s： =s+a[4,i]； 對某一列進行處理。如累加第 4行的數(shù)據(jù)。如第三行第四個元素： a[3,4]。如上例，定義了一個二維數(shù)組 a，共有 10行 5列。而二維數(shù)組元素有兩個下標：第一個下標表示該元素在第幾行，第二個下標表示在第幾列。數(shù)組元素只有一個下標，表明該元素在數(shù)組中的位置。39。把所有非 0數(shù)輸出。 分析：素數(shù)是除了 1和它本身以外沒有其它約數(shù)的數(shù)。s=39。39。)； {數(shù)組元素之間用空格分隔 } writeln； 數(shù)組的應(yīng)用： 例 1：從鍵盤輸入 10 個數(shù)，將這 10 個數(shù)逆序輸入，并求這 10 個數(shù)的和，輸出這個和。通常也用循環(huán)結(jié)構(gòu)來完成這一功能： for i： =1 to 10 do write(a[i],39。下面是幾個常用輸入數(shù)組元素的例子： for i： =1 to 10 do read(a[i])； {從鍵盤讀入數(shù)組元素的值；最常用的方法 } for i： =1 to 10 do a[i]： =i； {數(shù)組元素 a[1]到 a[10]的值分別為 1 到 10；數(shù)據(jù)賦初值 } for i： =1 to 10 do a[i]： =0； {數(shù)組元素清 0；最常用的數(shù)據(jù)初始化的方法 } for i： =1 to 10 do a[i]： =random(100)； {隨機產(chǎn)生 10 個 100 以內(nèi)的數(shù)，賦給各數(shù)組元素 } 數(shù)組元素的輸出： 和數(shù)組元素的輸入相同，數(shù)組元素的輸出也不能由一個 write 語句直接完成。 第六章數(shù)組與字符串 一維數(shù)組 定義： var a： array[]of integer； 其中： a是這一批數(shù)據(jù)的名稱，稱為數(shù)組名； array、 of 是定義數(shù)組的保留字；中括號中的數(shù)字是數(shù)據(jù)編號的下限和上限，財時也說明了數(shù)據(jù)的個數(shù) (上限下限 )；最后一個是數(shù)據(jù)的基類型，如 integer， char， real， boolean。 (2)遇到 UNTIL 語句后，求布爾表達式的值。在它們之間可以有任意多個語句，這一點和 FOR， WHILE 循環(huán)不同， FOR， WHILE 循環(huán)體在語法上只允許一條語句。 RepeatUntil 語句 類型的循環(huán)的執(zhí)行形式 REPEAT 語句 1 語句 2 … 語句 n UNTIL 布爾表達式 例如：以下循環(huán)求 n=1+2+3+… +100 n： =0； t： =i； REPEAT n： =n+t； t： =t+1； UNTIL t100； 其中 (1)REPEAT 和 UNTIL 是 PASCAL 保留關(guān)鍵字。 (2)保留關(guān)鍵字 DO 后面的 語法 只能是一條語句，稱為 循環(huán)體 ；如果循環(huán)體中需要包含多個語句則應(yīng)該如上例所示，采用一條復(fù)合語句。也就是說，嵌套的各層循環(huán)應(yīng)當(dāng)使用不同的變量作為循環(huán)變量。*39。 PASCAL 語句構(gòu)成，當(dāng)然也可以包含 FOR 語句，這就構(gòu)成了循環(huán)的嵌套，形成多重循環(huán)。 例如： A： =10； B： =50； FOR K： =A TO BDO BEGIN K： =K+1； {這一句是錯誤的！ } WRITELN(K)； END； (3)當(dāng)循環(huán)初值 或循環(huán)終值中包含變量時，允許在循環(huán)體內(nèi)改變這些變量的值，但并不改變原定的循環(huán)次數(shù)。所謂順序類型的變量，就是指整型，字符型，枚舉型，子界型，不允許是實型。 FOR 循環(huán)控制變量： =循環(huán)初值 TO 循環(huán)終值 DO循環(huán)的語句 (或語段 ) 例： FOR I： =5 TO 10 DO WRITELN(I)； 輸出的結(jié)果為： 5 67 89 10 即循環(huán)一共執(zhí)行了 6 次 如果要重復(fù)多個語句，一定要用 BEGINEND 形式： 例： FOR I： =1 TO 10 DO BEGIN WRITELN(I)； WRITELN(10I)； END； FOR 循環(huán) FOR 循環(huán)控制變量： =循環(huán)初值 DOWNTO 循環(huán)終值 DO 循環(huán)語句 遞減型 FOR 循環(huán)與遞增型 FOR 循環(huán)基本相同，只是循環(huán)控制變量每次遞減。Enter year and month： 39。,total： 10： 2)； end. ，但必須用語句括號 (begin… end)括起 語句也可以嵌套 例 3：從鍵盤上讀入年和月，輸出該月有多少天。) end； {處理服務(wù)類型 } writeln； writeln(39。： total： =total*()； else writeln(39。： total： =total*()； 39。：； 39。) end； {處理汽油的類型 } case help of 39。： total： =*kg； else writeln(39。： total： =*kg； 39。： total： =*kg； 39。)； readln(help)； case oil of 39。)； readln(oil)； wirte(39。)； readln(kg)； write(39。 program pcase1； var oil,help： char； kg,total： real； begin write(39。 ，其類型與表達式的類型一致 例 2：某全自動加油站 a,b,c 三種汽油的單價 (元 /kg)分別是 、 和 ，也提供了 自己加 或 協(xié)助加 兩個服務(wù)等級，這樣用戶可以得到 5%或10%的優(yōu)惠。)； readln(a,b)； if ab then writeln(a) else writeln(b)； end. CASE 語句 分情況語句適用于對一個條件的多種情況的響應(yīng)。 program tt； var a,b： integer； begin write(39。 if 語句可以多層嵌套。 如果我們的程序只需對條件為真的情況作出處理，不需要處理條件為假的情況，則 IF 語句省略 ELSE 分句，格式變成： IF 條件 THEN 語句 1； {條件為真時的響應(yīng)、處理 } 如：如果數(shù) a 大于等于 0 則輸出它的平方根。 IF、 THEN、 ELSE 都是語句的