Вопрос по информатике:
Паскаль АВС . Дана запись d1,состоящая из 3х полей: число , номер месяца, год. Определить d2-дату следующего дня
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 09.07.2015 15:12
- Информатика
- remove_red_eye 15108
- thumb_up 29
Ответы и объяснения 1
Program 1123;
type data = record g: 0..3000; mes: 1..12; day: 1..31; end;
var d1,d2:data;begin writeln('Введите дату через пробел(число, месяц, год)');readln(d1.day,d1.mes,d1.g);
d2:=d1;d2.day:=d1.day+1;with d2 do case mes of 1,3,5,7,8,10: begin if day=32 then begin mes:=mes+1; day:=1; end; end;
4,6,9,11: begin if day=31 then begin mes:=mes+1; day:=1; end; end;2: begin if g mod 4=0 then begin if day=30 then begin mes:=mes+1; day:=1; end; end else begin if day=29 then begin mes:=mes+1; day:=1; end; end;
end;
12: begin if day=32 then begin g:=g+1; mes:=1; day:=1; end; end;end;writeln('Следующий день ',d2.day,'.',d2.mes,'.',d2.g);end.
- 01.01.1970 00:00
- thumb_up 42
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.