1. Список говнокодов пользователя demonolog44

    Всего: 1

  2. Pascal / Говнокод #20107

    −39

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    // Проверка совакупности дня,месяца,года
  //Для тридцатидневных
  if ( mh mod 2 ) = 1 then
                           if ( dy > 30 ) then
                                              begin 
                                                 writeln ( 'Такаго набора дня.месяца.года не существует' ); 
                                                 exit
                                              end;
  //Для Февраля с учётом високосности                                            
  if mh = 2 then
                if ( ( ( yr mod 4 ) = 0 ) and ( ( yr mod 100 ) <> 0 ) ) or ( ( yr mod 400 ) = 0 )  then
                                                                                                       begin     
                                                                                                            if ( dy > 29 ) then
                                                                                                                               begin
                                                                                                                                    writeln ( 'Такаго набора дня.месяца.года не существует' ); 
                                                                                                                                    exit
                                                                                                                               end;
                                                                                                       end           
                                                                                                  else
                                                                                                      begin
                                                                                                           if ( dy > 28 ) then
                                                                                                                              begin 
                                                                                                                                 writeln ( 'Такаго набора дня.месяца.года не существует' ); 
                                                                                                                                 exit 
                                                                                                                              end;
                                                                                                      end;
// Сдвиг на день вперёд,присвоение значений года и месяца
  dy1:=dy+1;
  yr1:=yr;
  mh1:=mh;
//Переход на следующий день при дате 31.12
  if ( mh = 12 ) and ( dy1 = 32 ) then
                                      begin 
                                          mh1:=1; 
                                          yr1:=yr+1; 
                                          dy1:=1;
                                          writeln ( 'С Новым Годом! Сессия подождёт...' );
                                      end;

    Вырезка работы студента одного хорошего института по ИБ)

    demonolog44, 31 Мая 2016

    Комментарии (9)