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

    +106.1

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    var
    x,y,arccos,arctg:real;
    begin
    y:=arccos(sin(3*x+1.3))-x*exp(ln(e)*arctg(x))+0.7;
    ...

    один умный парень написал ))

    Запостил: mal1sh, 23 Октября 2009

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

    • забавно) и как, заработало?
      Ответить
      • ну, на самом деле, компилятор не выявил бы ошибок, так что в любом случае - оно бы скомпилилось... правда когда этот гений сдавал, то препод по практике позвал препода по лекциям и они орали примерно минуту ))
        Ответить
        • А чего компилятор не выявил ошибок?
          Ответить
    • эм.. почему ж не объявлены тогда sin, ln, exp?
      мож чувак для другого объявлял..
      Ответить
    • > exp(ln(e)*arctg(x))
      умный парень не знает, что в Delphi есть функция Power.
      Ответить
      • И как предлагаешь это заменить функцией Power?
        Ответить
        • Power(e, arctg(x))
          написаное выше это как раз реализация степени минималистскими средствами стандартного Паскаля.
          Ответить
          • Т.е. Power(e, arctg(x)) лучше, чем exp(arctg(x))?
            Ответить
            • тут используется не exp(arctg(x)) а exp(ln(e)*arctg(x)) и очевидно e ничего общего не имеет с основанием натуральных логарифмов... а впрочем может автор не догадывается что ln(e) = 1
              Ответить
    • ну вообще то, чтобы юзать Power, нада подключать Math.h
      не суть важна))
      Ответить
      • тут не про си, а про делфи. аля-улю блять
        Ответить
    • +1
      а чего компилятор должен видеть ошибки?
      ведь со стороны синтаксиса - все верно
      Ответить
    • притом если еще вспомнить, что функций arccos и arctg нету, то вообще было бы классна))
      Ответить
    • в каком месте это должно скомпилиться, вы чо, заработались?
      Ответить

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