Предмет: Информатика, автор: КотЭюшка

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

Ответы

Автор ответа: Аноним
0
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

Автор ответа: Аноним
0
Правильнее сказать, что не Паскаль имеет класс для работы с датами и временем - он позволяет использовать соответствующую библиотеку среды Microsoft.Network
Похожие вопросы
Предмет: Алгебра, автор: dashacot08012005
Предмет: Обществознание, автор: Filka7
2. Осуществление права и свободы неотчуждаемы и принадлежат каждому от рождения.
3. Осуществление прав и свобод человека и гражданина не должно нарушать права и свободу других лиц.
4. Все равны перед законом и судом.
5. Мужчина и женщина имеют равные права и свободы и равные возможности для их реализации.
6. Достоинство личности охраняются государством.
7. Никто не должен подвергаться пыткам, насилию и т. д.
8. Арест, заключение под стражей допускаются только по судебному решению. До судебного решения лицо не может быть подвергнуто задержанию на срок более 48 часов.
9. Жилище неприкосвенно. Никто не вправе пронизать в жилище против воли проживающих в нём лиц иначе как в случаях на основании судебного решения.
10. Каждому гарантируется свобода совести, свобода вероисповедования, включая право исповедовать индивидуально или совместно с другими любую религию или не исповедовать никакой, свободно выбирать.
11. Каждому гарантируется свобода мысли и слова.
12. Граждане и их объединение вправе иметь в частной собственности землю...
13. Труд свободен. Каждый имеет право свободно распоряжаться своими способностями к труду, выбирать род деятельности и профессию.
14. Каждому гарантируется судебная защита его прав и свобод.
15. Каждому гарантируется право на получение квалификационной юридической помощи.
16. Материнство и детство, семья находятся под защитой государства.
17. Гражданин РФ может самостоятельно осуществлять в полном объёме свои права и обязанности с 18 лет.