Определить количество понедельников в году, приходящихся на 13-е число

[Serge_Bliznykov]

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

мой алгоритм оптимальнее

полностью с Вами согласен.
но у Вас 12 итераций, у меня 52. За сколько на процессоре выполнится 52 шага с двумя условными операторами и несколькими инкрементами целых чисел?
Сколько составит выигрыш в долях секунды?
Хотя, конечно, ваш алгоритм лучше.

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

и я дал человеку удочку, а не рыбу

это так. плохо, что ему удочка не нужна, ему бы рыбку съесть и уйти.
Вот не собирается он рыбной ловлей заниматься, судя по всему...

[Аватар]

Можно и формулой без цикла. Например для не високосного года

function CalcDays(FirstDayOfWeek,FindDayOfWeek,DayOfMonth: Integer): Integer;
//FirstDayOfWeek [1..7] - день недели 1 января, 1 - понедельник
//FindDayOfWeek [1..7] - день недели для числа DayOfMonth [1..31]
var k: Integer;
begin
  if DayOfMonth<=28 then begin
    case (DayOfMonth-FindDayOfWeek+FirstDayOfWeek+7) mod 7 of
    1,2,3: Result:=2;
    0,4,6: Result:=1;
    else Result:=3;
    end;
  end
  else begin
    k:=FindDayOfWeek-FirstDayOfWeek;
    if k<0 then Inc(k,7);
    case DayOfMonth of
    29: if k in [1,2,4] then Result:=1 else Result:=2;
    30: if k in [2,3,5] then Result:=1 else Result:=2;
    else case k of
         2: Result:=2;
         6: Result:=0;
         else Result:=1;
         end;
    end;
  end;
end;

[Serge_Bliznykov]

Сообщение от Аватар

Можно и формулой без цикла.

Это вообще магия какая-то! O_o

[СтудПом]

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

злые ленивые дядьки-программисты его жестоко обманули

Сволочи убили обманули Кенни

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

и я дал человеку удочку, а не рыбу

И теперь он сдаст её в аренду, деньги пустит на подкуп ДВ Росрыболовства и станет рыбным губернатором!

[New man]

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

p.s. а какую формулу Вы имеете в виду? Может быть, я чего-то не знаю или просто неправильно Вас понял?

Ну, я это имел в виду:
https://en.wikipedia.org/wiki/Determ...cal_algorithms

А смысл определять день недели в отрыве от полной даты?

А вообще, у ТС задача какая-то простая, оказывается.