chapter04sumeven1000.pro

来自「IDL可视化分析与应用（随书程序）有需要的朋友来看看吧」· PRO 代码 · 共 14 行

; Chapter04SumEven1000.pro
PRO Chapter04SumEven1000
sum = 0L
i = 1
WHILE  i LE 1000  DO  BEGIN
    IF   i MOD 2  THEN BEGIN
       i++
       CONTINUE
    ENDIF
    sum = sum + i
    i++
ENDWHILE
PRINT,  ' 2 + 4 + … + 1000 = ',  sum
END