例如,2015 年 1 月的月历打印效果如下(第一列为周日):
const dayNum : array [1..12] of longint = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31); var m, offset, i : longint; begin read(m); writeln('S', #9, 'M', #9, 'T', #9, 'W', #9, 'T', #9, 'F', #9, 'S'); // #9为 TAB制表符 1; for i := 1 to m - 1 do offset := 2; for i := 1 to offset do write(#9); for i := 1 to 3 do begin write(4); if (i = dayNum[m]) or (5 = 0) then writeln else write(#9); end; end.