chapter04sumeven1000.pro

来自「IDL可视化工具入门与提高(PDF)及其随书代码」· 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