Предмет: Информатика,
автор: КотЭюшка
Паскаль АВС.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
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
Предмет: Русский язык,
автор: lokipronud
Предмет: Химия,
автор: Аноним
Предмет: Химия,
автор: 28967654у
Предмет: Обществознание,
автор: Filka7