1. Список говнокодов пользователя Govnocoder#0xFF

    Всего: 47

  2. C++ / Говнокод #7237

    +159

    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
    #include <iostream>
    
    class Schotchik { public:
    Schotchik();
    Schotchik(int znach);
    ~Schotchik(){}
    int vzyat_znachenie()const { return znachenye; }
    void vstavit_znachenie(int x) {znachenye = x; }
    operator unsigned int();
    private: int znachenye; };
    Schotchik::Schotchik(): znachenye(0) {}
    Schotchik::Schotchik(int novoe_znachenie): znachenye(novoe_znachenie) {}
    Schotchik::operator unsigned int () { return ( int (znachenye) ); }
    
    void* main() {
    Schotchik ctr(5);
    int znachenye = ctr;
    std::cout << "znachenye: " << znachenye << std::endl;
    return 5 ; }

    Govnocoder#0xFF, 12 Июля 2011

    Комментарии (45)
  3. Python / Говнокод #6722

    −84

    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
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    60. 60
    61. 61
    62. 62
    63. 63
    64. 64
    65. 65
    66. 66
    67. 67
    68. 68
    69. 69
    70. 70
    71. 71
    a=[1,4,6,3,4,5,6,6,7,7,9,9,4,3,4,7,7,7,4,3,5,7,3,6,3,]
    print a
     
    def removeDoubles(a):
      nonD=range(len(a))
      for i in range(len(a)):
        for j in range(i+1,len(a)):
          if a[i]==a[j]:
            nonD.remove(i)
            break
      b=[]
      for i in nonD:
        b.append(a[i])
      return b
     
    def removeDoubles2(a):
      #b=sorted(a)
      def quickSort(a):
        def qSort(i,j):
          global a
          if j==i:
            return
          elif j-i==1:
            if a[i]>a[j]:
              c=a[j]
              a[j]=a[i]
              a[i]=c
              return
          else:
            l=(j+i)/2
            qSort(i,l)
            qSort(l+1,j)
            join(i,l,j)
            return
        def join(i,l,j):
            global a
            k=i
            n=l+1
            m=0
            s=j
            t=l
            b=range(j-i+1)
            while 1:
              if a[k]<a[n]:
                z=k
                k=n
                n=z
                z=s
                s=t
                t=z
              b[m]=a[n]
              m+=1
              n+=1
              if n>s:
                for g in range(t-k+1):
                    b[m+g]=a[k+g]
                break
            for g in range(j-i+1):
              a[i+g]=b[g]
        qSort(0,len(a)-1)
      c=a
      quickSort(c)
      b=[]
      b.append(c[0])
      for i in range(1,len(c)):
        if c[i]>c[i-1]:
          b.append(c[i])
      return b
     
    print removeDoubles(a)
    print removeDoubles2(a)

    Удаление дублей из массива. Взято отсюда:
    http://www.0chan.ru/c/res/181489.html

    Govnocoder#0xFF, 21 Мая 2011

    Комментарии (22)
  4. Python / Говнокод #6709

    −98

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    # -*- coding: cp1251 -*- 
    beer = u"бутылок пива стоят на столе. Одна упала."
    botle = 100
    for i in range(1, 100):
        print (botle-i), beer
    print u"Нету больше пива на столе :-("

    Пива не будет :-(

    Govnocoder#0xFF, 19 Мая 2011

    Комментарии (56)
  5. Python / Говнокод #6609

    −176

    1. 1
    2. 2
    3. 3
    4. 4
    def reverse(s, rs=''):
        for i in range(1, len(s)):
            rs = rs + s[len(s)-i]
        return rs+s[0]

    Reverse String по-питоновски с говном

    Govnocoder#0xFF, 10 Мая 2011

    Комментарии (28)
  6. Pascal / Говнокод #6585

    +117

    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
    program Project1;
    {$APPTYPE CONSOLE}
    uses
      SysUtils;
    Var
      a,b : Integer;
      c : Extended;
    BEGIN
     readln(a,b);
    TRY
     c := sqrt(a-b);
     WriteLn('A > B');
    EXCEPT
     WriteLn('A < B');
    END;
     ReadLn;
    END.

    Дело было вечером, делать было нечего, решил just for education порешать пару задач по программированию. Залез значит в Зултрк, ищу. На глаза сразу попалась небольшая книжица с названием "128 Задач по началам программирования." В.В Пупырышева. Скачал, начал решать. И вот какая задачка мне попалась:
    "II-15*. Максимум из двух
    Напишите программу, которая запрашивает джва числа и сообщает, какое из них больше другого."

    Вроде бы ничего сложного, но ВНЕЗАПНО у задачи обнаружилось примечание: "Эта задача должна быть решена без использования ветвления." Первая мысль, пришедшая в голову, была использовать функции, но ведь и они подразумевали ветвление. Так что начался мозговой штурм. После получаса раздумий, высралось ЭТО. В конце, посмотрев в ответы, я просто охренел. Спойлер: "Эта задача представляет собой подготовку к следующей ступени (задачи с ветвлением). Но решить её можно и без использования ветвлений, если придумать две формулы для вычилсения максимума и минимума из двух чисел. Тогда если обозначить исходные числа как Х и Y, а упомянутые формулы - как MAX(x,y) и MIN(x,y) соответственно, то для получения правильного ответа достаточно будет вывести строку типа: "Число-", MAX(x,y), "-не меньше числа -", MIN(x,y)." После этого я книгу с компа удалил, не помещая в корзину.

    Govnocoder#0xFF, 07 Мая 2011

    Комментарии (148)
  7. Pascal / Говнокод #6518

    +121

    1. 1
    2. 2
    3. 3
    for i:=1 to 200000000 do;//имитация паузы
    
    ggProcess.Progress:=ggProcess.Progress+13;

    Ксакеп снова в теме:
    http://www.xakep.ru/magazine/xa/016/050/2.asp
    Имитация паузы, блеять.

    Govnocoder#0xFF, 30 Апреля 2011

    Комментарии (26)
  8. Pascal / Говнокод #6473

    +147

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    For i := 1 to Length(Val)-1 do
      Begin
        If (Ord(Val[i]) >= 48) and (Ord(Val[i]) <= 57) and
        (not ((Ord(Val[i+1]) >= 48) and (Ord(Val[i+1]) <= 57))) then Result := true;
      End;

    ОТЦЕНИТИ КОД!!!1

    Govnocoder#0xFF, 25 Апреля 2011

    Комментарии (69)
  9. Pascal / Говнокод #6422

    +115

    1. 1
    2. 2
    If Val = true then Proc(True)
     Else Proc(False);

    Just simple coprocode.

    Govnocoder#0xFF, 20 Апреля 2011

    Комментарии (12)
  10. Pascal / Говнокод #6411

    +99

    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
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    60. 60
    61. 61
    62. 62
    63. 63
    64. 64
    65. 65
    66. 66
    67. 67
    procedure TForm1.OvalButton1Click(Sender: TObject);
    begin
     Randomize;
     Win  := Random(2);
    //////////////////////////////////
     If Win = 1 then
     Begin
      NumericEdit1.Enabled := true;
      OvalButton1.Enabled := false;
      OvalButton2.Enabled := false;
      Timer1.Enabled := false;
      LEDMeter1.Position := 0;
      LEDDisplay1.Value := 30;
      Button1.Enabled := true;
      chet := chet + Trunc(NumericEdit1.Value *2);
      Memo1.Text := 'Поздравляю!';
      Label1.Caption := IntToStr(Chet) + '$';
      ShowMessage('Победа! Вы разминировали мину!');
     End
     else
     Begin
      NumericEdit1.Enabled := true;
      OvalButton1.Enabled := false;
      OvalButton2.Enabled := false;
      Timer1.Enabled := false;
      LEDMeter1.Position := 0;
      LEDDisplay1.Value := 30;
      Button1.Enabled := true;
      Memo1.Text := 'Проигрыш!';
      Label1.Caption := IntToStr(Chet) + '$';
      ShowMessage('Вы проиграли!');
      end;
    end;
    
    procedure TForm1.OvalButton2Click(Sender: TObject);
    begin
     Randomize;
     Win  := Random(2);
    ///////////////////////////////
     If Win = 1 then
     Begin
      NumericEdit1.Enabled := true;
      OvalButton1.Enabled := false;
      OvalButton2.Enabled := false;
      Timer1.Enabled := false;
      LEDMeter1.Position := 0;
      LEDDisplay1.Value := 30;
      Button1.Enabled := true;
      Memo1.Text := 'Проигрыш';
      Label1.Caption := IntToStr(Chet) + '$';
      ShowMessage('Вы проиграли!');
     End
     else
     Begin
      NumericEdit1.Enabled := true;
      OvalButton1.Enabled := false;
      OvalButton2.Enabled := false;
      Timer1.Enabled := false;
      LEDMeter1.Position := 0;
      LEDDisplay1.Value := 30;
      chet := chet + Trunc(NumericEdit1.Value *2);
      Button1.Enabled := true;
      Memo1.Text := 'Поздравляю!';
      Label1.Caption := IntToStr(Chet) + '$';
      ShowMessage('Победа! Вы разминировали мину!');
      end;
    end;

    MOAR из серии оффлайн симуляторов.

    Govnocoder#0xFF, 19 Апреля 2011

    Комментарии (7)
  11. Pascal / Говнокод #6410

    +96

    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
    function OnShape(sh: TShape; X, Y: Integer) : TBrushStyle;
    var r, cx, cy, d2: Integer;
    begin
    r := sh.Width div 2;
    cx := sh.Left + r;
    cy := sh.Top + r;
    d2 := (X - cx) * (X - cx) + (Y - cy) * (Y - cy);
    OnShape := bsClear;
    if d2 < r*r then OnShape := bsSolid;
    end;
    
    procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    begin
    Shape1.Brush.Color := clRed;
    Shape1.Brush.Style := OnShape(Shape1, X, Y);
    Shape2.Brush.Color := clLime;
    Shape2.Brush.Style := OnShape(Shape2, X, Y);
    Shape3.Brush.Color := clYellow;
    Shape3.Brush.Style := OnShape(Shape3, X, Y);
    end;

    Откуда бы вы думали это? Правильно, "Занимательное программирование Delphi". Глава 14. Светофор.

    Govnocoder#0xFF, 19 Апреля 2011

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