Pascal教程 上机指导

1、 Writeln(P=,P,S=,S)；end.若考虑100万元以上，在CASE前加一句：IFP=100THENS：=P*0.072.4Pascal中的CASS语句上机实验、预习若a:=15,则spr(a)=若a:=abs(-196),则sprt(a)=若a:=3.1416/4,则sin(a)=若a:=15.343,则trunc(a)=若a:=15.634,则trunc(a)=若a:=129.2423,则round(a)=若a:=129.5423,则round(a)=若x=trunc(12.45),则pred(x)=若x=round(121.01),则odd(x)=sqr(-a)=sqrt(a

2、*16)=cos(a)=trunc(-a)=trunc(-a)=round(-a)=round(-a)=succ(-x)=odd(xDIV4)=若x=150,则关系式xDIV260的值为：若x=150,则关系式xMOD20的值为：若x=115,则关系式xdiv2=0的值为：若x=126,则关系式xdiv2=0的值为：若n=239,则ndiv100的值为：若n=239,则(ndiv10)a*10mod10的值为:若n=239,则c：=na*100b*10的值为：若n=79.5,则c：=trunc(n)DIV10的值为：若n=70.5,则c：=trunc(n)DIV10的值为：若n=65.5,则c

3、：=trunc(n)DIV10的值为：、运行下列程序PAS程序，说出运行结果：1、programlianxi03(input,output)；VarA,B,T:integer;BeginA:=15；B:=148；T:=A；A:=B；B:=T；Writeln(A=,A,B=,B)；Readln；Writeln(A,B)；End.2、programlianxi04(input,output)；VarA,B,C,N:integer;BeginN:=126；A:=NDIV100；运行结果为：运行结果为：B:=NDIV10A*10；C:=NA*100-B*10；Writeln(A二,A,B=,B,C=,

4、C)；End.3、programlianxi05(input,output)；运行结果为：VarA,B,T:integer;BeginA:=15；B:=148；T:=A+B；Writeln(A,+,B,=,T)；Readln；Writeln(A+B=,T)；End.三、下列程序有什么错误,修改成正确的程序后运行：1、programlianxi03(input,output)修改为：VarA,B,T:INTERGERBegin；A:=15；B:=4T:=A/BWriteln(T=,T)；End.2、programlianxi04(input,output)；运行结果为：VarA,B,C,N:=i

5、ntegerBeginN=126；A=NDIV100；IFN+A128THENC=NMOD10A*10；ELSEC=NA*100-B*10；Writeln(A=,A,B=,B,C=,C)End.四、从键盘输入一个数X,求这个数的绝对值Y。(注意：本题不准使用ABS函数)1、所求程序编制如下：2、把上述程序输入PAS程序输入程序编辑窗口，从键盘输入X=21时，运行结果为:3、从键盘输入X=21时，运行结果为:4、从键盘输入X=0时，运行结果为：七、从键盘输入一个邮包的重量W,计算应收邮费P。计算规则为：邮包重量在20千克以内的，按每千克1.25元计算邮费，邮包重量在20千克以上的，超过部分按每千

6、克1.40元计算邮费。1、所求程序编制如下：2、把上述程序输入PAS程序输入程序编辑窗口，从键盘输入W=19.5时，运行结果为：3、从键盘输入N=29.6时，运行结果为:八、从键盘输入一元二次方程AX2+BX+C=0的三个系数A、B、C,如B*B4*A*CvO,则打印“NOROOT”，否则打印两个根XI、X2。1、所求程序编制如下：2、把上述程序输入PAS程序输入程序编辑窗口，从键盘输入A=1,B=4,C=12时，运行结果为：3、从键盘输入A=1,B=4,C=12时，运行结果为：4、从键盘输入A=1,B=-8,C=16时，运行结果为:九、已知X的值在1到8之间，从键盘输入X,按下列公式输出Y的

7、值（精确到小数后1位）：TOC o 1-5 h z3X+51WXV24X2-62WXV3Y=SQRT（5X+3）3WXV55X2-3X+65WXV81、所求程序编制如下：2、把上述程序输入PAS程序输入程序编辑窗口，从键盘输入X=1.25时，运行结果为：3、从键盘输入X=2.48时，运行结果为：4、从键盘输入X=4.66时，运行结果为：5、从键盘输入X=7.9时，运行结果为：十、从键盘输入一个学生考试成绩A,如在90100分之间，打印“GOOD”；在8090之间（不含90）,打印“BETTER”，在6080之间（不含80）,打印“OK”,060之间（不含60）,打印“SORRY”。1、所求程序

8、编制如下：2、把上述程序输入PAS程序输入程序编辑窗口，从键盘输入A=99时，运行结果为:3、从键盘输入A=80时，运行结果为：4、从键盘输入A=61时，运行结果为：5、从键盘输入A=59时，运行结果为：十一、税务部门规定：销售额在100万元以上的征收7%的税，销售额在70万元一一100万元（不含100万元）的征收6%的税，销售额在40万元一一70万元（不含70万元）的征收5%的税，销售额在20万元一一40万元（不含40万元）的征收4%的税，销售额在1万元一一20万元（不含20万元）的征收3%的税，销售额在10万元以下（不含10万元）的征收2%的税。请你编写程序：从键盘输入销售额P,计算并输出

9、应该交纳的税收S（精确到小数后2位）。1、所求程序编制如下：2、把上述程序输入PAS程序输入程序编辑窗口，从键盘输入P=99.9万元时，运行结果为：3、从键盘输入P=80万元时，运行结果为：4、从键盘输入A=61万元时，运行结果为：5、从键盘输入A=12.7万元时，运行结果为：6、从键盘输入A=112万元时，运行结果为：7、从键盘输入A=31万元时，运行结果为：8、从键盘输入A=0.511万元时，运行结果为:十三、任意从键盘一个数，如果是正数，就输出这个数据，若不是正数，就什么也不输出。（1）所求程序编制如下:（2）上述程序输入PAS窗口，运行结果为:十四、从键盘输入两个数，输出关于这两个数的

10、加、减算式及计算结果。（例如输入两个数为5、12,则输出5+12=17,5-12=-7）（1）所求程序编制如下:（2）上述程序输入PAS窗口，输入A=15,B=6,运行结果为:第三章Pascal循环结构程序设计3.1Pascal中的FOR语句在实际应用中，会经常遇到许多有规律性的重复运算，这就需要掌握本章所介绍的循环结构程序设计。在Pascal语言中，循环结构程序通常由三种循环语句来实现。它们分别为FOR循环、whiledo（当）循环和repeatuntil（直到）循环。通常将一组重复执行的语句称为循环体，而控制重复执行或终止执行由重复终止条件决定。因此，重复语句是由循环体及重复终止条件两部分

11、组成。一、for语句的一般格式格式一：for控制变量:=表达式1to表达式2do语句；格式二：for控制变量:=表达式1downto表达式2do语句;其中for、to、downto和do是Pascal保留字。表达式1与表达式2的值也称为初值和终值。DO后面的语句也可用复合语句。二、For语句执行过程先将初值赋给左边的变量（称为循环控制变量）；判断循环控制变量的值是否已超过终值，如已超过，则跳到步骤；如果未超过终值，则执行do后面的那个语句（称为循环体）；循环变量递增（对to）或递减（对downto）1；返回步骤；循环结束，执行for循环下面的一个语句。三、说明循环控制变量必须是顺序类型。例如，

12、可以是整型、字符型等，但不能为实型。循环控制变量的值递增或递减的规律是：选用to则为递增，选用downto则递减。所谓循环控制变量的值超过终值，对递增型循环，超过指大于，对递减型循环，超过指小于。循环体可以是一个基本语句，也可以是一个复合语句。循环控制变量的初值和终值一经确定，循环次数就确定了。但是在循环体内对循环变量的值进行修改，常常会使得循环提前结束或进入死环。建议不要在循环体中随意修改控制变量的值。for语句中的初值、终值都可以是顺序类型的常量、变量、表达式。四、应用举例例1求S=l+2+3+4+100。解：varI,s:integer;begins:=0fori:=1to100dos:

13、=s+I；writeln（S=,S）;end.例2输出1100之间的所有偶数(每两个数之间隔5个字符)。解：varI:integer;beginfori:=1to100doifimod2=0thenwrite(i:5);end.例3求S=2+4+6+8+100。解：varI,s:integer;begins:=0fori:=1to100doifimod2=0thens:=s+i;write(s=,s)；end.思考：求S=l+3+5+7+99例4求N!=l*2*3*N，这里N不大于10。分析：程序要先输入N,然后从1累乘到No程序如下：varn,i,s:integer；i为循环变量beginw

14、rite(Entern二)；readln(n);输入ns:=1;fori:=2tondo从2到n累乘到s中s:=s*i;writeln(n,!二，s);输出n!的值end.例4按反向顺序打印大写英文字符。解：varch:char;beginforch:=ZdowntoAdowrite(ch);end.例5读入10个成绩56、78、54、76、90、95、100、44、78、88,求它们的总和S和平均P。解：varS,P,X:REAL；I：integer；begins:=0fori:=1to10dobeginreadln(x)；s:=s+x；end；p:=s/10；writeln(s=,s)；w

15、riteln(p=,p)；end.3.2FOR语句的上机实验一、运行下列程序PAS程序，说出运行结果:1、programlianxi01(input,output)；varI,s:integer;begins:=0fori:=1to10dos:=s+I；writeln(S=,S);end.2、programlianxi02(input,output)；varI:integer;beginfori:=1to20doifimod2=0thenwrite(i:5);end.3、programlianxi03(input,output)；解:varI,s:integer;begins:=0fori:=

16、1to20doifimod2=0thens:=s+i;write(s=,s)；end.运行结果为:运行结果为:运行结果为:运行结果为：4、programlianxi04(input,output)；运行结果为：varn,i，P:integer；beginn:=5；P:=1;fori:=2tondoP:=P*i；writeln(n,!=,P)；end.解：varch:char;beginforch:=AdowntoZdowrite(ch)；end.二、编程求S=l+2+3+4+100。(1)所求程序编制如下：(2)上述程序输入PAS窗口，运行结果为：三、编程输出1100之间的所有偶数(每两个数之

17、间隔5个字符)(1)所求程序编制如下：(2)上述程序输入PAS窗口，运行结果为:四、编程求S=2+4+6+8+100。(1)所求程序编制如下：(2)上述程序输入PAS窗口，运行结果为:五、编程求S=l+3+5+7+49（1）所求程序编制如下：（2）上述程序输入PAS窗口，运行结果为:六、从键盘输入N的值，求N!=1*2*3*N，这里N为不大于10的整数。（1）所求程序编制如下:（2）上述程序输入PAS窗口，键盘输入N=6,运行结果为:七、按反向顺序打印大写英文字符。（1）所求程序编制如下:（2）上述程序输入PAS窗口，运行结果为:八、从键盘读入10个成绩56、78、54、76、90、95、10

18、0、44、78、88，求它们的总分S和平均分P。（1）所求程序编制如下:（2）上述程序输入PAS窗口，运行结果为:九、从键盘输入n的值（n为大于100的3位整数），编程求S=1+2+3+4+n。（1）所求程序编制如下:(2)上述程序输入PAS窗口，从键盘输入n=150,运行结果为:十、编程求S=l2+34+56+78+99100所求程序编制如下:上述程序输入PAS窗口，运行结果为：十一、编程求S=13+23+33+43+53+103(1)所求程序编制如下：(2)上述程序输入PAS窗口，运行结果为：3.3FOR语句的双循环一、复习：for语句的一般格式格式一：for控制变量:=表达式1to表达式

19、2do语句;格式二：for控制变量:=表达式1downto表达式2do语句;二、练习：1、读入10个成绩56、78、54、76、90、95、100、44、78、88,求它们的总和S和平均P。解：varS，P,X:REAL；I：integer；begins:=0；fori:=1to10dobeginreadln(x)；s:=s+x；end；p:=s/10；writeln(s=,s)；writeln(p=,p)；end.2、从键盘输入n的值(n为大于100的整数)，编程求S=l+2+3+4+n。解：所求程序编制如下：解：varS,N,I：integer；beginreadln(N)；s:=0；fo

20、ri:=1toNdos:=s+i；writeln(s=,s)；end.思考：编程求1-n的偶数和，怎么改3、编程求S=l2+34+56+78+99100解：所求程序编制如下：varS,I，P：integer；begins:=0；P：=-1fori:=1toNdoBEGINP：=P*(-1)；s:=s+P*i；END；writeln(s=,s)；end.4、把1-50的自然数按反向顺序找印，每行打印5个数，数字之间要有空格分隔解：所求程序编制如下：varI,p：integer；beginp:=0fori:=50DOWNto1doBEGINWRITE(I:5)；P:=p+1；IFPMOD5=0TH

21、ENWRITELN；END；end.三、用FOR语句实现双重循环：格式：forI：=表达式1to或downto表达式2doforJ：=表达式1to或downto表达式2do语句；如果第一个FOR语句后有多个语句，还要用复合语句例1求1!+2!+.+10!的值。分析：这个问题是求10自然数的阶乘之和，可以用for循环来实现。程序结构如下:forn:=1to10dobeginN!的值at累加N!的值tend显然，通过10次的循环可求出1!,2!.,10!,并同时累加起来，可求得S的值。而求T=N!,又可以用一个for循环来实现：t=1;forj：=1tondot：=t*j;解：所示程序为：prog

22、ramex4_5；vart，s：real；i，j，n：integer；beginS：=0；forn：=1to10dobegint：=1；forj：=1tondot：=t*j;S：=S+t;end;writeln(s=，s：8)；End.以上的程序是一个二重的for循环嵌套。这是比较好想的方法，但实际上对于求n!，我们可以根据求出的(n-1)!乘上n即可得到，而无需重新从1再累乘到n。程序可改为：vari，j，S，P：integer；beginS：=0；t：=1；forn：=1to10dobegint：=t*n;S:=S+t;end;writeln(s=,s:0:0);end.显然第二个程序的效

23、率要比第一个高得多。第一程序要进行1+2+.+10=55次循环，而第二程序进行10次循环。如题目中求的是1!+2!+.+1000!,则两个程序的效率区别更明显。例4一个炊事员上街采购,用500元钱买了90只鸡,其中母鸡一只15元,公鸡一只10元,小鸡一只5元,正好把钱买完。问母鸡、公鸡、小鸡各买多少只？分析:设母鸡I只，公鸡J只，则小鸡为90-I-J只，则15*1+10*J+(90-I-J)*5=500,显然一个方程求两个未知数是不能直接求解。必须组合出所有可能的i,j值，看是否满足条件。这里I的值可以是0到33，J的值可以0到50。源程序如下:programrex4_6;vari，j，k:i

24、nteger;beginfori:=0to50doforj:=0to33dobegink:=90-i-j;if15*i+10*j+5*k=500thenwriteln(i:5，j:5，k:5);end;end.例5打印如下图形:*解所求程序编制如下:programrex4_6;vari，j，k:integer;beginfori:=1to5dobeginforj:=1to10-idowrite();fork:=1to2*i-1dowrite(*);writeln;end;end.3.4FOR语句的双循环上机实验一、把下列程序上机运行，写出运行后输出的结果：1、programlianxi01(i

25、nput,output)；运行结果为：varI,p：integer；beginp:=0fori:=50DOWNto1doBEGINWRITE(I:5)；P:=p+1；IFPMOD5=0THENWRITELN；END；end.2、programlianxi02(input,output)；运行结果为：vart,s：real；i,j,n：integer；beginS:：=0；forn=1to3doforj：=1to5dowrite(i+j：8)；writeln；end.3、programlianxi03(input,output)；运行结果为：varI,p：integer；beginp:=0for

26、i:=30DOWNto1doBEGINWRITE(I:5)；P:=p+1；IFPMOD5=0THENWRITELN；END；end.4、programlianxi04(input,output)；运行结果为：vari,j,k：integer;beginfori:=1to5dobeginforj:=1to10-idowrite();fork:=lto2*i-ldowrite(*);writeln;end;end.二、把1-50的自然数按反向顺序找印，每行打印5个数，数字之间要有空格分隔(1)所求程序编制如下：(2)上述程序输入PAS窗口，运行结果为:三、求S=l!+2汁.+10!的值。(1)所求

27、程序编制如下：(2)上述程序输入PAS窗口，运行结果为：四、一个炊事员上街采购，用500元钱买了90只鸡，其中母鸡一只15元，公鸡一只10元，小鸡一只5元,正好把钱买完。问母鸡、公鸡、小鸡各买多少只？(1)所求程序编制如下：(2)上述程序输入PAS窗口，运行结果为:五、打印如下图形：*（1）所求程序编制如下:(2)上述程序输入PAS窗口，运行结果为:错误释义内存溢出缺标识符未定义的标识符重复定义的标识符语法错误实型常量错误整型常量错误字符串常量超过一行文件非正常结束行太长未定义的类型标识符打开文件太多无效的文件名文件未找到磁盘满无效的编译命令文件太多指针定义中未定义类型缺变量标识符类型错误结构

28、类型太长集合基类型越界分量不能是文件或对象无效的字符串长度类型不匹配无效的子界基类型下界超过上界缺有序类型缺整型常量缺常量缺整型或实型常量缺指针类型标识符无效的函数结果类型缺标号标识符缺错误释义内存溢出缺标识符未定义的标识符重复定义的标识符语法错误实型常量错误整型常量错误字符串常量超过一行文件非正常结束行太长未定义的类型标识符打开文件太多无效的文件名文件未找到磁盘满无效的编译命令文件太多指针定义中未定义类型缺变量标识符类型错误结构类型太长集合基类型越界分量不能是文件或对象无效的字符串长度类型不匹配无效的子界基类型下界超过上界缺有序类型缺整型常量缺常量缺整型或实型常量缺指针类型标识符无效的函数结

29、果类型缺标号标识符缺BEGIN缺ENDPascal编译错误信息表错误代码及错误信息error1:Outofmemoryerror2:Identifierexpectederror3:Unknownidentifiererror4:Duplicateidentifiererror5:Syntaxerrorerror6:Errorinrealconstanterror7:Errorinintegerconstanterror8:Stringconstantexceedslineerror10:Unexpectedendoffileerror11:Linetoolongerror12:Typeide

30、ntifierexpectederror13:Toomanyopenfileserror14:Invalidfilenameerror15:Filenotfounderror16:Diskfullerror17:Invalidcompilerdirectiveerror18:Toomanyfileserror19:Undefinedtypeinpointerdeferror20:Variableidentifierexpectederror21:Errorintypeerror22:Structuretoolargeerror23:Setbasetypeoutofrangeerror24:Fi

31、lecomponentsmaynotbefilesorobjectsfileerror25:Invalidstringlengtherror26:Typemismatcherror27：error27：Invalidsubrangebasetypeerror28：Lowerboundgreaterthanupperbounderror29：Ordinaltypeexpectederror30：Integerconstantexpectederror31：Constantexpectederror32：Integerorrealconstantexpectederror33：PointerTyp

32、eidentifierexpectederror34：Invalidfunctionresulttypeerror35：Labelidentifierexpectederror36：BEGINexpectederror37：ENDexpectederror38：Integerexpressionexpected缺整型表达式error39：Ordinalexpressionexpected缺有序类型表达式error40：Booleanexpressionexpected缺布尔表达式error41：Operandtypesdonotmatch操作数类型不匹配error42：Errorinexpre

33、ssion表达式错误error43：Illegalassignment非法赋值error44：Fieldidentifierexpected缺域标识符error45：Objectfiletoolarge目标文件太大error46：Undefinedexternal未定义的外部过程与函数error47：Invalidobjectfilerecord无效的OBJ文件格式error48：Codesegmenttoolarge代码段太长error49：Datasegmenttoolarge数据段太长error50：DOexpected缺DOerror51：InvalidPUBLICdefinition

34、无效的PUBLIC定义error52：InvalidEXTRNdefinition无效的EXTRN定义error53:ToomanyEXTRNdefinitions太多的EXTRN定义error54：OFexpected缺OFerror55：INTERFACEexpected缺INTERFACEerror56：Invalidrelocatablereference无效的可重定位引用error57：THENexpected缺THENerror58：TOorDOWNTOexpected缺TO或DOWNTOerror59：Undefinedforward提前引用未经定义的说明error61：Inva

35、lidtypecast无效的类型转换error62：Divisionbyzero被零除error63：Invalidfiletype无效的文件类型error64：Cannotreadorwritevariablesofthistype不能读写此类型变量error65：Pointervariableexpected缺指针类型变量error66：Stringvariableexpected缺字符串变量error67：Stringexpressionexpected缺字符串表达式error68：Circularunitreference单元UNIT部件循环引用error69：Unitnamemism

36、atch单元名不匹配error70：Unitversionmismatch单元版本不匹配error71：Internalstackoverflow内部堆栈溢出error72：Unitfileformaterror单元文件格式错误error73：IMPLEMENTATIONexpected缺IMPLEMENTATIONerror74：Constantandcasetypesdonotmatch常量和CASE类型不匹配error75：Recordorobjectvariableexpected缺记录或对象变量error76：Constantoutofrange常量越界error77：Filevar

37、iableexpected缺文件变量error78：Pointerexpressionexpectederror79：Integerorrealexpressionexpectederror80：Labelnotwithincurrentblockerror81：Labelalreadydefinederror82：Undefinedlabelinprecedingstatementparterror83：Invalidargumenterror84：UNITexpectederror85:;expectederror86：:expectederror87：,expectederror88：(

38、expectederror89：)expectederror90：=expectederror91：:=expectederror92：or(.Expectederror93:or.)expectederror94：.expectederror95:.expectederror96：Toomanyvariableserror97：InvalidFORcontrolvariableerror98：Integervariableexpectederror99：Filesandproceduretypesarenotallowedhereerror100：Stringlengthmismatcher

39、ror101：Invalidorderingoffieldserror102：Stringconstantexpectederror103：Integerorrealvariableexpectederror104：Ordinalvariableexpectederror105：INLINEerrorerror106：Characterexpressionexpectederror107：Toomanyrelocationitemserror108：Overflowinarithmeticoperationerror112：CASEconstantoutofrangeerror113：Erro

40、rinstatementerror114：Cannotcallaninterruptprocedureerror116：Mustbein8087modetocompilethiserror117：Targetaddressnotfound缺指针表达式缺整型或实型表达式标号不在当前块内标号已定义在前面未定义标号无效的参数缺UNIT缺“；”缺缺指针表达式缺整型或实型表达式标号不在当前块内标号已定义在前面未定义标号无效的参数缺UNIT缺“；”缺“：”缺“，”缺“（”缺“）”缺“=”缺“:=”缺“”或“（.”缺“”或“.）”缺“.”缺“.”变量太多无效的FOR循环控制变量缺整型变量该处不允许文件和过程

41、类型字符串长度不匹配无效域顺序缺字符串常量缺整型或实型变量缺有序类型变量INLINE错误缺字符表达式重定位项太多算术运算溢出CASE常量越界表达式错误不能调用中断过程必须在8087模式编译找不到目标地址该处不允许INCLUDE文件该处继承方法不可访问无效的限定符error122：Invalidvariablereference无效的变量引用error123：Toomanysymbols符号太多error124：Statementparttoolarge语句体太长error126：Filesmustbevarparameters文件必须是变量形参error127：Toomanycondition

42、alsymbols条件符号太多error128：Misplacedconditionaldirective条件指令错位error129：ENDIFdirectivemissing缺ENDIF指令error130：Errorininitialconditionaldefines初始条件定义错误error131：Headerdoesnotmatchpreviousdefinition和前面定义的过程或函数不匹配error133：Cannotevaluatethisexpression不能计算该表达式error134：Expressionincorrectlyterminated表达式错误结束err

43、or135：Invalidformatspecifier无效格式说明符error136：Invalidindirectreference无效的间接引用error137：Structuredvariablesarenotallowedhere该处不允许结构变量error138：CannotevaluatewithoutSystemunit没有System单元不能计算error139：Cannotaccessthissymbol不能存取符号error140：Invalidfloatingpointoperation无效的符号运算error141：Cannotcompileoverlaystomem

44、ory不能编译覆盖模块至内存error142：Pointerorproceduralvariableexpected缺指针或过程变量error143：Invalidprocedureorfunctionreference无效的过程或函数调用error144：Cannotoverlaythisunit不能覆盖该单元error146：Fileaccessdenied不允许文件访问error147：Objecttypeexpected缺对象类型error148：Localobjecttypesarenotallowed不允许局部对象类型error149：VIRTUALexpected缺VIRTUAL

45、error150:Methodidentifierexpected缺方法标识符error151：Virtualconstructorsarenotallowed不允许虚构造函数error152：Constructoridentifierexpected缺构造函数标识符error153：Destructoridentifierexpected缺析构函数标识符error154：程Failonlyallowedwithinconstructors只能在构造函数内使用Fail标准过程error155：Invalidcombinationofopcodeandoperands操作数与操作符无效组合err

46、or156：Memoryreferenceexpected缺内存引用指针error157：Cannotaddorsubtractrelocatablesymbols不能加减可重定位符号error158：Invalidregistercombination无效寄存器组合error159：286/287instructionsarenotenabled未激活286/287指令error160：Invalidsymbolreference无效符号指针error161：Codegenerationerror代码生成错误error162：ASMexpected缺ASMerror166：Procedure

47、orfunctionidentifierexpectederror167：Cannotexportthissymbolerror168：Duplicateexportnameerror169：Executablefileheadertoolargeerror170：Toomanysegments缺过程或函数标识符不能输出该符号外部文件名重复可执行文件头太长段太多运行错误信息缺过程或函数标识符不能输出该符号外部文件名重复可执行文件头太长段太多运行错误分为四类：1-99为DOS错误；100-149为I/O错误，发生I/O后，如果使用了编译开关$1+,程序将终止执行，否则编译开关为$1-,程序继续执

48、行，并由IOResult函数返回错误信息；150-199为严重错误，200-255为致命错误，致命错误将立即终止程序执行。错误代码及错误信息错误释义error1：Invalidfunctionnumber无效函数号error2：Filenotfound文件未找到error3：Pathnotfound找不到路径error4：Toomanyopenfiles打开文件太多error5：Fileaccessdenied文件不允许访问error6：Invalidfilehandle无效文件句柄error12：Invalidfileaccesscode无效文件存取代码error15：Invaliddrivenumber无效驱动器号error16：Cannotremovecurrentdire