Аватар
Информатика, опубликовано 2018-08-22 19:54:58 by Гость

Паскаль АВС.NET Составить программу с записью Дата. Программа должна обеспечивать простейшие функции для работы с данными : увеличение/уменьшение на 1 день, ввод значений , вывод значений. Помогите пожалуйста.

Аватар
Ответ оставил Гость

Uses
  System;

var
  d1, d2: DateTime;
  s: string;

begin
  Write(Введите дату в формате ДД.ММ.ГГГГ: );
  Readln(s);
  d1 := DateTime.Parse(s); { получили дату }
  d2 := d1.AddDays(-1);
  Writeln(Предыдущий день: , d2.Day, ., d2.Month, ., d2.Year);
  d2 := d1.AddDays(1);
  Writeln(Следующий день: , d2.Day, ., d2.Month, ., d2.Year);
end.

Тестовое решение:
Введите дату в формате ДД.ММ.ГГГГ: 31.12.2014
Предыдущий день: 30.12.2014
Следующий день: 1.1.2015

Вопрос
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.