program z7; var day:integer; month:integer; year:integer; last:boolean; r:real; l:integer; begin writeln(‘Введите сегодняшнию дату’); writeln(‘Число месяц год’); readln(day,month,year); last:=FALSE; case month of 1,3,5,7,8,10,12:if day=31 then last:=TRUE; 4,6,9,11: if day=30 then last:=TRUE; 2: if day = 28 then begin r:=year mod 4; if r <> 0 then last:=TRUE; end; end; < case >if last then begin writeln(‘Последний день месяца’); day:=l; if month=12 then begin day:=day+1; month:=1; year:=year + 1; writeln(‘С Новым Годом’); end else month:=month + 1; end else day:=day + 1; writeln(‘Завтра ‘,day,’.’,month,’.’ ,year ); readln; end.
Как добавить хороший ответ?
Что необходимо делать:
- Написать правильный и достоверный ответ;
- Отвечать подробно и ясно, чтобы ответ принес наибольшую пользу;
- Писать грамотно, поскольку ответы без грамматических, орфографических и пунктуационных ошибок лучше воспринимаются.
Что делать не стоит:
Текущая дата в Excel: Пример использования функций СЕГОДНЯ и ТДАТА
- Списывать или копировать что-либо. Высоко ценятся ваши личные, уникальные ответы;
- Писать не по сути. «Я не знаю». «Думай сам». «Это же так просто» — подобные выражения не приносят пользы;
- Писать ответ ПРОПИСНЫМИ БУКВАМИ;
- Материться. Это невежливо и неэтично по отношению к другим пользователям.
Источник: uchi.ru
Написать программу которая вычисляет дату следующего дня
Nickolay.info. Алгоритмы. Дата следующего дня по введенной дате
Программа определяет и выводит дату следующего дня по введенным с клавиатуры дню, месяцу и году. Делает проверки корректности данных, не использует подпрограмм и циклов 🙂
program NextDay; var day,mon,year,lastday:integer; last,leap:boolean; begin writeln; writeln (‘Введите день месяц и год, разделенные пробелами:’); read (day,mon,year); if IoResult <> 0 then begin writeln (‘Вы не ввели 3 числа, это что-то другое!’); reset(input); readln; exit; end; if year12) then begin writeln (‘Месяц должен принимать значения от 1 до 12!’); reset(input); readln; exit; end; if day0) or (year mod 400 =0) then begin leap:=true; lastday:=29; end; if (leap=true) and (day=29) or (day=28) then last:=true; end; end; if day>lastday then begin writeln (‘День ‘,day,’ не существует для ‘,mon,’ месяца ‘,year,’ г.’); reset(input); readln; exit; end; if last=true then begin day:=1; mon:=mon+1; if mon>12 then begin mon:=1; year:=year+1; end; end else day:=day+1; writeln (‘Дата следующего дня:’); write (day:2,’/’,mon:2,’/’,year); reset(input); readln; end.
Источник: nickolay.info
Вычислить дату следующего дня — Turbo Pascal
Написать программу, которая вычисляет дату следующего дня. Ниже представлен рекомендуемый вид экрана во время работы программы(данные, введенные пользователем, выделены полужирном цветом) Введите цифрами сегодняшнию дату( число месяц год) 31 .12. 1999 Последний день месяца! С наступающим новым годом! Завтра 1. 1 .2000
Работа с датами и временем в Microsoft Excel
Код к задаче: «Вычислить дату следующего дня»
Листинг программы
program z7; var day:integer; month:integer; year:integer; last:boolean; r:real; l:integer; begin writeln(‘Введите сегодняшнию дату’); writeln(‘Число месяц год’); readln(day,month,year); last:=FALSE; case month of 1,3,5,7,8,10,12:if day=31 then last:=TRUE; 4,6,9,11: if day=30 then last:=TRUE; 2: if day = 28 then begin r:=year mod 4; if r <> 0 then last:=TRUE; end; end; < case >if last then begin writeln(‘Последний день месяца’); day:=l; if month=12 then begin month:=1; year:=year + 1; writeln(‘С Новым Годом’); end else month:=month + 1; end else day:=day + 1; writeln(‘Завтра ‘,day,’.’,month,’.’ ,year ); readln; end.
Источник: studassistent.ru