Question

Паскаль АВС . Дана запись d1,состоящая из 3х полей: число , номер месяца, год. Определить d2-дату следующего дня

Answer 1

Program 1123;
type data = record     g: 0..3000;     mes: 1..12;     day: 1..31;     end;
var d1,d2:data;begin writeln('Введите дату через пробел(число, месяц, год)');readln(d1.day,d1.mes,d1.g);
d2:=d1;d2.day:=d1.day+1;with d2 do case mes of 1,3,5,7,8,10: begin               if day=32 then begin mes:=mes+1; day:=1; end;              end;
4,6,9,11: begin            if day=31 then begin mes:=mes+1; day:=1; end;          end;2: begin     if g mod 4=0 then begin                        if day=30 then begin mes:=mes+1; day:=1; end; end                 else begin                        if day=29 then begin mes:=mes+1; day:=1; end;                       end;
 end;
12: begin     if day=32 then begin g:=g+1; mes:=1; day:=1; end;    end;end;writeln('Следующий день ',d2.day,'.',d2.mes,'.',d2.g);end.

Answer 2

К сожалению, ваш запрос содержит несколько неточностей, и мне не совсем ясно, что вы имеете в виду. Возможно, у вас есть в виду запись в формате день-месяц-год. Если это так, то я предположу, что d1 имеет формат "число, номер месяца, год". Вам нужно определить d2 - дату следующего дня.

Предположим, что d1 представляет собой строку в формате "день, месяц, год". В зависимости от языка программирования, который вы используете, код может выглядеть по-разному. Давайте рассмотрим пример на языке Pascal.

Предположим, у вас есть переменная d1 с данными:

var
  d1: string;
  day, month, year: Integer;
  date: TDate; // TDate - тип данных для работы с датой в Pascal
begin
  // Присвоение значений полям
  d1 := '1, 12, 2023'; // Пример значения d1

// Разбиение строки на составляющие
  // Предполагается, что значения разделены запятой и нет пробелов
  day := StrToInt(ExtractWord(1, d1, [',']));
  month := StrToInt(ExtractWord(2, d1, [',']));
  year := StrToInt(ExtractWord(3, d1, [',']));

// Создание объекта TDate
  date := EncodeDate(year, month, day);

// Прибавление одного дня
  date := IncDay(date);

// Вывод результата
  writeln('Дата следующего дня: ', FormatDateTime('dd.mm.yyyy', date));
end.

В этом примере используются функции `StrToInt` для преобразования строковых значений в целые числа и `EncodeDate` для создания объекта даты. Функция `IncDay` используется для прибавления одного дня к текущей дате. Функция `FormatDateTime` используется для форматированного вывода результата.

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