保留字LABEL?

Question

保留字LABEL的用法,功能?

Answer 1

你想用goto吗？
procedure FindFirstAnswer;
var X, Y, Z, Count: Integer;
label FoundAnAnswer;
begin
  Count := SomeConstant;
  for X := 1 to Count do
    for Y := 1 to Count do
      for Z := 1 to Count do
        if ... { some condition holds on X, Y, and Z } then
          goto FoundAnAnswer;
  ... {code to execute if no answer is found }
  Exit;  FoundAnAnswer:
    ... { code to execute when an answer is found }
end;

Answer 2

label 是标签的意思，他和GOTO语句在一起可以控制代码的运行，
比如声明一个标签类
var
label Loop;
begin
 .....//你的一些代码(像楼上的循环)
 
  loop:
 .....//loop的代码
 end;//有没END不记得了，具体自己试
end;
然后你使用 GOTO Loop 语句的话，那么程序就是执行loop内的代码

Answer 3

label用来定义标签，定义完后可以用goto转到相应的标签
用法：
label 标签1,标签2,...;
....
goto 某标签;例如：
Pascal:
label aaa;
...
goto aaa;
相当于C：
aaa:
  ...
goto aaa;

Answer 4

学习
但是goto好象很少用,也不推荐用