1. Список говнокодов пользователя hexman

    Всего: 3

  2. Pascal / Говнокод #9854

    +95

    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
    cbZoom.Items.AddObject('125%', TObject(125));
cbZoom.Items.AddObject('120%', TObject(120));
cbZoom.Items.AddObject('115%', TObject(115));
cbZoom.Items.AddObject('110%', TObject(110));
cbZoom.Items.AddObject('105%', TObject(105));
cbZoom.Items.AddObject('100%', TObject(100));
cbZoom.Items.AddObject('95%', TObject(95));
cbZoom.Items.AddObject('90%', TObject(90));
cbZoom.Items.AddObject('85%', TObject(85));
cbZoom.Items.AddObject('80%', TObject(80));
cbZoom.Items.AddObject('75%', TObject(75));
cbZoom.Items.AddObject('70%', TObject(70));
cbZoom.Items.AddObject('65%', TObject(65));
cbZoom.Items.AddObject('60%', TObject(60));
cbZoom.Items.AddObject('55%', TObject(55));
cbZoom.Items.AddObject('50%', TObject(50));
cbZoom.Items.AddObject('45%', TObject(45));
cbZoom.Items.AddObject('40%', TObject(40));
cbZoom.Items.AddObject('35%', TObject(35));
cbZoom.Items.AddObject('30%', TObject(30));
cbZoom.Items.AddObject('25%', TObject(25));
cbZoom.Items.AddObject('20%', TObject(20));
cbZoom.Items.AddObject('15%', TObject(15));
cbZoom.Items.AddObject('10%', TObject(10));
cbZoom.ItemIndex := 5; //100%

    вот кто-то так решил набить комбобокс...

    hexman, 04 Апреля 2012

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

  3. C++ / Говнокод #9680

    +149

    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
    #include <iostream>
#define caseop(op, code) case op: code; break;
#define clamp(a, lo, hi) (a < lo) ? (a = lo) : (a > hi) ? (a = hi) : a;
void main(int argc, char* args[]) {
	FILE *srcfile = fopen(argc > 1 ? args[1] : "", "r");
	(!srcfile) ? exit(0) : fseek(srcfile, 0, SEEK_END);
	unsigned char bytes[1024], *byte = bytes;
	int x = ftell(srcfile), bs = sizeof(bytes);
	rewind(srcfile);
	char *source = new char[x + 1], *token = source, *ret = token;
	fread(source, sizeof(char), x, srcfile);
	memset(&bytes, source[x] = (char)fclose(srcfile), bs--);
	do { 
		switch(*token) {
			caseop('+', ++(*byte));
			caseop('-', --(*byte));
			caseop('.', std::cout << *byte);
			caseop(':', std::cout << (int)*byte);
			caseop(',', std::cin >> *byte);
			caseop('>', clamp(++byte, bytes, &bytes[bs]));
			caseop('<', clamp(--byte, bytes, &bytes[bs]));
			caseop('[', if (*byte == (x = 1) - 1) while ((*token++) && (x += *token == '[' ? 1 : *token == ']' ? -1 : 0)); else ret = token);
			caseop(']', if (*byte) token = ret);
		}
	} while(*token++);
	delete source;
}

    Интерпретатор брэинфака

    hexman, 14 Марта 2012

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

  4. VisualBasic / Говнокод #9220

    −98

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    For I = nrow_Start To nrow_Stop
    Do
        If Nrow_Frm1 = I Then Exit Do
        If Nrow_Frm2 = I Then Exit Do
        If Nrow_Frm3 = I Then Exit Do
        If Nrow_Frm4 = I Then Exit Do
    
        Cells(I, ncol_Period).FormulaR1C1 = formula
    Loop While False
Next I

    И такое встречается..

    hexman, 25 Января 2012

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