Friday the Thirteenth黑色星期五

最新推荐文章于 2024-12-28 20:00:12 发布

jie_guale

最新推荐文章于 2024-12-28 20:00:12 发布

阅读量711

点赞数

CC 4.0 BY-SA版权

分类专栏： NOIP2011黎明前夕的黑暗 usaco 模拟文章标签： date output input pascal file rest

本文链接：https://blog.youkuaiyun.com/jie_guale/article/details/6744460

NOIP2011黎明前夕的黑暗同时被 3 个专栏收录

223 篇文章

订阅专栏

usaco

30 篇文章

订阅专栏

模拟

27 篇文章

订阅专栏

本文介绍了一个程序，用于计算在指定年数内，13日落在星期一至星期日的次数，特别关注了黑色星期五（13号在星期五）的出现频率。

Friday the Thirteenth黑色星期五

13 号又是星期五是一个不寻常的日子吗?
13 号在星期五比在其他日少吗?为了回答这个问题,写一个程序来计算在 n 年里 13 日落在星期一,星期二......星期日的次数.这个测试从 1900年1月1日到1900+n-1 年 12 月 31 日.n 是一个非负数且不大于 400.
这里有一些你要知道的:

1900年1月1 日是星期一.
4,6,11和9月有30 天.其他月份除了 2 月有 31 天.闰年 2 月有 29 天,平年 2 月有 28 天.
年份可以被 4 整除的为闰年(1992=4*498 所以 1992 年是闰年,但是 1990 年不是闰年)
以上规则不适合于世纪年.可以被 400 整除的世纪年为闰年,否则为平年.所以,1700,1800,1900 和2100 年是平年,而2000 年是闰年.
请不要预先算好数据!
PROGRAM NAME: friday
INPUT FORMAT
一个整数 n.
SAMPLE INPUT (file friday.in)
20
OUTPUT FORMAT
七个在一行且相分开的整数,它们代表 13 日是星期六,星期日,星期一.....星期五的次数.
SAMPLE OUTPUT (file friday.out)
36 33 34 33 35 35 34

====================

==========

{
ID:jie19952
PROG:friday
LANG:PASCAL
}

const
  day:array[1..12]of longint=(31,28,31,30,31,30,31,31,30,31,30,31);
var
  n:longint;
  ans:array[1..7]of longint;
  
procedure init;
begin
  assign(input,'friday.in');
  assign(output,'friday.out');
  reset(input); rewrite(output);
end;

procedure terminate;
begin
  close(input); close(output);
  halt;
end;

procedure main;
var
  year,date,week,rest:longint;
  i:longint;
  flag:boolean;
begin
  readln(n);
  year:=1899;
  date:=31; week:=7;
  fillchar(ans,sizeof(ans),0);
  
  repeat
    inc(year);
    
    if ((year mod 100=0)and(year mod 400=0))or ((year mod 100<>0)and(year mod 4=0))
      then flag:=true
      else flag:=false;

    date:=day[12]-date+13;
    week:=(week+date) mod 7;
//    if week=0 then week:=1;
    date:=13;
   // writeln(year,' ',date,' ',week);
    
    inc(ans[week]);
    
    for i:=2 to 12 do //枚举月份
      begin
        if (i=3) and flag then
          begin
            date:=day[i-1]+1-date+13;
            week:=(week+date) mod 7;
//            if week=0 then week:=1;
            date:=13;
           // writeln(year,' ',date,' ',week);
            inc(ans[week]);
          end
          else begin
                 date:=day[i-1]-date+13;
                 week:=(week+date) mod 7;
//                 if week=0 then week:=1;
                 date:=13;
                 //writeln(year,' ',date,' ',week);
                 inc(ans[week]);
               end;
      end;
  until year=1900+n-1;
  
  write(ans[6],' ');
  write(ans[0],' ');
  for i:=1 to 4 do
    write(ans[i],' ');
  writeln(ans[5]);
end;

begin
  init;
  main;
  terminate;
end.