编写pascal程序 用循环结构时， 如何跳出这个程序，要什么语句?

如果是 跳出 当前的循环 则用过程： break

如果是 在 函数或过程里面用的话 用 过程：exit可以跳出 函数和过程

如果 想直接退出程序 则用 过程：halt

以上所说的 过程可以直接使用 例如

for i:=1 to n d

for j:=i+1 to n do

begin

if {语句} then break

a[i]:=a[j]

end

像这样的话 break 后 就会跳出 J 这层循环，继续循环 i

还有一个过程 continue这个用法是直接继续循环当前循环不执行下面的语句

比如

for i:=1 to n do

for j:=1 to n do

begin

if i=j then continue

write('asdfasdf')

end

这样的话 只要I=J 那么 就不执行 write 直接 继续循环J

应该是02错误吧。

首先你的文件接口加错了，改成：

assign(input,'save.in')

reset(input)

assign(output,'save.out')

rewrte(output)

另外，你既然要手动输入数据测试，就应该把文件接口去掉，用一个大括号把文件接口部分括起来，使那一部分字体变成灰色即可：

{assign(input,'save.in')

reset(input)

assign(output,'save.out')

rewrte(output)}

Pascal运行错误对照表

运行错误是指程序运行时出现的错误，当发生时，Turbo Pascal显示如下信息：

RUNTIME ERROR NNNN AT XXXX：YYYY

其中，nnnn是运行错误代码，xxxx是错误发生的程序段，yyyy是错误地址偏移。

DOS 错误代码：

1无效DoS功能号

2文件末找到

3路径未找到

4打开文件过多

5禁止文件存取

6无效文件句柄

12无效文件存取代码

15无效驱动器号

16不能删除当前日录

17不能跨驱动器改文件名

I/O错误

100磁盘读错误

101磁盘写错误

102文件变量末赋值

103文件未打开

104文件未用输入方式打开

105文件末用输出方式打开

106无效数字格式

严重错误

150磁盘写保护

15l未知单元

152驱动器未准备好

153未知命令

154数据CRC校验错

155驱动器请求的结构长度错

156磁盘定位错

157未知媒介类型

158扇区末找到

159打印机缺纸

160设备写失败

161设备读失败

162硬件故障

致命错误

200被零除

20l范围检查错

202堆栈溢出错

203堆溢出错

204无效指针 *** 作

205浮点上溢出

206浮点下溢出

207无效浮点运算

208未安装覆盖管理程序

209覆盖文件读错

210对象未初始化

2ll调用抽象方法

212流登计错

213集合下标越界

214集合溢出

215 算术上溢错误

216 存取非法

217 控制-C

218 授权指令

219 无效的TYPECAST

220 无效的变体TYPECAST

221 无效的变体 *** 作

222 没有变体方法调用DISPATCHER

223 不能建立变体数组

224 变体不包含数组

225 变体数组边界错误

226 TLS初始化错误

Pascal编译错误对照表

下面列出在编译程序时可能出现的错误，在集成环境下，Turbo Pascal将自动加载源程序并定位于出错处。

l内存溢出

2缺标识符

3标识符未定义

4标识符重定义

5语法错误

6实型常量错

7整型常量错

8字符串常量跨行

9文件嵌套过多

10非正常文件结束

11行过长

12缺类型标识符

13打开文件过多

14无效文件名

15文件未找到

16磁盘满

17无效编译指示

18文件过多

19指针定义中未定义类型

20缺变量标识符

21类型错误

22结构过长

24文件分量不能为文件

25无效字符串长度

26类型不匹配

27无效子界基类型

28下界大于上界

29缺有序类型

30缺整型常数

31缺常数

32缺整型或实型常数

33缺指针类型标识符

34无效的函数结果类型

35缺标号标识符

36缺BEGIN

37缺END

38缺整型表达式

39缺有序表达式

40缺布尔表达式

41 *** 作数类型与 *** 作符不匹配

42表达式错

43非法赋值

44缺字段标识符

45目标文件过长

46未定义外部标识符

47无效*.OBJ文件记录

48代码段过长

49数据段过长

50缺DO

51无效PUBLIC定义

52无效EXTRN定义

53EXTRN定义过多

54缺0F

55缺INTERFACE

56无效重定位引用

57缺THEN

58缺T0或DOWNTO

59未定义的向前引用

60过程过多

61无效类型转换

62被零除D

63无效文件类型

64不能读写该类型的变量

65缺指针变量

66缺字符串变量

67缺字符串表达式

68单元循环引用

69单元名不匹配

70单元版本不匹配

71单元重名

72单元文件格式错误

73缺IMPLEMENTATl0N

74常数与CASE类型不相匹配

75缺记录变量

76常数越界

77缺文件变量

78缺指针变量

79缺整型或实型表达式

80标号不在当前块中

81标号已定义

82标号未定义

83无效参数

84缺UNIT

85缺“；”

86缺“：”

87缺“，”

88缺“(”

89缺“)”

90缺“＝”

91缺“：＝”

92缺“[”或“(．”

93缺“]”或“．)”

94缺“．”

96变量过多

97无效FOR控制变量

98缺整型变量

99此处不允许用文件和

100字符串长度不匹配

101无效字顺序

102缺字符串常数

103缺整型或实型变量

104缺有序变量

105INLINE错

106缺字符表达式

107重定位项过多

112CASE常量越界

113语句错

114不能调用中断过程

116必须在8087方式下编译

117末找到目标地址

118此处不允许包含文件

120缺NIL

121无效限定符

122无效变量引用

123符号过多

124语句部分过长

126文件必须为变量参数

127条件符号过多

128条件指令错位

130初始条件定义错

13l过程和函数头与前面定义的不匹酉

132严重磁盘错误

133不能计算该表达式

134表达式错误结束

l35无效格式说明符

136无效间接引用

137此处不允许结构变量

138无SYSTEM单元不能计算

l39不能存取该符号

140无效浮点运算

141不能将覆盖编译至内存

142缺过程和函数变量

143无效过程或函数引用

144不能覆盖该单元

147缺对象类型

148不允许局部对象类型

149缺VIRTUAL

150缺方法标识符

151不允许虚拟构造方法

152缺构造方法标识符

153缺释放方法标识符

154FAIL只允许在构造方法内使用

155无效的 *** 作符和 *** 作数组合

156缺内存引用

l57不能加减可重定位符号

158无效寄存器组合

159未激活286／287指令

160无效符号引用

161代码生成错

162缺ASM

转自DRS

---