По разделам



Задача Case 9


Даны два целых числа: D (день) и M (месяц), определяющие правильную дату невисокосного года. Вывести значения D и M для даты,
следующей за указанной.

Код (C/C++)

#include <stdio.h>
 
int main(void)
{
   int d,m;
   printf("День:") ;
   scanf ("%i", &d);
   printf("Месяц:") ;
   scanf ("%i", &m);
 
   switch (m) {
   case 1:
   case 3:
   case 5:
   case 7:
   case 8:
   case 10:
   case 12:
       if (d==31) d=0;
       break;
   case 4:
   case 6:
   case 9:
   case 11:
       if (d==30) d=0;
       break;
   case 2:
       if (d==28) d=0;
       break;
   }
 
   if (d==0)
       if (m==12) m=1;
       else m++;
   
   d++;
   printf("%i.%i\n",d,m);
   return 0;
}

Код (Python)

import random

M = random.randrange(1,13)
#M=12
month = {
    1: 31,
    2: 28,
    3: 31,
    4: 30,
    5: 31,
    6: 30,
    7: 31,
    8: 31,
    9: 30,
    10: 31,
    11: 30,
    12: 31
}
try:
    D_Max = month[M]
    D = random.randrange(1,D_Max+1)
    #D = 31
    print("Дата:")
    print("Месяц: {0}. День: {1}".format(M,D))
    if D < D_Max:
        D += 1
    else:
        D = 1
        if M == 12:
            M = 1
        else:
            M +=1
    print("Следующая дата:")
    print("Месяц: {0}. День: {1}".format(M,D))
except KeyError as e:
    print('Ошибка')
									

Код (Pascal)

program Case9;
var
  D,M:Integer;
begin
  Write('Введите день: ');
  Readln(D);
  Write('Введите номер месяца: ');
  Readln(M);
  D:=D+1;
  Case M of
   1,3,5,7,8,10 : if D>31 then
     begin
      D:=1;
      M:=M+1;
     end;
   4,6,9,11 : if D>30 then
     begin
      D:=1;
      M:=M+1;
     end;
   2 : if D>28 then
     begin
      D:=1;
      M:=M+1;
     end;
   12: if D>31 then
     begin
      D:=1;
      M:=1;
     end;
  end;
  Writeln ('Предыдущая дата: ',D,'.',M);
end.
									




Case. Абрамян
Case 1 Просмотров: 11
Case 2 Просмотров: 12
Case 3 Просмотров: 13
Case 4 Просмотров: 15
Case 5 Просмотров: 6
Case 6 Просмотров: 10
Case 7 Просмотров: 8
Case 8 Просмотров: 13
Case 9 Просмотров: 6
Case 10 Просмотров: 10
Case 11 Просмотров: 12
Case 12 Просмотров: 12
Case 13 Просмотров: 7
Case 14 Просмотров: 8
Case 15 Просмотров: 11
Case 16 Просмотров: 14
Case 17 Просмотров: 9
Case 18 Просмотров: 11
Case 19 Просмотров: 11
Case 20 Просмотров: 4

Комментарии

Чтобы написать комментарии вам нужно войти в систему или зарегистрироваться