DouKaku? 7061 mattsan: あらためてDelphi(Pascal)で...(LL Golf Hole 3 - 13日の金曜日を数え上げる)

Comment detail

LL Golf Hole 3 - 13日の金曜日を数え上げる (Nested Flatten)

あらためてDelphi(Pascal)で書いてみると。他の言語と比べて変数が多くなってしまう感じです。

現在、手元にDephiがなかったのでFree PascalのDelphi互換(-Mdelphiオプション)でコンパイルしています。

program Doukaku197;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  Day, Max: TDateTime;
  Y, M, D:  Word;
  I:        Integer;
begin
  Day := Date;
  Max := EncodeDate(2013, 12, 31);
  I   := 0;
  while Day <= Max do
  begin
    DecodeDate(Day, Y, M, D);
    if (D = 13) and (DayOfWeek(Day) = 6) then
    begin
      WriteLn(Y, '/', M, '/', D);
      Inc(I);
    end;
    Day := Day + 1;
  end;
  WriteLn(I, ' days');
end.

DouKaku?

Comment detail

Index

Feed

Other

Link

Pathtraq