Нахождение всех пятниц 13е в году

[Katy007]

Программа не требует никаких входных данных. Нужно сосчитать и вывести все пятницы 13е в этом году.
Подскажите новичку, как ее лучше решать?

Динамический двумерный массив? Статический двумерный? 12 массивов (число месяцев)?
Заранее благодарна за любую помощь!

Возможно поможет что 1е января этого года уже пятница

[Serge_Bliznykov]

вот. решение "в лоб" - процедуры работы с датой выдернуты из пакета TurboProfessional.
разбирайтесь.

uses Dos;

function DayOfWeek(Day, Month, Year: Integer) : Integer;
var
  century, yr, dw: Integer;
begin
  if Month < 3 then
  begin
    Inc(Month, 10);
    Dec(Year);
  end
  else
     Dec(Month, 2);
  century := Year div 100;
  yr := year mod 100;
  dw := (((26 * month - 2) div 10) + day + yr + (yr div 4) +
    (century div 4) - (2 * century)) mod 7;
  if dw < 0 then DayOfWeek := dw + 7
  else DayOfWeek := dw;
  if (dw = 0) or ((dw+7)=0) then DayOfWeek:=7
end;

var
  Day,Month,Year,DayOf : word;
begin
  {получить сегодняшнее число}
  GetDate(Year,Month,Day,DayOf);

  for Month:=1 to 12 do
      if (DayOfWeek(13, Month, Year) = 5)
          then WriteLn('13.',Month:1,'.',Year:1);

  Readln;
end.

p.s. а в этом году только одна пятница-13-е - 13 августа...

[Stilet]

Вот по сусекам порылся, колледжовским:

const m:array[1..12] of integer=(31,28,31,30,31,30,31,31,30,31,30,31);
var i,k,n:integer;
begin i:=1;
 while i<=12 do begin
   inc(k,7);
   if k=13 then write(i:5);
   if k>m[i] then begin
    k:=k-m[i];
    inc(i);
   end;
 end;
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Это прокатывало...

[Katy007]

Сообщение от Serge_Bliznykov

вот. решение "в лоб" - процедуры работы с датой выдернуты из пакета TurboProfessional.
разбирайтесь.

uses Dos;:)

function DayOfWeek(Day, Month, Year: Integer) : Integer;
var
  century, yr, dw: Integer;
begin
  if Month < 3 then
  begin
    Inc(Month, 10);
    Dec(Year);
  end
  else
     Dec(Month, 2);
  century := Year div 100;
  yr := year mod 100;
  dw := (((26 * month - 2) div 10) + day + yr + (yr div 4) +
    (century div 4) - (2 * century)) mod 7;
  if dw < 0 then DayOfWeek := dw + 7
  else DayOfWeek := dw;
  if (dw = 0) or ((dw+7)=0) then DayOfWeek:=7
end;

var
  Day,Month,Year,DayOf : word;
begin
  {получить сегодняшнее число}
  GetDate(Year,Month,Day,DayOf);

  for Month:=1 to 12 do
      if (DayOfWeek(13, Month, Year) = 5)
          then WriteLn('13.',Month:1,'.',Year:1);

  Readln;
end.

p.s. а в этом году только одна пятница-13-е - 13 августа...

Спасибо огромное за быструю помощь!

Сообщение от Stilet

Вот по сусекам порылся, колледжовским:

const m:array[1..12] of integer=(31,28,31,30,31,30,31,31,30,31,30,31);
var i,k,n:integer;
begin i:=1;
 while i<=12 do begin
   inc(k,7);
   if k=13 then write(i:5);
   if k>m[i] then begin
    k:=k-m[i];
    inc(i);
   end;
 end;
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Это прокатывало...

Программа шикарна! Не ожидала что ее можно решить в 10 строк. Только чтобы она по этому году правильно считала нужно до цикла написать k:=1
Безумно вам благодарна..

[Stilet]

Программа шикарна!

Ну недостатки у нее всетки есть
Не мог же я идеально написать, да еще и в колледже...
просто мучаться не хотелось, а преподавательница особо не настаивала - сказала "подходит" и все.

нужно до цикла написать k:=1

Это я действительно забыл...

[Serge_Bliznykov]

Не ожидала что ее можно решить в 10 строк. Только чтобы она по этому году правильно считала нужно до цикла написать k:=1

ну, ну это уж очень специфичное решение...
Расчёт зависит от того, какой день недели выпал на 1 января...
А что делать, если нужно посчитать для следующего года - к какое будете поставлять?
А если для високосного года?

впрочем, если Вас такое решение конкретной задачи (найти пятницы 13-е в 2010 году) устраивает, то почему бы и нет?!

[Katy007]

Сообщение от Serge_Bliznykov

ну, ну это уж очень специфичное решение...
Расчёт зависит от того, какой день недели выпал на 1 января...
А что делать, если нужно посчитать для следующего года - к какое будете поставлять?
А если для високосного года?

впрочем, если Вас такое решение конкретной задачи (найти пятницы 13-е в 2010 году) устраивает, то почему бы и нет?!

Да меня вполне устраивает)Главное, чтобы и препода устроил.. Ну если для високосного, то там конечно нужно еще доп.условие пихать. Да и k подгонять нужно.. Как сделать это я знаю, но это не требуется просто)))

[Stilet]

Как сделать это я знаю

вручаю тебе Медаль Почетного Эксплорера Имени Дискавери
Ты пожалуй одна из единственных, кто знает с полуслова, а не требует код для копипасте, та еще так чоб преподаватели пятерку поставили чисто "здать и котись оно все..."
Респект и уважуха

[Katy007]

Спасибо
Прям можно даже и посмущаться немножко))