По колено в коде — Говнокод.ру

Pascal / Говнокод #10586

+101

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

procedure TForm1.Button1Click(Sender: TObject);
const
n=4;
var
x,y,r: integer;
 x1, y1, x2, y2, x3, y3, x4, y4,i : real;
  a: string;
begin
  //n:=strtoint(edit1.text);
   x:=strtoint(edit2.text);
    y:=strtoint(edit3.text);
      x1:=strtofloat(edit4.text);
       y1:=strtofloat(edit5.text);
         x2:=strtofloat(edit1.text);
       y2:=strtofloat(edit6.text);
         x3:=strtofloat(edit7.text);
       y3:=strtofloat(edit8.text);
         x4:=strtofloat(edit9.text);
       y4:=strtofloat(edit10.text);
          if (y1>y) or (y1<0) or (x1>x)or (x1<0)  then
        showmessage('дачник 1');
          if (y2>y) or (y2<0) or (x2>x+x)or (x2<0)  then
        showmessage('дачник 1');
        if (y3>y) or (y3<0) or (x3>x+x)or (x3<0)  then
        showmessage('дачник 1');
        if (y4>y) or (y4<0) or (x4>x+x)or (x4<0)  then
        showmessage('дачник 1');

условие не лучше решения)
"Всем известно, что дачники – народ странный. Строят они свои дачи непонятно где, да и выращивают там непонятно что и непонятно зачем. А уж как они туда добираются, это другая история: кто на автобусе, кто на электричке, кто на автомобиле, ну а кто-то во-все пешком ходит от дома и до самого участка. Так что не стоит удивляться, если вдруг Вы узнаете, что некое садоводческое товарищество располагается на острове, а дачники добираются до него самолетом. Да еще и на этом острове может не быть посадочной полосы, так что высадиться на остров можно, только прыгая с парашютом (мы уж не рассматриваем то, как они возвращаются с дач домой). Рассмотрим этот уникальный случай. Пилот всегда старается осуществить высадку парашютистов таким образом, чтобы дачники приземлялись как можно ближе к своим прямоугольным участкам. Пилоту интересно знать: сколько дачников приземлится на свои участки? Помогите ему решить эту задачу!"
O_o

qwerty13, 05 Июня 2012

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

Pascal / Говнокод #10585

+99

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32

case NumberOfRegionalProblem of
    1:begin
        for i:=0 to N-1 do
          begin
            Mt[0,M+2]:=Fmu1(s[i+1,0].t);
            Mt[M+1,M+2]:=Fmu2(s[i+1,0].t);
            for j:=1 to M do
              Mt[j,M+2]:=sqr(h)*(Y[i,j]+tau*FF(S[i,j].x,S[i,j].t));
            progon(Mt,M,Y[i+1]);
          end;
      end;
    2:begin
        for i:=0 to N-1 do
          begin
            Mt[0,M+2]:=Fmu1(s[i+1,0].t);
            Mt[M+1,M+2]:=Fmu2(s[i+1,0].t);
            for j:=1 to M do
              Mt[j,M+2]:=sqr(h)*(Y[i,j]+tau*FF(S[i,j].x,S[i,j].t));
            progon(Mt,M,Y[i+1]);
          end;
      end;
    3:begin
        for i:=0 to N-1 do
          begin
            Mt[0,M+2]:=Fmu1(s[i+1,0].t);
            Mt[M+1,M+2]:=Fmu2(s[i+1,0].t);
            for j:=1 to M do
              Mt[j,M+2]:=sqr(h)*(Y[i,j]+tau*FF(S[i,j].x,S[i,j].t));
            progon(Mt,M,Y[i+1]);
          end;
      end;
  end;

Автор наркоман наверное, хз даже... :(

SkuII, 05 Июня 2012

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

1C / Говнокод #10582

−156

1

Govno

ReallyBugMeNot, 05 Июня 2012

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

Java / Говнокод #10576

+75

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15

try {
    try{
        BasicFormatKeywordsReader keyRep = new BasicFormatKeywordsReader(new ExcelBook(fileName),keywordName,sheetName);
        keyRep.readKeywords(keyword);
    } catch (Throwable ex){
        throw new TestCaseException("Can't initialize flow",ex);
    }
    for(Executable executable:keyword.getChildren()) {
        executable.execute(getRequest());
    }
} catch (TestCaseException ex) {
    throw ex;
} catch (Throwable ex){
    throw new TestCaseException(ex);
}

Талантливо!

nafania217518, 05 Июня 2012

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

PHP / Говнокод #10575

+54

1

$todayweekday = date("w", mktime(0, 0, 0, date("m"), date("d"), date("Y")));

апофеоз

shmaltorhbooks, 05 Июня 2012

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

Си / Говнокод #10574

+134

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31

double erf(double x)
{
    const double xbreak = 0.46875;
    ...

    y = fabs(x);

//  evaluate  erf  for  |x| <= 0.46875
    if (y<xbreak)
    {
        ...
    }
//  evaluate  erfc  for 0.46875 <= |x| <= 4.0
    else if ((y > xbreak) && (y <= 4.))
    {
        ...
    }
//   evaluate  erfc  for |x| > 4.0
    else
    {
        ...
    }

//   fix up for negative argument, erf, etc.
    if (x > xbreak)
       result = 1 - result;
    if (x < -xbreak)
       result = result - 1;

    return result;
}

> Надо было в свое время — перевел MATLABовский исходник на C (сделано через дробно-рациональные аппроксимации на нескольких отрезках)

http://www.rsdn.ru/forum/alg/1797230.all.aspx

TarasB, 05 Июня 2012

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

PHP / Говнокод #10572

+61

1

$site->Radio('showin[]', 'ALL_EXCEPT', in_array('ALL_EXCEPT',$showin) or !in_array('ALL_EXCEPT', $showin) )

http://upload.wikimedia.org/wikipedia/ru/math/f/6/d/f6db44e1aa2287204b26130ac9e4fe90.png как бэ

Мартин, 05 Июня 2012

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

C++ / Говнокод #10569

−43

1

bool ok = (state == 0) ? false : true;

И это пишет человек, пишущий на плюсах уже много лет...

glook, 05 Июня 2012

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

C# / Говнокод #10568

+92

1

double e1 = (((-Data[65021] + 1.25) / 2) > 0) && (((-Data[65021] + 1.25) / 2) < 6) ? 180 * Math.Acos(((-Data[65021] + 1.25) / 2) / 6.07) / Math.PI : 90;

Просто вычисляется в одну строчку угол. В алгоритме расчета параметров тех.процесса.

maitredesir, 05 Июня 2012

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

VisualBasic / Говнокод #10567

−80

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50

Dim centerX As Integer
Dim centerY As Integer
Dim radius As Integer

Private Sub Form_Activate()
    centerX = 100
    centerY = 100
    radius = 50
End Sub

Private Sub Timer1_Timer()
    Randomize
    Dim x As Integer
    Dim y As Integer
    Dim i As Integer
    Dim diff As Integer
    
    For i = 0 To 100
        Me.ForeColor = RGB(200, 0, 0)
        x = centerX + (radius * Rnd)
        y = centerY + (radius * Rnd)
        diff = Sqr(((centerX - x) ^ 2) + ((centerY - y) ^ 2))
        If (Abs(radius - diff) < 2) Then
            Me.PSet (x, y)
        End If
        
        Me.ForeColor = RGB(100, 0, 0)
        x = centerX - (radius * Rnd)
        y = centerY + (radius * Rnd)
        diff = Sqr(((centerX - x) ^ 2) + ((centerY - y) ^ 2))
        If (Abs(radius - diff) = 0) Then
            Me.PSet (x, y)
        End If
        
        x = centerX + (radius * Rnd)
        y = centerY - (radius * Rnd)
        diff = Sqr(((centerX - x) ^ 2) + ((centerY - y) ^ 2))
        If (Abs(radius - diff) = 0) Then
            Me.PSet (x, y)
        End If
        
        Me.ForeColor = RGB(0, 100, 0)
        x = centerX - (radius * Rnd)
        y = centerY - (radius * Rnd)
        diff = Sqr(((centerX - x) ^ 2) + ((centerY - y) ^ 2))
        If (Abs(radius - diff) > 2) Then
            Me.PSet (x, y)
        End If
    Next i
End Sub

Извиняюсь за длину.
История происхождения: в одном древнем ВБ-шном говнопроекте сомнительного происхождения эта вещь выполняла роль постепенной прорисовки "логотипа" в окне "О программе". Отрезал сам сабж.
Вот как работает: http://tinyurl.com/ck3npah

vistefan, 05 Июня 2012

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

Говнокод: по колено в коде.