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

点评：此题主要考查程序题中的循环结构和循环语句的书写问题，自己编写程序，有一定的难度，此题是一道中档题；