Question

goto语句怎么使用啊？？pascal的！

Answer 1

五．不建议使用的goto语句及标号
如果在程序中要自由跳转，可使用：goto标号；
标号要在程序的说明部分先说明。
1． 标号说明
Lable 语句标号 [，语句标号]
如：label one,two
在程序体中有one: 和two: 开始的程序段，其它地方就可以通过goto one或goto two来转到指定的地方one 或two。

2．为什么不建议使用label和goto？
虽然在程序中用goto语句可以给程序设计带来方便，但如果程序中使用goto语句将会破坏结构化的程序结构，它完全可以通过条件、循环等来替代。当一个程序中多处使用goto语句时，很容易引起交叉错误，阅读起来也很麻烦。因此建议大家不用或尽量少用goto语句。

Answer 2

program use_goto;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
i:integer;
label//做标注
outer,loop_start;
begin
i := 1;
loop_start:
if (i > 10)
then
goto outer;
writeln(i);
inc(i);
goto loop_start;
outer:

readln;
end.

运行结果：
1
2
3
4
5
6
7
8
9
10

Answer 3

goto语句，首先要用关键字label申明标签，和var,const格式相似
program r;
label
l1, l2;
var
..

在程序中用 标签+冒号 定义位置，如
begin
...
l1:
...
l2:
end.

goto语句格式为
goto 标签名

program ll;
label
l1;
begin
writeln(1);
writeln(2);
goto l1;
writeln(3);
l1:
writeln(4);
end.
输出为
1
2
4
（跳过了writeln(3)）

Answer 4

在NOI的比赛中
每用一个GOTO语句
就扣10分

Answer 5

汇编常用语句跳转的意思
比如:
delay
.......
.......
.......
goto
delay