Получить номер дня и месяца и определить дату следующего дня (считая, что год невисокосный)

@Андрей2705 · Регистрация: 23.11.2017

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

Всем привет! Буду очень благодарен если поможете составить программу в PascalABC. Условие звучит так: Напишите программу, которая получает номер месяца и определяет дату следующего дня, считайте, что год невисокосный (365 дней)
Пример:
Введите день и месяц: 25 12
Следующий день: 26 декабря

Пример:
Введите день и месяц: 28 2
Следующий день: 1 марта

@Vyacheslav99 · 23.11.2017, 21:23

Есть косяки, но в целом работает, можете уже сами довести до ума

Pascal

Var m,d:integer;
Begin 
 write('Введите день: ') ;  Readln(d);
 write('Введите месяц: '); Readln(m);
if (m = 2) and (d=28) then  writeln('Следующий день - 1',' марта');  
if (m=1) or (m=3) or (m=5) or (m=7) or (m=8) or (m=10) or (m=12) then if (d>1) and (d<31) then begin d:=d+1;
if m=1 then writeln('Следующий день - ',d,' января ');
if m=3 then writeln('Следующий день - ',d,' марта ');
if m=5 then writeln('Следующий день - ',d,' мая ');
if m=7 then writeln('Следующий день - ',d,' июля ');
if m=8 then writeln('Следующий день - ',d,' августа ');
if m=10 then writeln('Следующий день - ',d,' октября ');
if m=12 then writeln('Следующий день - ',d,' декабря ');
end else if d=31 then begin m:=m+1; writeln('День - 1 ',' Месяц - ',m); end;
if (m=2) or (m=4) or (m=6) or (m=9) or (m=11) then if d<30 then begin d:=d+1;
if m=2 then writeln('Следующий день - ',d,' февраля ');
if m=4 then writeln('Следующий день - ',d,' апреля ');
if m=6 then writeln('Следующий день - ',d,' июня ');
if m=9 then writeln('Следующий день - ',d,' сентября ');
if m=11 then writeln('Следующий день - ',d,' ноября ');
 end else if  d=30 then begin m:=m+1; writeln('День - 1 ',' Месяц - ',m); end;
readln;
end.

@Андрей2705 · 23.11.2017, 22:18 **[ТС]**

Vyacheslav99, большое спасибо

Добавлено через 17 минут
а с использованием case можно составить программу?

Добавлено через 8 минут
Vyacheslav99, а такую программу,но только с использованием case можешь помочь составить?

@Vyacheslav99 · 23.11.2017, 22:25

Андрей2705, вы вообще не шарите что-ли)?

@Андрей2705 · 23.11.2017, 22:27 **[ТС]**

Vyacheslav99, да, плохо понимаю действие оператора case, более простые задачи с использованием этого оператора могу составить, а с этой задачкой возникли трудности. Буду благодарен если поможете)

@Vyacheslav99 · 23.11.2017, 22:29

Вот так вот.

Pascal

Var m,d:integer;
Begin 
 write('Введите день: ') ;  Readln(d);
 write('Введите месяц: '); Readln(m);
if (m = 2) and (d=28) then  writeln('Следующий день - 1',' марта');  
if (m=1) or (m=3) or (m=5) or (m=7) or (m=8) or (m=10) or (m=12) then if (d>1) and (d<31) then begin d:=d+1; end;
case m of 
1: begin  writeln('Следующий день - ',d,' января '); end;
3: begin writeln('Следующий день - ',d,' марта '); end;
5: begin writeln('Следующий день - ',d,' мая '); end;
7: begin writeln('Следующий день - ',d,' июля '); end;
8: begin writeln('Следующий день - ',d,' августа '); end;
10: begin writeln('Следующий день - ',d,' октября '); end;
12: begin writeln('Следующий день - ',d,' декабря '); end
else if d=31 then begin m:=m+1; writeln('День - 1 ',' Месяц - ',m); end; end;
if (m=2) or (m=4) or (m=6) or (m=9) or (m=11) then if d<30 then begin d:=d+1;
case m of 
2: begin  writeln('Следующий день - ',d,' февраля '); end;
4: begin  writeln('Следующий день - ',d,' апреля '); end;
6: begin  writeln('Следующий день - ',d,' июня '); end;
9: begin  writeln('Следующий день - ',d,' сентября '); end;
11: begin writeln('Следующий день - ',d,' ноября '); end
else if  d=30 then begin m:=m+1; writeln('День - 1 ',' Месяц - ',m); end;
 readln;
end;
end;
end.

@Андрей2705 · 23.11.2017, 22:33 **[ТС]**

Vyacheslav99, всё теперь до меня дошёл смысл, большое спасибо за помощь)

@Vyacheslav99 · 23.11.2017, 22:37

Андрей2705, да. Чтобы не писать кучу раз If then, можно использовать case, если m=1 тогда январь, 2 - февраль, 3 - март и т.д. Он удобен тем что пишешь цифру и действие к ней, вместо If then if then if then, так и код более удобен для чтения.

@Андрей2705 · 23.11.2017, 22:44 **[ТС]**

Vyacheslav99, еще раз большое спасибо)

@Vyacheslav99 · 23.11.2017, 22:50

Андрей2705, 15 и 23 строчки вам надо изменить только, справитесь?

@Андрей2705 · 23.11.2017, 23:21 **[ТС]**

Vyacheslav99, буду благодарен если поможете мне завершить эту программу, а я постараюсь потом разобраться что и как тут работает)

@Vyacheslav99 · 23.11.2017, 23:59

Я мало работал с оператором case... В колледже вообще его не учили.. не знаю как в него записать 2 переменные.
Так:

Delphi

1
2
3

case d=31 of 
1:writeln('Следующий день - 1 ','января ');
end;

или так:

Delphi

1
2
3

case (d=31) and (m=1) or (m=3) or (m=5) or (m=7) or (m=8) or (m=10) or (m=12) then begin m:=m+1; 
writeln('Следующий день - 1 ','января ');
end;

Не вышло.. Жду ответы интеллектуалов как сделать case с двумя переменными.
Поэтому только так вышло..

Delphi

Var m,d:integer;
Begin 
 write('Введите день: ') ;  Readln(d);
 write('Введите месяц: '); Readln(m);
if  (m = 2) and (d=28) then  writeln('Следующий день - 1',' марта'); 
if (d=31) and (m=1)  then begin m:=m+1; 
writeln('Следующий день - 1 ','января ');
end;  
if (d=31) and (m=3)  then begin m:=m+1; 
writeln('Следующий день - 1 ','марта ');
end;  
if (d=31) and (m=5)  then begin m:=m+1; 
writeln('Следующий день - 1 ','мая ');
end;  
if (d=31) and (m=7)  then begin m:=m+1; 
writeln('Следующий день - 1 ','июля ');
end;  
if (d=31) and (m=8)  then begin m:=m+1; 
writeln('Следующий день - 1 ','августа ');
end;  
if (d=31) and (m=10)  then begin m:=m+1; 
writeln('Следующий день - 1 ','октября ');
end;  
if (d=31) and (m=12)  then begin m:=m+1; 
writeln('Следующий день - 1 ','декабря ');
end;   
 
if (m=1) or (m=3) or (m=5) or (m=7) or (m=8) or (m=10) or (m=12) then begin if (d>1) and (d<31) then begin d:=d+1; end; end;
case m of 
1: begin  writeln('Следующий день - ',d,' января '); end;
3: begin writeln('Следующий день - ',d,' марта '); end;
5: begin writeln('Следующий день - ',d,' мая '); end;
7: begin writeln('Следующий день - ',d,' июля '); end;
8: begin writeln('Следующий день - ',d,' августа '); end;
10: begin writeln('Следующий день - ',d,' октября '); end;
12: begin writeln('Следующий день - ',d,' декабря '); end
end;
if (m=2) or (m=4) or (m=6) or (m=9) or (m=11) then if d<30 then begin d:=d+1; end;
case m of 
2: begin  writeln('Следующий день - ',d,' февраля '); end;
4: begin  writeln('Следующий день - ',d,' апреля '); end;
6: begin  writeln('Следующий день - ',d,' июня '); end;
9: begin  writeln('Следующий день - ',d,' сентября '); end;
11: begin writeln('Следующий день - ',d,' ноября '); end 
else if (d=30) and (m=4)  then begin m:=m+1; 
writeln('Следующий день - 1 ','апреля ');
end;  
if (d=30) and (m=6)  then begin m:=m+1; 
writeln('Следующий день - 1 ','июня ');
end;  
if (d=30) and (m=9)  then begin m:=m+1; 
writeln('Следующий день - 1 ','сентября ');
end;  
if (d=30) and (m=11)  then begin m:=m+1; 
writeln('Следующий день - 1 ','октября ');
end; 
end;
end.

Добавлено через 1 минуту
Вот стабильно работает, но в полном коде выше где-то я накосячил..

Delphi

Var m,d:integer;
Begin 
 write('Введите день: ') ;  Readln(d);
 write('Введите месяц: '); Readln(m);
if  (m = 2) and (d=28) then  writeln('Следующий день - 1',' марта'); 
if (d=31) and (m=1)  then begin m:=m+1; 
writeln('Следующий день - 1 ','января ');
end;  
if (d=31) and (m=3)  then begin m:=m+1; 
writeln('Следующий день - 1 ','марта ');
end;  
if (d=31) and (m=5)  then begin m:=m+1; 
writeln('Следующий день - 1 ','мая ');
end;  
if (d=31) and (m=7)  then begin m:=m+1; 
writeln('Следующий день - 1 ','июля ');
end;  
if (d=31) and (m=8)  then begin m:=m+1; 
writeln('Следующий день - 1 ','августа ');
end;  
if (d=31) and (m=10)  then begin m:=m+1; 
writeln('Следующий день - 1 ','октября ');
end;  
if (d=31) and (m=12)  then begin m:=m+1; 
writeln('Следующий день - 1 ','декабря ');
end;   
if (d=30) and (m=4)  then begin m:=m+1; 
writeln('Следующий день - 1 ','апреля ');
end;  
if (d=30) and (m=6)  then begin m:=m+1; 
writeln('Следующий день - 1 ','июня ');
end;  
if (d=30) and (m=9)  then begin m:=m+1; 
writeln('Следующий день - 1 ','сентября ');
end;  
if (d=30) and (m=11)  then begin m:=m+1; 
writeln('Следующий день - 1 ','октября ');
end;  
if (m=1) or (m=3) or (m=5) or (m=7) or (m=8) or (m=10) or (m=12) then if (d>1) and (d<31) then begin d:=d+1; end;
case m of 
1: begin  writeln('Следующий день - ',d,' января '); end;
3: begin writeln('Следующий день - ',d,' марта '); end;
5: begin writeln('Следующий день - ',d,' мая '); end;
7: begin writeln('Следующий день - ',d,' июля '); end;
8: begin writeln('Следующий день - ',d,' августа '); end;
10: begin writeln('Следующий день - ',d,' октября '); end;
12: begin writeln('Следующий день - ',d,' декабря '); end
end;
if (m=2) or (m=4) or (m=6) or (m=9) or (m=11) then if d<31 then begin d:=d+1;
case m of 
2: begin  writeln('Следующий день - ',d,' февраля '); end;
4: begin  writeln('Следующий день - ',d,' апреля '); end;
6: begin  writeln('Следующий день - ',d,' июня '); end;
9: begin  writeln('Следующий день - ',d,' сентября '); end;
11: begin writeln('Следующий день - ',d,' ноября '); end; end;
 readln;
end;
end.

Добавлено через 5 минут
С begin end; наверно накосячил и выводит по несколько раз..

@Cyborg Drone · 24.11.2017, 02:51

Ох, батюшки светы...

Вот, с проверкой ввода:

Pascal

var month, day, max: integer;
begin
  repeat //ввод месяца с проверкой
    write('Номер месяца = ');
    readln(month);
    if not (month in [1..12]) then writeln('Не бывает месяца с таким номером, повторите ввод.')
  until month in [1..12];
  case month of //вычисление максимального количества дней в месяце
    2: max := 28;
    4, 6, 9, 11: max := 30
    else max := 31
  end;
  repeat //ввод дня с проверкой
    write('День = ');
    readln(day);
    if not (day in [1..max]) then writeln('Не бывает столько дней в ', month, ' месяце, повторите ввод.')
  until day in [1..max];
  inc(day); //номер следующего дня
  if day > max //если номер следующего дня больше максимального
    then begin //то
      day := 1; //будет 1-е число следующего месяца
      if month < 12 //если не декабрь
        then inc(month) //то номер следующего месяца на 1 больше текущего
        else month := 1 //иначе следующий месяц январь
    end;
  write('Следующий день: ', day, ' '); //печатаем номер дня
  case month of //и название месяца
    1: writeln('января');
    2: writeln('февраля');
    3: writeln('марта');
    4: writeln('апреля');
    5: writeln('мая');
    6: writeln('июня');
    7: writeln('июля');
    8: writeln('августа');
    9: writeln('сентября');
    10: writeln('октября');
    11: writeln('ноября');
    12: writeln('декабря')
  end;
  readln
end.

@Андрей2705 0 / 0 / 0 Регистрация: 23.11.2017 Сообщений: 52
		1
	Получить номер дня и месяца и определить дату следующего дня (считая, что год невисокосный) 23.11.2017, 20:24. Показов 19637. Ответов 12 Метки нет (Все метки) Всем привет! Буду очень благодарен если поможете составить программу в PascalABC. Условие звучит так: Напишите программу, которая получает номер месяца и определяет дату следующего дня, считайте, что год невисокосный (365 дней) Пример: Введите день и месяц: 25 12 Следующий день: 26 декабря Пример: Введите день и месяц: 28 2 Следующий день: 1 марта 0

@Андрей2705 0 / 0 / 0 Регистрация: 23.11.2017 Сообщений: 52
	23.11.2017, 22:18 [ТС]	3
	Vyacheslav99, большое спасибо Добавлено через 17 минут а с использованием case можно составить программу? Добавлено через 8 минут Vyacheslav99, а такую программу,но только с использованием case можешь помочь составить? 0

@Vyacheslav99 15 / 16 / 15 Регистрация: 10.11.2017 Сообщений: 186
	23.11.2017, 22:25	4
	Андрей2705, вы вообще не шарите что-ли)? 0

@Андрей2705 0 / 0 / 0 Регистрация: 23.11.2017 Сообщений: 52
	23.11.2017, 22:27 [ТС]	5
	Vyacheslav99, да, плохо понимаю действие оператора case, более простые задачи с использованием этого оператора могу составить, а с этой задачкой возникли трудности. Буду благодарен если поможете) 0

@Андрей2705 0 / 0 / 0 Регистрация: 23.11.2017 Сообщений: 52
	23.11.2017, 22:33 [ТС]	7
	Vyacheslav99, всё теперь до меня дошёл смысл, большое спасибо за помощь) 0

@Vyacheslav99 15 / 16 / 15 Регистрация: 10.11.2017 Сообщений: 186
	23.11.2017, 22:37	8
	Андрей2705, да. Чтобы не писать кучу раз If then, можно использовать case, если m=1 тогда январь, 2 - февраль, 3 - март и т.д. Он удобен тем что пишешь цифру и действие к ней, вместо If then if then if then, так и код более удобен для чтения. 0

@Андрей2705 0 / 0 / 0 Регистрация: 23.11.2017 Сообщений: 52
	23.11.2017, 22:44 [ТС]	9
	Vyacheslav99, еще раз большое спасибо) 0

@Vyacheslav99 15 / 16 / 15 Регистрация: 10.11.2017 Сообщений: 186
	23.11.2017, 22:50	10
	Андрей2705, 15 и 23 строчки вам надо изменить только, справитесь? 0

@Андрей2705 0 / 0 / 0 Регистрация: 23.11.2017 Сообщений: 52
	23.11.2017, 23:21 [ТС]	11
	Vyacheslav99, буду благодарен если поможете мне завершить эту программу, а я постараюсь потом разобраться что и как тут работает) 0

	24.11.2017, 02:51

Получить номер дня и месяца и определить дату следующего дня (считая, что год невисокосный)

Решение