引狼入室的意思是什么:delphi中goto的用法

来源:百度文库 编辑:中科新闻网 时间:2024/05/14 03:31:54

用goto构成的循环,如下:
(注意:标号需要用label先声明才能使用。)

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