Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
ReaGed
1 / 1 / 1
Регистрация: 02.11.2013
Сообщений: 49
1

Следующий день

20.11.2013, 06:52. Просмотров 927. Ответов 2
Метки нет (Все метки)

Приветствую!

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

Например:
Ввел: 20.11.2013 вывело: 21.11.2013
Ввел: 30.11.2013 вывело: 01.12.2013

Спасибо!
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.11.2013, 06:52
Ответы с готовыми решениями:

Начав тренировки, лыжник в первый день пробежал 10 км. Каждый следующий день он увеличивал пробег на 10%
Начав тренировки, лыжник в первый день пробежал 10 км. Каждый следующий день он...

Циклы: Спортсмен в первый день пробежал 10 км. Каждый следующий день он увеличивает дневную норму на 10%
Начав тренировки. Спортсмен в первый день пробежал 10 км. Каждый следующий день...

Массивы: сколько раз показатель термометра на следующий день отличался от показаний текущего дня по знаку?
в городе в течении 30 дней каждое утро измерялась температура воздуха с...

Задаётся с клавиатуры день и месяц. Вывести день недели
Задаётся с клавиатуры день и месяц 2011 года. Необходимо вывести на экран,...

Определить день недели, на который приходится день с датой “d”, “m”.
Считая, что год не високосный и его 1 января приходится на день недели “wd1”,...

2
Puporev
Модератор
54677 / 42099 / 29068
Регистрация: 18.05.2008
Сообщений: 99,341
20.11.2013, 11:01 2
Лучший ответ Сообщение было отмечено ReaGed как решение

Решение

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
uses crt;
var s:string;
    d,m,g,d1,m1,g1:integer;
    t,c:integer;
    p:boolean;{âèñîêîñГ*ûé, Г*ГҐ âèñîêîñГ*ûé}
    k:byte;{ГґГЁГЄГ±Г*òîð Г*ГҐГЇГ°Г*âèëüГ*îãî ââîäГ* Г¤Г*Г*Г*ûõ}
begin
repeat{ïîâòîðÿòü ïîêГ* Г*ГҐ áóäåò ГўГҐГ°Г*ûé ââîä}
k:=0;
writeln('Ââåäèòå Г¤Г*ГІГі Гў ôîðìГ*ГІГҐ ää.ìì.ГЈГЈГЈГЈ');
read(s);
val(copy(s,7,4),t,c);//ãîä
if (c<>0)or(t<0) then k:=1 else g:=t;
p:=((g mod 100<>0)and(g mod 4=0))or(g mod 400=0);{âèñîêîñГ*ûé}
val(copy(s,4,2),t,c);{ìåñÿö}
if (c<>0)or not(t in [1..12]) then k:=1 else m:=t;
val(copy(s,1,2),t,c);{äåГ*Гј}
if (c<>0)or((m in [1,3,5,7,8,10,12])and not(t in [1..31])){äëèГ*Г*ûé ìåñÿö}
         or((m in [4,6,9,11])and not(t in [1..30])){êîðîòêèé ìåñÿö}
         or(p and(m=2)and not(t in [1..29])){ГґГҐГўГ°Г*ëü âèñîêîñГ*ûé}
         or(not p and(m=2)and not(t in [1..28]))then k:=1 else d:=t;{ГґГҐГўГ°Г*ëü Г*åâèñîêîñГ*ûé}
if k=1 then writeln('Г„Г*ГІГ* ââåäåГ*Г* Г*ГҐГўГҐГ°Г*Г®!');
until k=0;
if(m=12)and(d=31)then{31 äåêГ*áðÿ}
 begin
  d1:=1;
  m1:=1;
  g1:=g+1;
 end
else if ((m in [1,3,5,7,8,10]) and(d=31)){ïîñëåäГ*ГЁГ© äåГ*Гј äëèГ*Г*îãî Г¬-Г¶Г* }
      or((m in [4,6,9,11]) and(d=30)){òîæå êîðîòêîãî }
      or((m=2) and p and (d=29)){òîæå ГґГҐГўГ°. âèñîê.}
      or((m=2) and not p and(d=28)){ГґГҐГўГ°. Г*åâèñîê.}
then
 begin
  d1:=1;
  m1:=m+1;
  g1:=g;
 end
else//ГўГ±ГҐ îñòГ*ëüГ*ûå
 begin
  d1:=d+1;
  m1:=m;
  g1:=g;
 end;
writeln('ÑëåäóþùГ*Гї Г¤Г*ГІГ*:');
if d1<10 then write('0',d1,'.')else write(d1,'.');
if m1<10 then write('0',m1,'.')else write(m1,'.');
write(g1);
end.
1
ReaGed
1 / 1 / 1
Регистрация: 02.11.2013
Сообщений: 49
20.11.2013, 11:26  [ТС] 3
Puporev, Спасибо тебе большое! Не раз уже выручаешь!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.11.2013, 11:26

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

Начав тренировки лыжник пробегал 10 км, каждый следующий день он увеличивал длину пробега на 10% от предыдущего дня
Начав тренировки лыжник пробегал 10 км, каждый следующий день он увеличивал...

На овощную базу привезли помидоры. В первый день 8 машин по а ящиков; во второй день 6 машин по в ящиков в каждой. В какой день помидоров привезли бол
На овощную базу привезли помидоры. В первый день 8 машин по а ящиков; во второй...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru