1. Куча / Говнокод #16360

    +123

    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
    72. 72
    73. 73
    74. 74
    75. 75
    76. 76
    77. 77
    78. 78
    79. 79
    80. 80
    81. 81
    82. 82
    83. 83
    84. 84
    85. 85
    86. 86
    87. 87
    88. 88
    89. 89
    90. 90
    91. 91
    92. 92
    93. 93
    94. 94
    95. 95
    96. 96
    97. 97
    98. 98
    //---------------------------------------------------------------------------
    
    #include <vcl.h>
    #include <iostream.h>
    #include <conio.h>
    #include <stdlib.h>
    #include <stdio.h>
    #pragma hdrstop
    
    #include "Unit1.h"
    //---------------------------------------------------------------------------
    #pragma package(smart_init)
    #pragma resource "*.dfm"
    TForm1 test;
    int a;
    int b;
    int i;
    int t;
    //---------------------------------------------------------------------------
    __fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
    {
    }
    //---------------------------------------------------------------------------
    
    
    
    void __fastcall TForm1::Button11Click(TObject Sender)
    {
    Edit1->Text='0';
    /*glob_check:=True;//Для поля
    
    t:=0;
    
    for i:=1 to 1000 do // Очищает массив
    begin
    a[i]:='|';
    b[i]:='0'; */
    }
    //---------------------------------------------------------------------------
    
    void __fastcall TForm1::Button14Click(TObject Sender)
    {
    /*var z,n: integer;
    begin*/
    if (Sk=0) then begin
    if (glob_check=true) then t:=t-1;
    t:=t+1;
    a[t]:=edit1.Text; //Присваевает значение массиву элементу
    if (glob_check=true) then t:=t-1; // храняшему в поле мемо
    
    edit1.text:=rezul(t);
    
    glob_check:=true;
    end
    
    else MessageBeep(0);
    end;
    
    }
    //---------------------------------------------------------------------------
    void __fastcall TForm1::Button12Click(TObject Sender)
    {
    var n,d,z:integer;
    begin
    if (glob_check=true) then t:=t-1;
    t:=t+1;
    a[t]:=edit1.Text;
    b[t]:='+';
    glob_check:=true;
    
    if ((b[2]<>'0') and (skob=false)) then
    edit1.Text:=rezul(t-1);
    
    end;
    }
    //---------------------------------------------------------------------------
    
    void __fastcall TForm1::Button15Click(TObject Sender)
    {
    if (glob_check=true) then t:=t-1;
    t:=t+1;
    a[t]:=edit1.Text;
    b[t]:='*';
    
    if (((b[2]<>'0') and ((b[1]<>'+') and (b[1]<>'-'))) and (skob=false)) then
    edit1.Text:=rezul(t-1); 
    }
    //---------------------------------------------------------------------------
    
    void __fastcall TForm1::Button16Click(TObject Sender)
    {
    if (glob_check=true) then t:=t-1;
    
    
    t:=t+1;
    a[t]:=edit1.Text;
    b[t]:='/';

    Когда-то, когда я абсолютно не шарил в плюсах, но хотел изучить их, я откопал среду Borland Turbo C++ и проверки ради её работоспособности попросил одного чувака ( который хвастался, что изучает С++ ) прислать мне калькулятор. Ну, он прислал. В среде мне выдало хренову тучу ошибок. Я думал уже с ней что-то не так, а другой не имел. Так и отложил плюсы до поры. А сегодня откопал тот самый код калькулятора и охренел от увиденного. Это просто капец. Смесь плюсов и дельфи какая-то. И ясен пень, что оно не запашет, как не старайся заставить. Тут ещё не влезло в поле для кода... Перед кодом калькулятора были прописаны каждый с новой строки числа от 1 по 172.

    Запостил: CodeStar, 16 Июля 2014

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

    • > И ясен пень, что оно не запашет,

      Я бы не был так уверен. Местные старожилы сейчас макросов наколбасят, так оно еще и на линуксе заработает.
      Ответить
      • Боюсь, что без стороннего препроцессора тут не обойтись. Что предпочитаете: web Дональда Кнута или m4?
        Ответить
        • Любое говно можно откомпилить, если написать правильный компилятор.
          Ответить
    • > Смесь плюсов и дельфи какая-то.
      Это крестобилдер, детка. Аццкая попытка скрестить ужа и ежа - стандартная либа от делфи, и немного подпиленные для совместимости с ней кресты.
      Ответить
      • Посмотрите на объявления переменных, на условные операторы и на операторы присвоения. Больше похоже на то, что автор начал переводить с дельфей на крестобилдер, но уснул в процессе.
        Ответить
        • Да я же код не читал ;) Посмотрел на верхние строчки, посмотрел на знакомые крестобилдерские полосы из дефисов и интуитивно понятные TForm1::Button15Click... А внутрь функций вообще вломы было заглядывать.
          Ответить
    • >>который хвастался, что изучает С++

      Я бы на его месте стыдился и плакал по ночам
      Ответить
      • Гнев и крестобатхёрт на тёмную сторону ведут.
        Ответить
        • да я чувствую, что закончу как последний ситх

          http://www.it-ep.ru/files/2012/08/23/small_c_za_edu.jpg
          Ответить

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