【導讀】計算機的產(chǎn)生是20世紀最重要的科學技術(shù)大事件之一。世界上的第一臺計。語言，速度慢，存儲量小，主要用于數(shù)值計算；語言，應(yīng)用范圍擴大到數(shù)據(jù)處理和工業(yè)控制；心，增加了多種外部設(shè)備，軟件得到了一定的發(fā)展，文字圖象處理功能加強；④第四代大規(guī)模和超大規(guī)模集成電路計算機，始于1971年，應(yīng)用更廣泛，很多核心部件可集成在一個或多個芯片上，從而出現(xiàn)了微型計算機。目前計算機的發(fā)展向微型化和巨型化、多媒體化和網(wǎng)絡(luò)化方向發(fā)展。機的通信產(chǎn)業(yè)已經(jīng)成為新型的高科技產(chǎn)業(yè)。工作方式、學習方式、思維方式和生活方式。計算機系統(tǒng)由軟件和硬件兩部分組成。軟件即程序和有關(guān)文檔資料。CPU間需要設(shè)置高速緩存Cache,斷電后其內(nèi)容丟失。③存儲器的兩個重要技術(shù)指標：存取速度和存儲容量。狀態(tài)最容易實現(xiàn)，表示、即用二進制數(shù)表示計算機內(nèi)部的所有運算和操作。所能表示的數(shù)的范圍有限，計算結(jié)果容易溢出。gb2312,它也被稱作國際碼。它由兩個字節(jié)組成，兩個字節(jié)的最高位都為1。

　　

【正文】 為 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ù)組元素輸出。通常也用循環(huán)結(jié)構(gòu)來完成這一功能： for i： =1 to 10 do write(a[i],39。39。)； {數(shù)組元素之間用空格分隔 } writeln； 數(shù)組的應(yīng)用： 例 1：從鍵盤輸入 10 個數(shù)，將這 10 個數(shù)逆序輸入，并求這 10 個數(shù)的和，輸出這個和。 program p1； var a： array[]of integer； i,s： integer； begin for i： =1 to 10 do read(a[i])； for i： =10 downto 1do write(a[i],39。39。)； writeln； s： =0； for i： =1 to 10 do s： =s+a[i]； writeln(39。s=39。,s)； end. 例 2：用篩法求 100 以內(nèi)的素數(shù) (質(zhì)數(shù) )。 分析：素數(shù)是除了 1和它本身以外沒有其它約數(shù)的數(shù)。用篩法求素數(shù)的方法是：用質(zhì)數(shù)篩去合數(shù)：從第一個素數(shù) 2 開始，把它的倍數(shù)去掉；這樣 2以后的第一個非 0數(shù)就一定也是素數(shù)，把它的倍數(shù)也刪了…重復這個刪數(shù)過程，直到在所找到的素數(shù)后再也找不到一個非 0 數(shù)。把所有非 0數(shù)輸出。 program p2； var a： array[]of integer； i,j,k： integer； begin for i： =1 to 100 do a[i]： =i； a[1]： =0； i： =2； while i=100 do begin k： =i； while k=100 do begin k： =k+i； a[k]： =0； end； {上面將所有 a[i]的倍數(shù)清 0} i： =i+1； while a[i]=0 do i： =i+1； {查找接下來的第一個非 0 數(shù) } end； for i： =1 to 100 do if a[i]0 then write(a[i],39。39。)； end. 二維數(shù)組 一維數(shù)組在編程中多用于描述線性的關(guān)系：如一組數(shù)；一組成績；一組解答等。數(shù)組元素只有一個下標，表明該元素在數(shù)組中的位置。二維數(shù)組在編程中多數(shù)用于描 述二維的關(guān)系：如地圖、棋盤、城市街道、迷宮等等。而二維數(shù)組元素有兩個下標：第一個下標表示該元素在第幾行，第二個下標表示在第幾列。 ： var a： array[,]of integer； 其中： a是數(shù)組名，由程序員自定； array 和 of 是定義數(shù)組的保留字； (這兩點和一維數(shù)組定義的格式一樣 )中括號中的兩個范圍表示二維數(shù)組共有多少行、多少列 (第一個范圍表示行數(shù)，第二個范圍表示列數(shù) )；最后一個表示數(shù)組元素的類型，規(guī)定和一維數(shù)組一樣。如上例，定義了一個二維數(shù)組 a，共有 10行 5列。 ： 數(shù)組元素的指稱：數(shù)組名 [行號，列號 ]。如第三行第四個元素： a[3,4]。 對某一行進行處理。如累加第 4行的數(shù)據(jù)。則固定行號為 4。如： for i：=1 to 5do s： =s+a[4,i]； 對某一列進行處理。如累加第 4列的數(shù)據(jù)。則固定列號為 4。如： for i：=1 to 10 do s： =s+a[i,4]； 二維數(shù)組的輸入輸出要用雙重循環(huán)來控制： for i： =1 to 10 do{控制行數(shù) } begin for j： =1 to 5do read(a[i,j]){第一行讀 入 5個元素 } readln； {讀入一個換行符 } end； {最常用的方法：從鍵盤讀入數(shù)據(jù)初始化二維數(shù)組 } for i： =1 to 10 do for j： =1 to 5do a[i,j]： =0； {最常用的方法：將二維數(shù)組清 0} for i： =1 to 10 do begin for j： =1 to 5do write(a[i,j]： 4)； writeln； end； {最常用的輸出方法：按矩陣形式輸出二維數(shù)組的值 } 例 1：競賽小組共有 20 位同學，這學期每位同學共參與了三項比賽，請統(tǒng)計每位同 學的平均分。 分析：定義一個 20 行 3列的二維數(shù)組來存放這些成績。定義一個 20個元素的一維數(shù)組來存放平均分。 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個同學的三次競賽成績 } 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. 字符串 。通常編程中使用字符串存放字符化了的數(shù)字數(shù)據(jù)。如高精度運算時存放操作數(shù)和運算結(jié)果。字符串可以看作是特殊的字符串數(shù)組來處理。當然， 它也有自已的特點。下面是字符串定義的格式： var s： string； s1： string[15]； 字符串定義時，如不指定長度，則按該類型的最大長度 (255 個字符 )分配空間，使用時最大可用長度為 255 個；如果在中括號中給出一個具體的值 (1255 之間 )，則按這個值的大小分配空間。使用時，最大的可用長度即為該值。 、輸出： 字符串類型既可按數(shù)組方式輸入、輸出，也可直接輸入、輸出： readln(s)；writeln(s)；多個字符串輸入時以回車作為數(shù)據(jù)間的分隔符；每個 readln 語句只能讀入一個 字符串。 ： 操作類型作用返回值例子 length(s)函數(shù)求字符串 s 的長度整型 s： =39。12345678939。； l： =length(s)； {l 的值為 9} copy(s,w,k)函數(shù)復制 s中從 w開始的 k 位字符串 s： =39。12345678939。； s1： =copy(s,3,5)； {s1 的值是 39。3456739。} val(s,k,code)過程將字符串 s轉(zhuǎn)為數(shù)值，存在 k中； code 是錯誤代碼 var s： string； k,code： integer； begin s： =39。123439。； val(s,k,code)； write(k)； {k=1234} str(i,s)過程將數(shù)值 i轉(zhuǎn)為字符串 si： =1234； str(i,s)； write(s)； {s=39。123439。} Delete(s,w,k)過程在 s中刪除從第 w位開始的 k個字符 s： =39。Honest Abe Lincoln39。； Delete(s,8,4)； Writeln(s)； {39。Honest Lincoln39。} Insert(s1,S,w)過程將 s1 插到 s 中第 w 位 S： =39。Honest Lincoln39。； Insert(39。Abe39。,S,8)； {39。Honest Abe Lincoln39。} Pos(c,S)函數(shù)求字符 c在 s中的位置整型 S： =39。39。； i： =Pos(39。39。,S)； {i 的值為 1} +運算符將兩個字符串連接起來 s1： =39。123439。； s2： =39。567839。； s： =s1+s2； {39。1234567839。} 第七章函數(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。n=(100)39。)； readln(n)； for i： =1 to ndo repeat write(39。a[39。,i,39。]=39。)； 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。GCD=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ù)在語法上相當于一個表達式，所以，調(diào)用時，函數(shù)不能獨立成為一個語句；它可以出現(xiàn)在任何表達式可以出現(xiàn)的地方。 例如賦值語句的右邊： X： =函數(shù)名 (實在參數(shù)表 )； {X 的類型與函數(shù)類型必須一致 } 又，如果函數(shù)類型是 boolean，則還可以出現(xiàn)在條件語句中，充當條件表達式： if 函數(shù)名 (實在參數(shù)表 )then… 例 3：編一程序，求從 10 名同學中選出 3名代表，有幾種不同的選法。 (公式： 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。m,n=39。)； readln(m,n)； c： =factor(m)div(factor(n)*factor(mn))； {調(diào)用 } writeln(39。c(39。,m,39。,39。,n,39。)=39。,c)； end. 數(shù)學知識 一、排列與組合 加法原理與乘法原理 ： 做一件事情，完成它可以有 n 類辦法，在第一類辦法中有 m1 種不同的方法，在第二類辦法中有 m2 種不同的方法，…，在第 n 類辦法中有 mn 種不同的方法。那么完成這件事共有 N=m1+m2+.+mn 種不同的方法。 ： 做一件事情，完成它需要分成 n個步驟，做第一步有 m1 種不同的方法，做第二步有 m2 種不同的方法，…，做第 n步有種 mn 不同的方法，那么完成這件事有 N=m1*m2*.*mn 種不同的方法。 ：一個與分類有關(guān)，一個與分步有關(guān)；加法原理是 分類完成 ，乘法原理是 分步完成 。 練習： 1， 2， 3， 4， 5 可以組成多少個三位數(shù) (各位上的數(shù)字允許重復 )? 0、 1， 2， 3， 4， 5 可以組成多少個三位數(shù) (各位上的數(shù)字允許重復 )? 0， 1， 2， 3， 4， 5 可以組成多少個十位數(shù)字大于個位數(shù)字 的兩位數(shù) ? ,各位上數(shù)字由 0,1,2,3,4,5,6,7,8,9 十個數(shù)字組成 ,可以設(shè)置多少種三位數(shù)的密碼 (各位上的數(shù)字允許重復 )?首位數(shù)字不為 0的密碼數(shù)是多少種 ?首位數(shù)字是 0的密碼數(shù)又是多少種 ? ，要給地圖 A、 B、 C、 D四個區(qū)域分別涂上 3 種不同顏色中的某一種，允許同一種顏色使用多次，但相鄰區(qū)域必須涂不同的顏色，不同的涂色方案有多少種 ? 22 名女生， 23名男生 . 選一位學生代表班級去領(lǐng)獎，有幾種不同選法 ? 選出男學生與女學生各一名去參加智力競賽，有幾種不同的選法 ? 有多少個約數(shù) ?并將這些約數(shù)寫出來 . 5 幅不同的國畫、 2幅不同的油畫、 7幅不同的水彩畫中選不同畫種的兩幅畫布置房間，有幾種選法 ? x、 y 可以取 1， 2， 3， 4， 5 中的任一個，則點 (x,y)的不同個數(shù)有