C начала 1990 года по некоторый день прошло n месяцев и 2 дня. Определить название месяца этого дня, написать программу в pascal (case of) и (if else), подскажите хотя бы алгоритм решения!

Для того чтобы решить задачу, давайте разберем её поэтапно и определим алгоритм.

Задание:

Нужно определить название месяца для определённого дня, прошедшего с начала 1990 года. Известно, что прошло n месяцев и 2 дня.

Шаги решения:

1. Рассмотрим структуру календаря:
   • 1990 год — это обычный год, не високосный, следовательно:
     • Январь — 31 день
     • Февраль — 28 дней
     • Март — 31 день
     • Апрель — 30 дней
     • Май — 31 день
     • Июнь — 30 дней
     • Июль — 31 день
     • Август — 31 день
     • Сентябрь — 30 дней
     • Октябрь — 31 день
     • Ноябрь — 30 дней
     • Декабрь — 31 день
2. Алгоритм для нахождения месяца:
   • Мы знаем, что прошло n месяцев и 2 дня. Для поиска месяца, нужно вычислить, в какой месяц попадает эта дата.
   • Сначала вычислим, сколько полных месяцев прошло.
   • Затем определим остаточные дни (2 дня) в текущем месяце.
3. Алгоритм:
   • Пройти по месяцам, добавляя количество дней каждого месяца.
   • Когда сумма дней превысит количество дней, прошедших с начала года (после учёта n месяцев и 2 дней), мы находим месяц и день, на который выпадает это число.

Реализация в Паскале:

Предположим, что значение n уже задано (например, n = 5), тогда мы добавляем 2 дня и определяем месяц.

pascal
program FindMonth;
var
  n, totalDays, daysInMonth: Integer;
  monthNames: array[1..12] of string = ('Январь', 'Февраль', 'Март', 'Апрель', 'Май', 'Июнь', 'Июль', 'Август', 'Сентябрь', 'Октябрь', 'Ноябрь', 'Декабрь');
  daysInMonths: array[1..12] of Integer = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
  currentMonth, currentDay, passedDays: Integer;
begin
  Write('Введите количество месяцев (n): ');
  ReadLn(n);
  passedDays := n * 30 + 2;  // Примерный расчёт дней. Можно точнее, но тут для простоты.
  currentMonth := 1;
  totalDays := 0;
  
  // Поочередно добавляем количество дней каждого месяца
  while totalDays < passedDays do
  begin
    totalDays := totalDays + daysInMonths[currentMonth];
    if totalDays >= passedDays then
    begin
      currentDay := daysInMonths[currentMonth] - (totalDays - passedDays);
      break;
    end;
    currentMonth := currentMonth + 1;
  end;
  
  // Выводим результат
  WriteLn('Месяц: ', monthNames[currentMonth], ', День: ', currentDay);
end.

Объяснение кода:

1. Массив daysInMonths хранит количество дней в каждом месяце (для невисокосного года).
2. Массив monthNames хранит название каждого месяца.
3. Мы умножаем количество месяцев n на среднее количество дней в месяцах (30 дней), а затем добавляем 2 дня.
4. С помощью цикла накапливаем количество дней до того момента, когда сумма дней превышает или равна количеству дней, которые мы ищем.
5. Когда мы находим нужный месяц, вычисляем точный день, вычитая разницу между текущими днями и прошедшими днями.

Пример:

Предположим, что прошло 5 месяцев и 2 дня:

• n = 5
• Прошло 5 * 30 + 2 = 152 дня
• Начиная с января, суммируем дни: январь (31), февраль (28), март (31), апрель (30), май (31).
• Когда мы прибавим май (31), то получим 151 день, и еще 2 дня будут в июне, значит, дата будет 2 июня.

В этом примере программа выведет:

makefile
Месяц: Июнь, День: 2

Использование конструкции case или if else:

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

Если использовать if else, то можно проверять, к какому месяцу относится значение currentMonth и выводить его название через условные операторы.

Надеюсь, это объяснение и пример программы помогут вам решить задачу.