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 之後的下一條語句。