2011-10-19 115 views
-2

如何將while循環轉換爲for循環?將while循環轉換爲for循環

const 
    TheRightWord = 'hello'; 
    MaximumTries = 3; 
var 
    NTries : integer; 
    AWord : string; 
begin 
    NTries := 1; 
    AWord := ' '; 
    while (AWord <> TheRightWord) and (NTries <= MaximumTries) do 

我認爲這將是答案:

for (AWord <> TheRightWord) and (NTries <= MaximumTries) do 

必須我只是把一個for就地的while的?或者它是for i := 1 to 3 do

+0

這是一個家庭作業? – Kromster

+0

不,我想要一個程序,要求密碼.... – user1000441

+0

,如果3次嘗試失敗,那麼它會鎖定你,但我想用for循環代替一段時間 – user1000441

回答

7
for numtries := 1 to maxnumtries do begin 
    if AWord = TheRightWord then 
     break; 
     ... 

如何決定成敗退出時的循環(或者,對於這個問題,如何通過「AWORD」的不同值迭代),是對學生的鍛鍊:-)

+3

嚴格地說,這是對問題的正確答案,但我個人不喜歡使用'break'。出於這個原因,我將首先使用一個while循環。 –