有关年份的ti程序.pdfVIP

经许可复制 著作权人姓名: 冯薇、 陈林超 关年份的小程序：The Great Calendar l 程序目的： 由用户输入 （公元）某年的年份，然后，通过程序计算，完成以下几项功能： 1、用天干地支纪年法表示该年年份。在程序中用拼音表示汉字； 2、判断该年的生肖属相。用 12 生肖的方法表示。在程序中，表示为“A **** （生肖名）YEAR”； 3、判断该年是否为闰年。若该年恰是闰年，则一并输出 THIS YEAR IS AN INTERCALARY YEAR” 的字样，否则，输出 THIS YEAR IS NOT AN INTERCALARY YEAR”的字样。 l 程序流程： l 相关程序：prgmTI、prgmYEARS、Pic1、Pic2、Pic3 l 程序内容： PROGRAM:TI 主程序名：TI : PlotsOff 关闭数据图象功能 : FnOff 关闭函数图象功能 : AxesOff 不显示坐标轴 : ClrHome 清除主屏幕 : ClrDraw 清除图片区域 : RecallPic 1 出Picture 1 作为程序开始界面 : Pause 暂停，显示Picture 1 : ClrDraw 清除图片区域 : RecallPic 2 出Picture 2 作为程序的说明部分 : Pause 暂停，显示Picture 2 : PrgmYEARS 用子程序：YEARS PROGRAM:YEARS 子程序部分 : Lbl A 说明变量A : Lbl B 说明变量B : Lbl C 说明变量C : Input THE YEAR IS”,A 请用户输入年份 : If not(A0) 判断输入的年份是否合法 : Then 如果不合法则 : Disp ERROR” 在主屏幕显示“ERROR” : Else 如果合法则执行以下操作 : (A-3-int((A-3)/10)*10)-B 将 （年份-3 ）/ 10 的余数赋值给B，即天干的 序数 将 （年份 ） 的余数赋值给 ，即地支的 : (A-3-int((A-3)/12)*12)-C -3 / 12 C 序数 判断 的值，显示相应的天干名称 : If B=1 B : Then 输出在主屏幕上。 : Disp JIA” l B=1 甲，显示“JIA ” : End l B=2 乙，显示“YI ” : If B=2 l B=3 丙，显示“BING” : Then l B=4 丁，