chapter04mmul.pro

IDL可视化分析与应用（随书程序）有需要的朋友来看看吧

; Chapter04MMul.pro
PRO  Chapter04MMul
yn = " "
REPEAT  BEGIN
    READ,  PROMPT = "请输入X = ?", x
    READ,  PROMPT = "请输入Y = ?", y
    PRINT,  x ,  " * " ,  y ,  " = " ,  x  *  y
    READ,  PROMPT = "继续计算吗？（Y or N）：",  yn
    yn = STRUPCASE(yn)
ENDREP  UNTIL  yn EQ "N"
END