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

    • ava Elvenfighter 17.07.2014 00:19 # +2

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

      Я бы не был так уверен. Местные старожилы сейчас макросов наколбасят, так оно еще и на линуксе заработает.
      Ответить

      • ava inkanus-gray 17.07.2014 00:26 # 0

        Боюсь, что без стороннего препроцессора тут не обойтись. Что предпочитаете: web Дональда Кнута или m4?
        Ответить

        • ava kegdan 17.07.2014 05:59 # 0

          Любое говно можно откомпилить, если написать правильный компилятор.
          Ответить

    • ava bormand 17.07.2014 05:15 # +2

      > Смесь плюсов и дельфи какая-то.
      Это крестобилдер, детка. Аццкая попытка скрестить ужа и ежа - стандартная либа от делфи, и немного подпиленные для совместимости с ней кресты.
      Ответить

      • ava inkanus-gray 17.07.2014 10:11 # +2

        Посмотрите на объявления переменных, на условные операторы и на операторы присвоения. Больше похоже на то, что автор начал переводить с дельфей на крестобилдер, но уснул в процессе.
        Ответить

        • ava bormand 17.07.2014 10:56 # +1

          Да я же код не читал ;) Посмотрел на верхние строчки, посмотрел на знакомые крестобилдерские полосы из дефисов и интуитивно понятные TForm1::Button15Click... А внутрь функций вообще вломы было заглядывать.
          Ответить

    • ava kegdan 17.07.2014 06:01 # +1

      >>который хвастался, что изучает С++

      Я бы на его месте стыдился и плакал по ночам
      Ответить

      • ava 1024-- 17.07.2014 06:35 # +2

        Гнев и крестобатхёрт на тёмную сторону ведут.
        Ответить

        • ava kegdan 17.07.2014 06:50 # 0

          да я чувствую, что закончу как последний ситх

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

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