1. 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) RSS

    • Лабы не нужны
      Ответить
    • Пожалуй, я вынужден признать, что так можно выражаться.
      Паскаль не нужен.
      Ответить
      • Паскаль нужен чтобы вспоминать теплые летние школьные деньки 90х
        Ответить
        • Летом каникулы же.
          Ответить
          • так настоящий задрот на каникулах писал какую-нить глупую игру на паскале
            Ответить
            • Я танчики на Qbasic писал... Да, было время... Эх...
              Ответить
    • Помнится, Turbo C++ при нажатии на Tab давал именно такой отступ... Я тогда еще думал, что так и надо.
      Ответить
    • Беременнocть – нe болeзнь, нo оcoбoe сoстояниe жeнcкогo организма и психики. Сeгодня не paбoтaют coвeты бабушек, они не знали стрессoв и бешеногo тeмпa совpеменной жизни. Решиться на peбёнкa, выносить, pодить здoровогo малыша для coвpeмeннoй женщины уже подвиг.
      На помощь приходят послeдние разработки мeдицины, oпыт многoдeтных мaм нoвoго поколeния. Всё, что вы хотeли знать о родах и берeменнocти в однoм мecтe: рекoмендации акушеров, рейтинги клиник, подводныe камни каждого тримеcтрa и проcтo интереcные новоcти из жизни будущих «звёздныx» мaм.
      <a href=http://mamatam.ru/glyukoza-sobiraetsya-zaberemenet>http://mamatam.ru/glyukoza-sobiraetsya-zaberemenet</a>
      Ответить

    Добавить комментарий