我是做習題之後發現跟我實際上用手算低不同~題目如下：一隻蝸牛爬一口井，井深10公尺每天從早上爬到傍晚可以爬三公尺，晚上休息到隔天早上下滑兩公尺，請問他需要爬幾個整數天才能爬出井口??  我打的程式碼如下： var a,b,c,s:integer; begin  s:=0;  c:=1;  a:=3;  b:=2;  while(s<10)do begin s:=s a; c:=c 1; end; while(s<10)do begin s:=s-b; end; write('共 ',c,'天 '); readln; end. 執行出來變成5天~但我實際用手算是8天，請問各位大大我哪裏做錯摟@@"~或者幫我修改一個正確的答案@@"

這樣呢？

var 
  a, b, c, s: integer;
begin
  s := 0;
  c := 1;
  a := 3;
  b := 2;
  while (s < 10) do
  begin
    s := s   a;
    c := c   1;
    if s >= 10 then Break;
    s := s - b;
  end;
  write('共 ',c,'天 ');
  readln;
end.

-- QBQ: 我能做什麼？ 發表人 - hagar 於 2004/12/30 19:25:34

你用的是可以的~但是不知道為什麼我自己寫出來的會不太一樣@@難道有再加一個IF的指令才會正確??

我發現應賅要這樣做才對~不知是不是~~@@ var a, b, c, s: integer; begin s := 0; c := 1; a := 3; b := 2; while (s < 10) do begin s := s a; if s >= 10 then Break; c := c 1; s := s - b; end; write('共 ',c,'天 '); readln; end.

引言: 你用的是可以的~但是不知道為什麼我自己寫出來的會不太一樣@@難道有再加一個IF的指令才會正確??

那個 if 指令是說蝸牛已經爬到井口了(s >= 10) 已經爬到井口就不會再滑下去了 不會再滑下去就跳出迴圈了. -- QBQ: 我能做什麼？

喔喔~原來是這樣@@~我還是個Delphi的新手~學四個月摟^^"還是有很多不懂低@@