delphi中goto的用法
1个回答
展开全部
用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
（注意：标号需要用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
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
