求pascal编程：已知1900年一月一日为星期一，输入任意一天，判断星期几？

发布网友发布时间：2022-05-18 23:25

共2个回答

热心网友时间：2023-11-20 05:54

var
y,m,d,y1,m1,d1,l:integer;
n:longint;
begin
y:=1900; m:=1; d:=1;
writeln('please put date today');
readln(y1,m1,d1);
repeat
inc(n);
inc(d);
case m of
1,3,5,7,8,10,12:l:=31;
4,6,9,11:l:=30;
2:if (y mod 4=0) and(y mod 100<>0) or (y mod 400=0) then l:=29 else l:=28
end;
if d>l then
begin
inc(m);
d:=1;
end;
if m>12 then
begin
inc(y);
m:=1;
end;
until (y=y1) and (m=m1) and (d=d1);
case (n mod 7)+1 of
0: write('Sunday');
1: write('Monday');
2: write('Tuesday');
3: write('Wednsday');
4: write('Thursday');
5: write('Friday');
6: write('Saturday');
end;
readln;
end.
英文单词不知道有没有错
输入例如
1990 1 2
输出
Tuesday

热心网友时间：2023-11-20 05:55

1、模拟
我就不说了
2、用数论，把从1900年一月一日到输入那天的天数 mod 7+1即可