Школоло / Говнокод #20107 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  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 demonolog44, (Updated )

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

  • ava kerman # Ссылка на оригинал 0

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

  • ava Steve_Brown # Ссылка на оригинал 0

    Помнится, Turbo C++ при нажатии на Tab давал именно такой отступ... Я тогда еще думал, что так и надо.
    Ответить

  • ava guest # Ссылка на оригинал 0

    Беременн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>
    Ответить

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

Помни, guest, за тобой могут следить!

    А не использовать ли нам bbcode?

    ↑
    8
    ↓