Question

求1～1000的所有不能被3整除的整數之和的程序如下：
S=0 （1）試用直到型循環結構再寫一次這個程序．
i=1
WHILE i＜=1000 （2）編寫求1～1000的所有能被3整除的整
r=i MOD 3        數之和的程序．
IF r＜＞0 THEN
S=S+i
END IF
i=i+1
WEND
PRINT S
END．

Answer 1

【答案】分析：（1）要求試用直到型循環結構再寫一次這個程序，即DO…LOOP UNTIL 結構，根據原程序進行書寫；
（2）編寫求1～1000的所有能被3整除的整數之和，首先S=0，利用WHILE••END IF，進行編程．
解答：解（1）S=0              
    i=1
DO  
r=i MOD 3   
IF r＜＞0 THEN  
S=S+i
END IF
i=i+1  
LOOP UNTIL i＞1000
PRINT S  
END（6分）
（2）S=0
WHILE  i＜=1000
r=i MOD 3
IF  r=0   THEN
S=S+i
END  IF
i=i+1
WEND
PRINT
END
點評：此題主要考查程序題中的循環結構和循環語句的書寫問題，自己編寫程序，有一定的難度，此題是一道中檔題；