Pascal 中止了重复语句

休息当然是一种拉扯的方式。

也可以用goto强行跳跃。

但是，如果要强制跳转，则不应使用 repeat 而是使用 while do 来设计程序，并更改循环语句中的顺序。

此外，还提供了 break、exit 和 halt 之间的区别（halt 是德语?。。

pascal 的多种退出语句用法。

以下语句均为程序，必须单独用作句子）。

break 是用于退出它所在的循环语句。

也就是说，如果在任何循环中执行中断，则将立即退出语句。

例如：var i ： integer;

beginfor i := 1 to 10 do

begin1} writeln(i);

break;

writeln(i+1);

end;readln

end.执行结果：

1 可以看出，在第一个循环中，句子执行完后，执行 break，然后立即退出 for 语句。 注意：以上两个语句只适用于它们所处的循环层，即：

如果有多个循环嵌套在一起，则执行其中一个层。

继续中断语句，它们不会影响上述层。

通函。 exit是退出当前区块;

即，如果在任何子程序中执行 exit，则该子程序将被退出;

如果在主程序中执行退出，则整个程序将被退出。

相当于块的末尾：goto 例如，当尝试除法确定一个素数时，一旦它可整除，就将函数的值赋值为 false，然后退出;

*注意：与上述类似，exit 仅适用于当前子例程，如果有多个嵌套子例程，则其中一个子例程将在执行 exit 后返回到调用它的语句的下一个语句。

halt：没什么好说的，退出整个程序，游戏结束

请注意处理任何可能退出子例程的子例程或主程序的所有后果，例如文件是否关闭、输出是否完整等。 最后，这些语句的使用使得程序结构不止一个出口，破坏了结构化程序设计的标准控制结构，使程序难以调试（但往往容易编写），应尽量避免使用，因为它们可以被其他语句替换，所以值得使用，除非使用这些语句能给编写程序带来更大的方便， 而且可读性不受影响（其实我用了很多，呵呵）。

vara,e,b,i,k:longint;

beginwrite('限制 =');readln(e);

write('请输入此随机数的上限：');readln(k);

randomize;

a:=random(k);

i:=0;repeat

i:=i+1;

writeln('请输入一个数字 （',k,'内）：');

readln(b);

if b>a

then writeln('有点太大了')elseif b=a

then begin writeln('没错！ '); break; end

else writeln('它有点小');

until i=e ;

end.当输出正确时，只需通过中断退出循环即可。

程序中重复循环的格式为：

repeat

通函;

直到条件表达式; {直到条件为真} 重复循环首先执行由 repeat 和 untill 括起来的循环体语句，然后在 until： 之后检查条件表达式：如果表达式结果为 false，则循环体继续，然后在 untill 之后继续检查条件表达式，依此类推，直到表达式变为 true 以结束循环。

重复循环必须有一个语句，该语句可以在 until 之后更改条件表达式的值，最后使条件表达式的值为 true，以便循环自动结束。

1. 关于

循环次数是已知的，因此使用 for 循环以省麻烦。

如：把"hello"连续写 10 次。

for i:=1 to 10 do write('hello ');

二、关于

如果无法预先确定循环数，则循环将启动，具体取决于在启动之前满足的其他条件

如：当我打字时'y'，并开始不停地写作"hello",program testwhile;

var a:char;

bengin

read(a);

while a='y' do write('hello');

end.输入的字符不是y，程序直接结束。 如果是 y，那么。 哈哈。

3.关于重复

如果无法事先确定循环次数，但必须重复循环（至少一次）直到满足一定条件才能停止，则必须使用重复

等我打字'n'，你可以停止写作"hello"完成。

program testrepeat;

var a:char;

bengin

repeat

readln(a);

write('hello');

until a='n';

end.你跑的时候需要输入一个字符，如果这个字符不是n，它会要求你再打一遍，你直接就无聊了，输入n，停止，哈哈。

格式：重复

;until ……

执行时，将重复执行循环中执行的语句，直到循环结束条件为 true 时退出循环。

例如，执行以下过程：

vari:integer;

begini:=0;

repeat

i:=i+1;

write(i);

until i=10;

writeln;

end.将得到输出：

用法：重复

.直到布尔表达式=true;

也就是说，当布尔表达式 after until 为 true 时，repeat 语句终止循环。

示例：begin

.i:=1;s:=0;

repeat

inc(s,i);

inc(i);

until i>100;

writeln(s);

.end.附：inc（s）; 相当于 s：=s+1;

inc(s,i);相当于 s：=s+i;

亲眼看看吧。

希望对你有所帮助。

program ex;

varn,sum1,sum2:real;

x,y:integer;

beginsum1:=0;

sum2:=0;

x:=0;y:=0;

repeat

read(n);

if n>0

thenbegin

x:=x+1;

sum1:=sum1+n;

end;if n<0

thenbegin

y:=y+1;

sum2:=sum2+n;

end;until n=0;

writeln(x,sum1:0:2);

writeln(y,xum2:0:2);

end.楼上仅限于整数，而不是实数，变量太宽而无法占用空间。

while 语句。

执行语句，直到指定的条件为 false。

while (expression)

statements

表达

必填。 布尔表达式，在每次迭代循环之前检查。 如果表达式为 true，则执行循环。 如果表达式为 false，则循环结束。

statements

自选。 expression 为要执行的一个或多个语句时为 true。

指示 while 语句在首次执行循环之前检查表达式。 如果这次 Expression 为 false，则循环不会执行一次。

示例以下示例说明了 while 语句的用法：

function breaktest(breakpoint)

return(i);

repeat 语句用于“重复循环体，直到指定的条件为 true”。 语法格式为：

repeat

声明 1;语句 n;

直到布尔表达式;

Repeat 基本上具有与 while repetition 相同的描述循环计算的能力，但存在一些差异：在 repeat 语句的结构中，布尔表达式是在计算操作之后计算的，而 while while 语句是在计算操作之前计算的，即 repeat 至少执行循环体一次。 while 语句的组件语句只能是一个语句。

因此，当重复操作包含多个语句时，请使用 begin 和 end 使其成为复合语句。 重复语句的保留字 repeat 和 until 已用作语句括号，可以包含多个语句，而无需开始和结束。 在 repeat 语句中，当布尔表达式为 true 时终止循环，而在 while 语句中，当表达式为 false 时终止循环。

在描述计算操作后是否继续重复计算时，通常用重复语句来描述。

while 语句。

循环的执行形式是 while Boolean do 语句。

例如：k：=10;

while k>0 do

beginwriteln (k);

k:=k-1

end;（1） while 和 do 是 Pascal 保留的关键字，是 while 循环语句的一部分。

2）保留关键字do后面的“语法”只能是一个语句，称为“循环”;如果需要在一个循环中包含多个语句，则应使用复合语句，如上例所示。

循环在执行到 while 语句时的执行函数。

1） 求布尔表达式的值。

2）如果布尔表达式的值为真，则执行循环体中的语句;如果为 false，请转到步骤 4

3） 重复步骤 1 和 2

4）在循环结束时，执行循环后面的语句。

repeat-until语句。

1 repeat-until 类型的循环的执行形式。

repeat

报表 1、报表 2......

语句 nuntil 布尔表达式。

例如，以下循环找到 n=1+2+3+......100

n:=0;t:=i;

repeat

n:=n+t; t:=t+1;

until t>100;

其中 （1） repeat 和 until 是 Pascal 保留关键字。

2）重复和直到之间的语句形成一个循环。它们之间可以有任意数量的语句，这与 for 和 while 循环不同，后者在语法上只允许一个语句。

2 重复直到循环。

1）当遇到重复语句时，它进入循环体，并按顺序执行循环体中的语句。

2）遇到 until 语句后，找到布尔表达式的值。如果该值为 false，则返回到步骤 1。 如果为 true，请转到步骤 3

3） 在循环结束时，执行 untill 之后的下一条语句。