1. Pascal / Говнокод #5172

    +109

    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
    procedure TfmLab3.mmVesClick(Sender: TObject);
var
  sngVes, sngFlag: single;
  intFlag: integer;
begin
  try
    sngVes:=StrToFloat(InputBox('Ввод исходных данных','Введите вес от 40 до 170',''));
    sngFlag:=sqrt(sngVes-40);
    if sngVes>170 then
      begin
        sngFlag:=1/intFlag;
        //ShowMessage(FloatToStr(sngFlag));
      end;
    edWeight.Text:=FloatToStr(sngVes);
  except
    on EConvertError do ShowMessage('Вводить можно только действительные числа!');
    on EInvalidOp do ShowMessage('Минимальный вес 40кг');
    on EZeroDivide do ShowMessage('Максимальный вес 170кг');
  end;
 
end;

    Брутальненькая лаба с венгеркой и исключениями.

    Запостил: bugmenot, 07 Января 2011

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

    • ava Lure Of Chaos 07.01.2011 16:49 # −1

      значит 171 ок?
      Ответить

      • ava bugmenot 07.01.2011 17:24 # +3

        не-не-не, ты не понял всю грандиозность замысла художника
        если > 170, то уронить по делению на ноль неведомый мусор из стека
        Ответить

        • ava Lure Of Chaos 07.01.2011 20:00 # −1

          это какой то фанатик исключений
          Ответить

          • ava guest 07.01.2011 20:24 # −1

            Он мог бы создать нормальное исключения, типа EMassOverflow.

            Использовать не то исключение, взамен нужного - дурной тон настолько, что лучше бы он исключений вообще не использовал...
            Ответить

            • ava adli__82 13.01.2011 20:29 # −1

              Может это крутая защита от взлома проги? Типа в отладчике потом точно нихрена понять невозможно будет. :)
              Ответить

        • ava StriderMan 13.01.2011 14:05 # +1

          еще сказочно должно повести, чтобы там ноль оказался
          Ответить

    • ava Govnocoder#0xFF 07.01.2011 20:29 # 0

      Мда. Это надо будет показать как-нибудь в универе, как делать НЕ НАДО!!!11
      Ответить

      • ava Lure Of Chaos 07.01.2011 20:41 # +2

        и все сразу станут так делать
        Ответить

        • ava Kornew 08.01.2011 12:53 # 0

          дык, пускай показывает -- тут больше забавного будет :)
          Ответить

        • ava Govnocoder#0xFF 08.01.2011 13:27 # 0

          Ну если учесть что в универе учиться 95% быдла, то да.
          Ответить

          • ava Lure Of Chaos 08.01.2011 13:32 # +1

            ммм, а интеллигенция идет в армию? = )
            Ответить

            • ava Govnocoder#0xFF 08.01.2011 13:40 # −1

              Интелигенция идет в дорогостоящие ВУЗЫ в Москву или если бабла много то во всякие зарубежные колледжи.
              Ответить

              • ava Lure Of Chaos 08.01.2011 13:43 # −1

                > в дорогостоящие
                > или если бабла много
                а, вот как вы классифицируете интеллигенцию
                Ответить

                • ava Govnocoder#0xFF 08.01.2011 14:23 # 0

                  Даже будучи сверх интеллигентом без денег ты не поступишь в Гарвард и тому подобные заведения.
                  Ответить

                  • ava Lure Of Chaos 08.01.2011 14:34 # −1

                    я и не пытался. более того, я медалистом никогда не был. Не был одержим идеей быть лучше всех и вписать свое имя в учебнике.
                    По-моему из таких золотых просто делают умные отвертки.

                    Имхо, лучше спокойно работать, и доедая, и высыпаясь, и находя время для интересного времяпровождения
                    Ответить

                  • ava bugmenot 17.01.2011 01:06 # 0

                    оло, диплом инженера из гарварда
                    это как математик из плешки
                    Ответить

          • ava bugmenot 08.01.2011 14:41 # +1

            > учиться
            Ответить

      • ava tr00_gr1m_doomster 07.01.2011 22:41 # 0

        препадируешь чтоле?
        Ответить

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