【正文】 67 8在程序段一執(zhí)行時，read(a)；語句接收了第一個數(shù)據(jù)1并將它賦給變量a；接著執(zhí)行第二個語句readln(b,c)；，接收了第一行數(shù)據(jù)中的3并把它們分別賦給變量b,c，同時，把本行其它數(shù)據(jù)全部屏蔽掉，也就是宣布它們?nèi)孔鲝U。因此，我們可以得出結(jié)論：語句read只管接收數(shù)據(jù)，語句readln接收完數(shù)據(jù)后，還把同行的其它數(shù)據(jù)全部宣布作廢。這個語句通常用在需要暫停的地方。寫(write)語句是Pascal中唯一能將運(yùn)算結(jié)果送出顯示在顯示器屏幕的語句。輸出量可以是：變量。輸出多個變量時，變量間用,分隔。輸出的是表達(dá)式的值。直接輸出常量值。write(39。：n)；句子的意思是以n個字符寬度輸出冒號前數(shù)據(jù)項，如果數(shù)據(jù)項長度不足n，則前面以空格補(bǔ)齊；如果數(shù)據(jù)項長度大于n，則以實(shí)際長度輸出。例2：數(shù)據(jù)項間隔。則數(shù)據(jù)間至少分隔一個空格。實(shí)型數(shù)據(jù)不帶格式限制時，以科學(xué)計數(shù)法的形式輸出，和我們的一般書寫習(xí)慣不同。第四章選擇結(jié)構(gòu)程序設(shè)計 IF語句條件語句用于響應(yīng)一個條件的兩個方面。又如：如果已經(jīng)搜索得到結(jié)果，就打印出答案；否則(還沒得到結(jié)果)就繼續(xù)搜索。IF、THEN、ELSE都是語句的一個部分。如果我們的程序只需對條件為真的情況作出處理，不需要處理條件為假的情況，則IF語句省略ELSE分句，格式變成：IF條件THEN語句1；{條件為真時的響應(yīng)、處理}如：如果數(shù)a大于等于0則輸出它的平方根。if語句可以多層嵌套。program tt；var a,b：integer；begin write(39。)；readln(a,b)；if ab then writeln(a)else writeln(b)；end. CASE語句分情況語句適用于對一個條件的多種情況的響應(yīng)。，其類型與表達(dá)式的類型一致例2：某全自動加油站a,b,c三種汽油的單價(元/kg)、也提供了自己加或協(xié)助加兩個服務(wù)等級，這樣用戶可以得到5%或10%的優(yōu)惠。program pcase1；var oil,help：char；kg,total：real；begin write(39。)；readln(kg)；write(39。)；readln(oil)；wirte(39。)；readln(help)；case oil of39。：total：=*kg；39。：total：=*kg；39。：total：=*kg；else writeln(39。)end；{處理汽油的類型}case help of39。：；39。：total：=total*()；39。：total：=total*()；else writeln(39。)end；{處理服務(wù)類型}writeln；writeln(39。,total：10：2)；end.，但必須用語句括號(begin…end)括起例3：從鍵盤上讀入年和月，輸出該月有多少天。Enter year and month：39。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)控制變量：=循環(huán)初值DOWNTO循環(huán)終值DO循環(huán)語句遞減型FOR循環(huán)與遞增型FOR循環(huán)基本相同，只是循環(huán)控制變量每次遞減。所謂順序類型的變量，就是指整型，字符型，枚舉型，子界型，不允許是實(shí)型。例如：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ù)。，當(dāng)然也可以包含F(xiàn)OR語句，這就構(gòu)成了循環(huán)的嵌套，形成多重循環(huán)。*39。也就是說，嵌套的各層循環(huán)應(yīng)當(dāng)使用不同的變量作為循環(huán)變量。(2)保留關(guān)鍵字DO后面的語法只能是一條語句，稱為循環(huán)體；如果循環(huán)體中需要包含多個語句則應(yīng)該如上例所示，采用一條復(fù)合語句。 RepeatUntil語句REPEAT語句1語句2…語句n UNTIL布爾表達(dá)式例如：以下循環(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)鍵字。在它們之間可以有任意多個語句，這一點(diǎn)和FOR，WHILE循環(huán)不同，F(xiàn)OR，WHILE循環(huán)體在語法上只允許一條語句。(2)遇到UNTIL語句后，求布爾表達(dá)式的值。第六章數(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。下面是幾個常用輸入數(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)；{隨機(jī)產(chǎn)生10個100以內(nèi)的數(shù)，賦給各數(shù)組元素}數(shù)組元素的輸出：和數(shù)組元素的輸入相同，數(shù)組元素的輸出也不能由一個write語句直接完成。通常也用循環(huán)結(jié)構(gòu)來完成這一功能：for i：=1 to 10 do write(a[i],39。)；{數(shù)組元素之間用空格分隔}writeln；數(shù)組的應(yīng)用：例1：從鍵盤輸入10個數(shù)，將這10個數(shù)逆序輸入，并求這10個數(shù)的和，輸出這個和。39。s=39。分析：素數(shù)是除了1和它本身以外沒有其它約數(shù)的數(shù)。把所有非0數(shù)輸出。39。數(shù)組元素只有一個下標(biāo)，表明該元素在數(shù)組中的位置。而二維數(shù)組元素有兩個下標(biāo)：第一個下標(biāo)表示該元素在第幾行，第二個下標(biāo)表示在第幾列。如上例，定義了一個二維數(shù)組a，共有10行5列。如第三行第四個元素：a[3,4]。如累加第4行的數(shù)據(jù)。如：for i：=1 to 5do s：=s+a[4,i]；對某一列進(jìn)行處理。則固定列號為4。分析：定義一個20行3列的二維數(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個同學(xué)的三次競賽成績}for i：=1 to 20 do b[i]：=0；{先將平均分?jǐn)?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.。如高精度運(yùn)算時存放操作數(shù)和運(yùn)算結(jié)果。當(dāng)然，它也有自已的特點(diǎn)。使用時，最大的可用長度即為該值。：操作類型作用返回值例子length(s)函數(shù)求字符串s的長度整型s：=39。；l：=length(s)；{l的值為9}copy(s,w,k)函數(shù)復(fù)制s中從w開始的k位字符串s：=39。；s1：=copy(s,3,5)；{s1的值是39。}val(s,k,code)過程將字符串s轉(zhuǎn)為數(shù)值，存在k中；code是錯誤代碼var s：string；k,code：integer；begin 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。}Delete(s,w,k)過程在s中刪除從第w位開始的k個字符s：=39。；Delete(s,8,4)；Writeln(s)；{39。}Insert(s1,S,w)過程將s1插到s中第w位S：=39。；Insert(39。,S,8)；{39。}Pos(c,S)函數(shù)求字符c在s中的位置整型S：=39。；i：=Pos(39。,S)；{i的值為1}+運(yùn)算符將兩個字符串連接起來s1：=39。；s2：=39。；s：=s1+s2；{39。}第七章函數(shù)和過程procedure過程名(形式參數(shù)：參數(shù)說明)；{也可以不帶參數(shù)}var begin.end；過程名(實(shí)在參數(shù)表)；例1：求n個自然數(shù)的最大公約數(shù)；program gcd1；const maxn=100；var n,i,gcd：integer；a：array[]of integer；procedure enter；begin write(39。)；readln(n)；for i：=1 to ndo repeat write(39。,i,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)；end；begin enter；gcd：=a[1]；for i：=2 to ndo find_gcd(gcd,a[i])；print；end.function函數(shù)名(形參表)：函數(shù)類型；{函數(shù)首部}var{局部變量說明部分}begin{函數(shù)體}.{函數(shù)語句}.函數(shù)名：=表達(dá)式end；：函數(shù)在語法上相當(dāng)于一個表達(dá)式，所以，調(diào)用時，函數(shù)不能獨(dú)立成為一個語句；它可以出現(xiàn)在任何表達(dá)式可以出現(xiàn)的地方。(公式：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。)；readln(m,n)；c：=factor(m)div(factor(n)*factor(mn))；{調(diào)用}writeln(39。,m,39。,n,39。,c)；end.特別聲明：1：資料來源于互聯(lián)網(wǎng)，版權(quán)歸屬原作者2：資料內(nèi)容屬于網(wǎng)絡(luò)意見，與本賬號立場無關(guān)3：如有侵權(quán)，請告知，立