Напечатать числа последних четвергов каждого месяца Паскаль

[Alen4ik]

Если не сложно, помогите пожалуйста.

Известно название дня недели 1-е января. Напечатать все числа, соответствующие последним четвергам каждого месяца с указанием название месяца. В году 365 дней.

[Serge_Bliznykov]

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

const
  MonthName : array[1..12] of string =
('Января','Февраля','Марта','Апреля','Мая','Июня','Июля',
'Августа','Сентября','Октября','Ноября','Декабря');  

const DaysInMonth : array[1..12] of integer =
   (31,28,31,30,31,30,31,31,30,31,30,31);


var i,D1, DCur : integer;
begin
  WriteLn;
  WriteLn('Введите номер дня недели 1-го января (1=понедельник, 2=вторник,..7=воскресение)');
  ReadLn(D1);
  if (D1<1) or (D1>7) then begin
    WriteLn('Вы ввели недопустимый день недели!');
    WriteLn('нечего делать - выходим!');
    Halt(1)
  end;
  
  WriteLn('четвергами в этом году будут: ');
  for i:=1 to 12 do begin
    {вычисляем дату четверга через 5 недель с учётом поправки на то,
        что 1-е число D1 день недели}
    DCur := 1 + 35 - (D1 - 4);
    while DCur > DaysInMonth[i] do DCur := DCur - 7;
    WriteLn(DCur:1,' ', MonthName[i]);
    {теперь выясним, каким днём недели будет 1-е число следующего месяца}
    D1 := ((D1 + DaysInMonth[i] - 28 - 1) mod 7) + 1;
  end;
end.

[Alen4ik]

Большое спасибо. Очень даже поможет!

[TheLiv]

Помогите дорогие форумчани, а как должен выглядить алгоритм, если мы ищем не последний четверг и все четверги в месяце, в году

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

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

const
  MonthName : array[1..12] of string =
('Января','Февраля','Марта','Апреля','Мая','Июня','Июля',
'Августа','Сентября','Октября','Ноября','Декабря');  

const DaysInMonth : array[1..12] of integer =
   (31,28,31,30,31,30,31,31,30,31,30,31);


var i,D1, DCur : integer;
begin
  WriteLn;
  WriteLn('Введите номер дня недели 1-го января (1=понедельник, 2=вторник,..7=воскресение)');
  ReadLn(D1);
  if (D1<1) or (D1>7) then begin
    WriteLn('Вы ввели недопустимый день недели!');
    WriteLn('нечего делать - выходим!');
    Halt(1)
  end;
  
  WriteLn('четвергами в этом году будут: ');
  for i:=1 to 12 do begin
    {вычисляем дату четверга через 5 недель с учётом поправки на то,
        что 1-е число D1 день недели}
    DCur := 1 + 35 - (D1 - 4);
    while DCur > DaysInMonth[i] do DCur := DCur - 7;
    WriteLn(DCur:1,' ', MonthName[i]);
    {теперь выясним, каким днём недели будет 1-е число следующего месяца}
    D1 := ((D1 + DaysInMonth[i] - 28 - 1) mod 7) + 1;
  end;
end.