通用年历、月历打印程序

通常的年历打印程序仅限于阳历的打印,且其打印规格比较单一,本文从两种不同的角度给出带阴历多规格的年历打印程序。 程序一: 注意到每一天所要表示的信息有:这一天是哪个月,哪一天及星期几,因此我们可以设定一个三维数组来表示。这样如用A(12,6,6) 记录阳历的信息;B(12,6,6)记录阴历的信息。便可以设计如下的程序一。 整个程序分三部分: 1)数据段(5—65句) 用C(12)数组读入阳历每月的天数,用D(14)读入阴历每月的天数(注意一年中可能跨含阴历十四个月)第33—35句给出y年元旦的星期数。本程序限于1988年—1992年年历的打印,各年的阴历数据分别由350—390给出,其中第一个数据表该年第H月为润月(无润月即H=-1)。第二、三个数据F、B表该年元旦为阴历F月第B日。