dianzhitaili.txt

用pascal编一个年历具体要求是：设计电子月历的程序 一、任务内容（task） 1．设计的程序应具有以下功能： （1）任意输入某年的某一月份

program calendar; 
uses crt; 
var y,m,d,w,c,y2,m2:longint; 
i,j,k:longint; 
begin 
clrscr; 
writeln('请您输入年、月，输入0 0表示结束。'); 
readln(y,m); 
while (y<>0) and (m<>0) do begin 
writeln(y,'年',m,'月 的日历如下：'); 
y2:=y; 
m2:=m; 
if m<3 then begin m:=m+12;y:=y-1; end; 
c:=y div 100; 
y:=y mod 100; 
d:=1; 
w:=((c div 4)-(2*c)+y+(y div 4)+(26*(m+1) div 10)+d-1) mod 7; 
if w<0 then w:=7-abs(w); 
if (m2=1) or (m2=3) or (m2=5) or (m2=7) or (m2=8) or (m2=10) or (m2=12) 
then d:=31 
else if (m2<>2) then d:=30; 
if m2=2 then 
if ((y2 mod 4=0) and (y2 mod 100<>0)) or (y2 mod 400=0) then 
d:=29 else d:=28; 
writeln(w,' ',d); 
writeln(' Sun Mon Tue Wed Thu Fri Sat'); 
for i:=1 to w do 
write(' ':5); 
for j:=1 to d do begin 
write(j:5); 
if (j+w) mod 7=0 then writeln; 
end; 
writeln; 
readkey; 
readln(y,m); 
end; 
end.