chapter04setpeople.pro

idl 可视化分析与应用（随书程序）

; Chapter04SetPeople.pro
PRO  Chapter04SetPeople
　　COMMON SetPeopleInformation, MyName, MyAge, MySex, MyTime
　　MyName =' '
　　MyAge = 0B
　　MySex =' '
　　READ,  PROMPT = "请输入姓名：", MyName
　　READ,  PROMPT = "请输入年龄：", MyAge
　　READ,  PROMPT = "请输入性别（Male 或 Female）：", MySex
　　MyTime = SYSTIME()
END