暑假里的趣事400字左右:delphi中goto的用法
来源:百度文库 编辑:高考问答 时间:2024/07/08 09:54:22
用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