chaptertable992for.pro

IDL可视化分析与应用的源代码

; ChapterTable992For.pro

PRO ChapterTable992For
i = 1
WHILE 1 DO  BEGIN
    IF i GT 9 THEN GOTO, MyLabel
　　FOR j = 1, i DO BEGIN
　　　　PRINT, j, '*', i, '=', i*j, FORMAT='(4X, I1, 1X, A1, 1X, I1, 1X, A1, 1X, I2, $)'
　　ENDFOR
　　PRINT
    i++
ENDWHILE
MyLabel: PRINT, '九九乘法表输出结束！'
END