一、基本知識

1、Pascal程序基本組成

2、Pascal數(shù)據(jù)類型

3、標(biāo)準(zhǔn)函數(shù)

4、運(yùn)算符和表示式

5、基本語句二、程序三種基本結(jié)構(gòu)：

1、次序結(jié)構(gòu)

2、選擇結(jié)構(gòu)（if語句）

3、循環(huán)結(jié)構(gòu)（for語句、while語句）三、數(shù)組

1、一維數(shù)組

2、多維數(shù)組

3、字符數(shù)組與字符串Pascal語言回顧第1頁1、Pascal程序基本組成

例1：計(jì)算半徑為R圓面積S

programArea;{程序首部}:能夠省略不寫

constpi=3.14159;{常量說明}{說明部分}

vars,r:real;{變量說明}

begin

readln(r);

s:=pi*sqr(r);

writeln('s=',s);

end.

保留字程序名{執(zhí)行部分}

一、基本知識第2頁2、Pascal數(shù)據(jù)類型

在這里主要回顧整型、實(shí)型、字符型和布爾型1)整型

類型數(shù)值范圍占字節(jié)數(shù)Shortint-128..1271Byte0..2551Integer-32768..32767;2Word0..655352Longint-2147483648..2147483647(9位)4Longword0..42949672954Int64-9223372036854775808..92233720368547758078

QWord0..184467440737095516158

（整數(shù)部分19位）第3頁2)實(shí)數(shù)類型數(shù)值范圍有意義位數(shù)占字節(jié)數(shù)Real依賴于平臺???4or8Single1.5E-45..3.4E387-84Double5.0E-324..1.7E30815-168Extended1.9E-4951..1.1E493219-2010Comp-2E64+1..2E63-119-2083)布爾型

一個(gè)布爾型數(shù)據(jù)用來存放邏輯值（布爾值）。布爾型值只有兩個(gè)：false和true

vara,b:boolean;A:=4>3;b:=2>3;第4頁4)字符型

字符型用char作為標(biāo)識符。字符型必須用單引號括起來，字母作為字符型時(shí)，大小寫是不等價(jià)，而且字符型只允許單引號中有一個(gè)字符，不然就是字符串。Vars:char;s:=‘B’算術(shù)函數(shù)

函數(shù)標(biāo)識符自變量類型意義結(jié)果類型

abs(x)整型、實(shí)型絕對值同自變量

int(x)整型、實(shí)型整數(shù)部分整型

sqrt(x)整型、實(shí)型平方根實(shí)型

如：abs(2-5)=3,int(4.99)=4,sqrt(9)=3.03、標(biāo)準(zhǔn)函數(shù)

第5頁4、運(yùn)算符和表示式

1)運(yùn)算符a.算術(shù)運(yùn)算符

運(yùn)算符運(yùn)算運(yùn)算對象結(jié)果類型

+加整型、實(shí)型只要有一個(gè)運(yùn)算對象是實(shí)型，結(jié)果就

-減整型、實(shí)型是實(shí)型，假如全部運(yùn)算對象都是整

*乘整型、實(shí)型型而且運(yùn)算不是除法，則結(jié)果為整型

/除整型、實(shí)型若運(yùn)算是除法，則結(jié)果是實(shí)型。

div整除整型整型

mod取余(模)整型整型15Div6=2

(-15)div6=-2

15Div(-6)=-2

(-15)div(-6)=215mod6=3

(-15)mod6=-3

15mod(-6)=3

(-15)mod(-6)=-3第6頁b.邏輯運(yùn)算符

運(yùn)算符運(yùn)算運(yùn)算對象結(jié)果類型

not邏輯非布爾型布爾型

and邏輯與布爾型布爾型

or邏輯或布爾型布爾型c.關(guān)系運(yùn)算符

運(yùn)算符運(yùn)算運(yùn)算對象結(jié)果類型

=等于簡單類型布爾型

<>不等于簡單類型布爾型

<小于簡單類型布爾型

>大于簡單類型布爾型

<=小于等于簡單類型布爾型

>=大于等于簡單類型布爾型(2>3)and(4>3)、(2>3)or(4>3)、not(2>3)第7頁2)表示式：是經(jīng)過運(yùn)算符把常量、變量、函數(shù)調(diào)用結(jié)合起來組成。PASCAL表示式有以下計(jì)算優(yōu)先次序規(guī)則：1.括號內(nèi)表示式首先計(jì)算；2.運(yùn)算符優(yōu)先級有四級，按其優(yōu)先次序從高到低排列為：not；*，/，div，mod，and，shl，shr；+，-，or；=，<>，>，<，<=，>=，IN；不一樣優(yōu)先級兩運(yùn)算符之間操作數(shù)先與含有較高優(yōu)先級運(yùn)算符進(jìn)行運(yùn)算；3.同級運(yùn)算從左到右進(jìn)行；另外，有一點(diǎn)需要指出是，因?yàn)殛P(guān)系運(yùn)算符優(yōu)先級最低，當(dāng)用關(guān)系式結(jié)構(gòu)復(fù)雜布爾表示式時(shí)，這些關(guān)系式作為初等條件必須放在括號里。如:(x<y)and(z=y)or(x=0)若不加括號，就是一個(gè)錯(cuò)誤表示式。

第8頁5、基本語句

1）賦值語句

賦值語句是最簡單語句.

（1）賦值語句格式變量名:=表示式；其中“:=”稱為賦值號。（2）執(zhí)行過程先計(jì)算賦值號右邊表示式值，然后將表示式值賦給變量名代表變量。如：A：=（9*8）-（2-1）;

（A←（9*8）-（2-1）;）A:=A+1

（A←A+1）第9頁２）輸入語句read和readln功效：從鍵盤或文件讀入數(shù)據(jù)項(xiàng)，并把它存到變量中去，使該數(shù)據(jù)能在以后計(jì)算中使用。輸入語句普通形式為：read(v1，v2，…，vn)；readln(v1，v2，…，vn)；從鍵盤依次讀入數(shù)據(jù)，分別賦給變量v1，v2，…，vn，一次輸入多個(gè)數(shù)據(jù)值時(shí)，要求數(shù)據(jù)之間用空格分隔，假如是字符類型數(shù)據(jù)，則不需要分隔。readln語句要求輸入數(shù)據(jù)后必須回車，使得后繼操作從下一行頭上開始。第10頁read語句與readln語句區(qū)分是：（1）readln語句與read語句第一個(gè)區(qū)分是:read后一定要有參數(shù)表，readln能夠不帶參數(shù)表，即能夠沒有任何輸入項(xiàng),只是等候讀入一個(gè)換行符(回車)。經(jīng)慣用于暫停程序運(yùn)行，直到輸入一個(gè)回車。（2）readln語句與read語句第二個(gè)區(qū)分是:read語句是一個(gè)接一個(gè)地讀數(shù)據(jù)，在執(zhí)行完本read語句(讀完本語句中變量所需數(shù)據(jù))后,下一個(gè)讀語句接著從該數(shù)據(jù)輸入行中繼續(xù)讀數(shù)據(jù)，也就是說，不換行。如：Read(a,b);Read(c,d);Read(e);假如輸入數(shù)據(jù)行以下:1□2□3□4□5□6□←┘則a,b,c,d,e值分別為1,2,3,4,5,假如后面無讀語句則數(shù)據(jù)6是多出，這是允許。

第11頁

Readln則不一樣，在讀完本Readln語句中變量所需數(shù)據(jù)后,該數(shù)據(jù)行中剩下數(shù)據(jù)多出無用，或者說，在讀完本Readln語句中變量所需數(shù)據(jù)后，一定要讀到一個(gè)回車，不然多出數(shù)據(jù)無用。設(shè)有以下語句:read(a,b,c);read(d,e);readln;readln(f,g);其中,全部變量均為整型。再設(shè)輸入數(shù)據(jù)以下：1□2←┘3□4□5□6□7□8←┘9□10←┘11←┘

第12頁３)輸出語句write和writeln功效：把程序計(jì)算結(jié)果，按適當(dāng)形式輸出到屏幕或文件。（1）write語句格式：write(表示式1，表示式2，……)；如:write(x,5,a+b);write(‘MynameisLiping’);（2）writeln語句格式:writeln(表示式1，表示式2，……);或writeln;第13頁write語句與writeln語句格式上都相同，但它們在功效上有所不一樣，兩個(gè)語句區(qū)分在于:write語句將其后括號中表示式一個(gè)接一個(gè)輸出后，沒有換行。而writeln語句則在輸出各個(gè)表示式值后換行。比如以下兩個(gè)程序段輸出分別為：write(1,2,3,4);write(5,6);輸出為：123456writeln(1,2,3,4);write(5,6);輸出為：123456第14頁４)實(shí)數(shù)輸出格式實(shí)數(shù)（real）以浮點(diǎn)型格式輸出。比如805.67對應(yīng)浮點(diǎn)數(shù)為8.0567000000E+02。這種實(shí)數(shù)表示方式很不方便。我們能夠經(jīng)過下述形式強(qiáng)迫實(shí)數(shù)以定點(diǎn)型格式輸出：

實(shí)數(shù)表示式：域?qū)挘盒?shù)位數(shù)比如，t值設(shè)為63.123。下面三條輸出語句分別有它們右邊所表示輸出格式：write(t)；6.31230000000E+01write(t：6：2)；63.12write(t：10：5)；63.12300

write(t：0：2)；63.12write(t：0：0)；63第15頁二、程序三種基本結(jié)構(gòu)一）次序結(jié)構(gòu)

程序按照語句書寫先后次序逐句執(zhí)行，直到程序結(jié)束。Pascal程序中，次序結(jié)構(gòu)是一個(gè)最簡單基本結(jié)構(gòu)。假如不去局部考慮程序中選擇結(jié)構(gòu)和循環(huán)結(jié)構(gòu)，把它們看作是一個(gè)復(fù)合語句話，那么程序本身就能夠看作是一個(gè)次序結(jié)構(gòu)；反過來更細(xì)地去看選擇結(jié)構(gòu)或循環(huán)結(jié)構(gòu)成份，那么它們主要運(yùn)行部分（被選擇語句或循環(huán)體），實(shí)際上又是一個(gè)屬于次序結(jié)構(gòu)復(fù)合語句。二)選擇結(jié)構(gòu)１、if語句

IF語句是由一個(gè)布爾表示式和兩個(gè)供選擇操作序列組成。運(yùn)行時(shí)依據(jù)布爾表示式求值結(jié)果，選取其中之一操作序列執(zhí)行。有兩種形式IF語句：第16頁例1:輸入一個(gè)整數(shù)ａ，判斷是否為偶數(shù)。（是輸出“ｙｅｓ”不然輸出“ｎｏ”）。vara:integer;beginreadln(a);if(amod2=0)thenwriteln(‘yes’)elsewriteln(‘no’);end.格式二：

if<布爾表示式>then<語句1>else

<語句2>；格式一：

if<布爾表示式>then<語句>；注意:else前面沒有分號.第17頁IF語句嵌套在if語句中，假如then子句或else子句仍是一個(gè)if語句，則稱為if語句嵌套。例2計(jì)算以下函數(shù)

分析：依據(jù)輸入x值，先分成x>0與x≤0兩種情況，然后對于情況x≤0，再區(qū)分x是小于0，還是等于0。varx:real;y:integer;beginreadln(x);ifx>0theny:=1｛x>0時(shí)，y值為1｝else｛x≤0時(shí)｝ifx=0theny:=0elsey:=-1;writeln('x=',x:6:2,'y=',y);end.

1，x>0Y=0,x=0-1,x<0第18頁2、case語句

case語句是由一個(gè)表示式和眾多可選擇操作序列組成。運(yùn)行時(shí)，依據(jù)表示式求值結(jié)果，在眾多分支中選取一個(gè)分支執(zhí)行。其形式為：

case表示式of

常量1：語句1;

常量2：語句2;

……

常量n：語句n;

else語句n+1

｛可選項(xiàng)｝

end;

第19頁例:依據(jù)學(xué)生成績給予對應(yīng)等級，對應(yīng)關(guān)系以下：

90—100A

80—89B

60—79C

60以下Dvars:real;ch:char;

begin

readln(s);

casetrunc(s/10)of

10,9:ch:='A';

8:ch:='B';

7,6:ch:='C';

elsech:='D';

end;

writeln(ch);

end.Vars:real;ch:char;beginreadln(s);if(s>=90)and(s<=100)thench:='A';if(s>=80)and(s<=89)thench:='B';if(s>=60)and(s<=79)thench:='C';ifs<60thench:='D';writeln(ch);end.第20頁

三）循環(huán)結(jié)構(gòu)

循環(huán)結(jié)構(gòu)程序通常由三種循環(huán)語句來實(shí)現(xiàn)。它們分別為for循環(huán)、當(dāng)循環(huán)while、直到repeat循環(huán)。在編寫程序時(shí)，若循環(huán)次數(shù)已知，通常采取for語句；若循環(huán)次數(shù)未知，則應(yīng)選取while或repeat語句。在進(jìn)行循環(huán)程序設(shè)計(jì)時(shí)，一定要搞清楚在循環(huán)前要做什么事（通常在循環(huán)前要做一些準(zhǔn)備工作，如累加器、計(jì)數(shù)器清零，變量賦初始值等），在循環(huán)中需要做什么事，處理什么問題，在循環(huán)后又要做什么問題。通常將一組重復(fù)執(zhí)行語句稱為循環(huán)體，而控制重復(fù)執(zhí)行或終止執(zhí)行由重復(fù)終止條件決定。所以，重復(fù)語句是由循環(huán)體及重復(fù)終止條件兩部分組成。第21頁例1、鍵入一個(gè)自然數(shù)N（<=10000），求這個(gè)自然數(shù)全部約數(shù)(不包含1和本身)之和S。varn,i,s:integer;beginread(n);s:=0;fori:=2ton-1doifnmodi=0thens:=s+i;writeln('s=',s);end.for語句1、for語句普通格式

for<控制變量>:=<表示式1>to<表示式2>do<語句>;for<控制變量>:=<表示式1>downto<表示式2>do<語句>;其中for、to、downto和do是Pascal保留字。表示式1與表示式2值也稱為初值和終值。第22頁例2、從鍵盤上輸入n個(gè)數(shù)，求出他們最大數(shù)，最小數(shù)，平均數(shù)。

varn,i,max,min,x:longint;sum:real;beginread(n);read(x);max:=x;min:=x;sum:=x;

fori:=1ton-1dobeginread(x);sum:=sum+x;ifx>maxthenmax:=x;ifx<minthenmin:=x;end;writeln('max:',max);writeln('min:',min);writeln('aver:',sum/n:0:2);end.第23頁例3、求100以內(nèi)素?cái)?shù)（質(zhì)數(shù)）：除了1和本身不再有別約數(shù)。每行輸出一個(gè)素?cái)?shù)。varn,i,f:integer;{F:標(biāo)志，1：是素?cái)?shù)，0：不是素?cái)?shù)}beginforn:=2to100dobeginf:=1;fori:=2totrunc(sqrt(n))doifnmodi=0thenbeginf:=0;break;{n不是素?cái)?shù)，退出本層循環(huán)}end;iff=1thenwriteln(n);end;end.第24頁while循環(huán)（repeat循環(huán)）當(dāng)循環(huán)次數(shù)未知，只能依據(jù)某一條件來決定是否進(jìn)行循環(huán)時(shí)，用while語句（repeat語句）實(shí)現(xiàn)循環(huán)要更方便。格式：while<布爾表示式>do<語句組>；其意義為：當(dāng)布爾表示式值為true時(shí)，執(zhí)行do后面語句。格式：repeat<語句組>；<語句組>；…;until<布爾表示式>；其意義為：先執(zhí)行循環(huán)語句，再判斷條件，當(dāng)布爾表示式值為false時(shí)，繼續(xù)執(zhí)行循環(huán)，不然退出循環(huán)。第25頁分析：“恰好使s值大于10”意思是當(dāng)表示式s前n-1項(xiàng)和小于或等于10，而加上了第n項(xiàng)后s值大于10。從第一項(xiàng)開始，當(dāng)s值小于或等于10時(shí)，就繼續(xù)將下一項(xiàng)值累加起來。當(dāng)s值超出10時(shí)，最終一項(xiàng)項(xiàng)數(shù)即為要求n。程序以下：vars:real;n:integer;begins:=0;n:=0;whiles<=10dobeginn:=n+1;s:=s+1/n;end;writlen(n);end.例1

、求恰好使s=1+1/2+1/3+…+1/n值大于10時(shí)n值。vars:real;n:integer;begins:=0;n:=0;repeatn:=n+1;s:=s+1/n;untils>10;writlen(n);end.第26頁例2、編一個(gè)程序，從鍵盤輸入一個(gè)真分?jǐn)?shù)分子和分母，輸出它小數(shù)形式，準(zhǔn)確到小數(shù)點(diǎn)后1000位。

varn,m,r,q,i:integer;beginread(n,m);r:=n;write('0.');i:=1;whilei<=1000dobeginq:=10*rdivm;r:=10*rmodm;write(q);i:=i+1;end;end.第27頁三、數(shù)組與字符串一）數(shù)組1.數(shù)組定義

數(shù)組是程序中最慣用結(jié)構(gòu)數(shù)據(jù)類型，用來描述由固定數(shù)目標(biāo)同一類型元素組成數(shù)據(jù)結(jié)構(gòu)。一維數(shù)組類型定義一維數(shù)組類型普通格式：array[下標(biāo)1..下標(biāo)2]of<基類型>;普通在定義數(shù)組類型標(biāo)識符后定義對應(yīng)數(shù)組變量，如：typearraytype=array[1..100]ofinteger;vara,b:arraytype;或：vara,b:array[1..100]ofinteger;第28頁1、從鍵盤上次序輸入n數(shù)，按次序和逆序輸出。varn,i:integer;a:array[1..100]ofinteger;beginread(n);fori:=1tondoread(a[i]);fori:=1tondowrite(a[i],’‘);fori:=ndownto1dowrite(a[i],’‘);end.第29頁vark,n,i:integer;a:array[1..20]ofbyte;beginreadln(k);i:=0;whilek<>0dobegini:=i+1;a[i]:=kmod2;{取余}k:=kdiv2;{取整數(shù)}end;forn:=idownto1do{反序輸出數(shù)組}write(a[n]);end.2、編程將一個(gè)十進(jìn)制整數(shù)k轉(zhuǎn)化為二進(jìn)制數(shù)（k<10000）。第30頁3、編程將一個(gè)十進(jìn)制整數(shù)k轉(zhuǎn)化為N進(jìn)制數(shù)（k<10000,2<=N<=10，n=16）。vark,n,i:integer;a:array[1..20]ofbyte;beginreadln(k,n);i:=0;whilek<>0dobegini:=i+1;a[i]:=kmodn;{取余數(shù)}k:=kdivn;{取整}end;forn:=idownto1do{反序輸出數(shù)組}ifa[n]<=9thenwrite(a[n])elsewrite(chr(a[n]+55));{輸出10到15對應(yīng)A到F}end.第31頁二)字符串類型

var：a：string;或var：a：string[n];其中正整數(shù)n(1<=n<=255)表示組成字符串字符最多個(gè)數(shù)，即通常所說字符串最大長度。而字符串實(shí)際長度決定程序運(yùn)行時(shí)實(shí)際字符個(gè)數(shù)，能夠由函數(shù)length返回。若字符串說明中沒有指定長度，缺省值為255。慣用主要字符串函數(shù)：

length(x):返回字符串x長度。如：s=‘a(chǎn)bcd’;length(s)=4pos(x,s):返回子串在串s中位置，pos(‘book’,’mybooked’)=3copy(s,I,j):返回串s中從第i個(gè)字符開始j個(gè)字符子串。

S1=copy(‘mybooked’,3,4)則s1=‘book’第32頁4、輸入一個(gè)正整數(shù)n（<10250）,求它各位數(shù)字之和S。varn:string;s,k,i:integer;beginreadln(n);k:=length(n);{字符串長度k}s:=0;fori:=1tokdos:=s+ord(n[i])-48;writeln(s);end.第33頁5、編程驗(yàn)證一個(gè)數(shù)是不是是回文數(shù)（<10250）

（一個(gè)數(shù)第一位和倒數(shù)第一位相同，第二位和倒數(shù)第二位相同。。。。。。。如：13531，3443）。vara:string;i,j,k:integer;beginreadln(a);k:=length(a);i:=1;j:=k;while(a[i]=a[j])and(i<j)dobegini:=i+1;j:=j-1;end;ifi>=jthenwriteln('yes')elsewriteln('no');end.第34頁6、任何一個(gè)n3一定能夠表示成n個(gè)連續(xù)奇數(shù)和。輸入n(n≤100)，輸出n3對應(yīng)表示式。樣例：輸入：3輸出：7+9+11題解：設(shè)表示式中最小奇數(shù)為x。則：x+(x+2)+(x+4)+……+(x+2(n-1))=n3即：nx+2(1+2+3+……+n-1)=n3nx+n(n-1)=n3得：x=n*n-n+1=n*(n-1)+1varn,x,i:integer;beginreadln(n);{讀入n}x:=n*(n-1)+1;{求出第一個(gè)奇數(shù)}fori:=1ton-1do{輸出前n-1個(gè)奇數(shù)}beginwrite(x,'+');x:=x+2;{下一個(gè)奇數(shù)}end;writeln(x);{輸出第n個(gè)奇數(shù)}end.第35頁7、統(tǒng)計(jì)輸入字符串中字母頻率從鍵盤上輸入一字符串，該字符串全部由英文字母組成，以#作為輸入結(jié)束標(biāo)志。要求程序完成：統(tǒng)計(jì)輸入字符串中每個(gè)字母出現(xiàn)次數(shù)（不分大小寫）。如：輸入字符串為：adAabcdacdfg#輸出結(jié)果應(yīng)為：a4b1c2d3f1g1第36頁varch:char;n,i:integer;a:array[1..26]ofinteger;{統(tǒng)計(jì)字母出現(xiàn)次數(shù)}begin

fillchar(a,sizeof(a),0);{初始化}read(ch);whilech<>‘#’do{讀如字符}beginif(ch>='A')and(ch<='Z')theni:=ord(ch)-ord('A')+1;if(ch>='a')and(ch<='z')theni:=ord(ch)-ord('a')+1;a[i]:=a[i]+1;{對應(yīng)字符數(shù)目加1}read(ch);end;fori:=1to26do{輸出字符及出現(xiàn)次數(shù)}ifa[i]>0thenwriteln(chr(i+64),’’,a[i]);end.第37頁8、刪數(shù)問題鍵盤輸入一個(gè)正整數(shù)Ｎ，去掉其中任意Ｓ個(gè)數(shù)字后剩下數(shù)字按原左右次序?qū)⒔M成一個(gè)新正整數(shù)。編程對給定Ｎ和Ｓ，尋找一個(gè)方案使得剩下數(shù)字組成新數(shù)最小。（Ｎ不超出２４０位）輸入：兩行，第一行：正整數(shù)n，第二行：正整數(shù)S。輸出：n去掉s個(gè)數(shù)字后組成新正整數(shù)m。樣例：輸入：1230062輸出：100642876000546723971045400028762121457894第38頁分析：所刪除每一個(gè)數(shù)字是一個(gè)從首位開始最長連續(xù)不下降序列最末位數(shù)字。varn:string;s,i:integer;beginreadln(n);{輸入數(shù)字}read(s);{輸入刪除數(shù)字個(gè)數(shù)}whiles>0dobegini:=1;while(i<length(n))and(n[i]<=n[i+1])doinc(i);{尋找不下降序列}delete(n,i,1);{刪除不下降序列末位}dec(s);end;while(length(n)>1)and(n[1]='0')dodelete(n,1,1);{刪除處理后開頭0，并確保n不為空}writeln(n);end.第39頁9、燈開關(guān)狀態(tài)有N個(gè)燈放在一排，從1到N依次次序編號。有N個(gè)人也從1到N依次編號。開始時(shí),全部燈是開。1號將燈全部關(guān)閉，2將凡是2倍數(shù)燈打開；3號將凡是3倍數(shù)燈作相反處理(該燈如為打開，則將它關(guān)閉；如關(guān)閉，則將它打開)。以后人都和3號一樣，將凡是自己編號倍數(shù)燈作相反處理。編程實(shí)現(xiàn)：第N個(gè)人操作后，按次序輸出燈狀態(tài)。(1-表示燈打開，0-表示燈關(guān)閉)輸入：n(n<=100)，燈個(gè)數(shù)，輸出：燈狀態(tài)，01序列，中間無空格。樣例：輸入：2輸出：01第40頁vark,n,i,j:integer;a:array[1..100]of0..1;{統(tǒng)計(jì)燈狀態(tài),0:關(guān)閉,1:打開}beginreadln(n);{讀入燈個(gè)數(shù)}fori:=1tondoa[i]:=1;{初始狀態(tài):打開}fori:=1tondobeginj:=i;{從第i號隊(duì)員出發(fā)進(jìn)行第i次操作}whilej<=ndobegina[j]:=1-a[j];{將凡是i倍數(shù)燈作取反處理}j:=j+i;end;end;fori:=1tondowrite(a[i]);end.第41頁三）多維數(shù)組及應(yīng)用。當(dāng)一維數(shù)組元素類型也是一維數(shù)組時(shí)，便組成了二維數(shù)組。二維數(shù)組定義普通格式：array[下界1..上界1，下界2..上界2]of元素類型