Написать программу, которая по введенной дате распечатывает дату на n дней вперед

26.02.2017, 11:04. Показов 1334. Ответов 0

Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам

ввести структуру с полями число месяц год для описания понятия дата написать программу по введенной дате распечатывает дату на n дней вперед.
У меня в месяце 31 день как сделать чтоб дней в месяце было 30 31 и даже 28 в феврале
---------------------------------------------------------------

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
type ter = record
chisla: integer;
mec   : integer;
got   : integer;
end;
 
var
 x,y,z: ter;
    N:integer;
begin
writeln ('Введите число');
readln  (x.chisla);
writeln ('Введите месяц ');
readln  (x.mec);
Writeln  ('Введите год');
readln  (x.got);
Writeln ('Введите кол-во дней N');
readln  (N);
write ('дата ' , x.chisla,'.',x.mec,'.',x.got);
x.chisla := x.chisla+N;
 if x.chisla > 31 then
 begin
 x.mec:=x.mec + 1;  
  x.chisla:=x.chisla  - 31;
 end;
 writeln (' Дата на N дней вперед = ',x.chisla,'.',x.mec,'.',x.got);
end.

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

26.02.2017, 11:04

Ответы с готовыми решениями:

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

Написать программу, которая по введенной дате рождения человека определит кто он по знаку зодиака
Известно, что астрологи делят год на 12 периодов и каждому из них ставят в соответствие один из знаков Зодиака: Период Знак...

Написать программу, которая вычисляет сколько дней осталось до нового года от введенной пользователем даты.
Написать программу, которая вычисляет сколько дней осталось до нового года от введенной пользователем даты. Помогите пожалуйста!:gcray:

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

26.02.2017, 11:04

Помогаю со студенческими работами здесь

Написать программу , позволяющую определить дату , которая наступит через X дней после текущей даты
Добрый день ! Вот условие: Написать программу , позволяющую определить дату , которая наступит через X дней после текущей даты. ...

Составить программу подсчета количества прожитых дней по введенной дате рождения
Составить программу подсчета количества прожитых дней по введенной дате рождения, проверяя корректность введенной даты с помощью Property...

Написать скрипт который по введенной дате будет вычислять количество дней по сегодняшнее число
Написать скрипт который по введенной дате будет вычислять количество дней по сегодняшнее число. Например: Ввели 20.04.2017, а сегодня...

Написать программу, которая распечатывает планы майора на вечер
Каждое утро майор Знаменский заходит в тир и делает 5 выстрелов через плечо. Если он набирает 50 очков, то вечером идет с Зиночкой в...

Написать программу, которая распечатывает последнюю цифру заданного числа.
Задание: Написать программу, которая распечатывает последнюю цифру заданного числа. Помогите плиз) Заранее спасиб.

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .

Наверх