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

    Всего: 246

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

    +81

    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
    program matr;
uses
   crt;
var
    mas:array [1..100] of integer;
    i,n,imin,imax,min,max,razn:integer;
begin
clrscr;
imax:=1;
imin:=1;
randomize;
write('Введите количество элементов: ');
readln(n);
for i:=1 to n do
 begin
  mas[i]:=random(10)-5;
  write(mas[i]:4);
  if mas[i]>mas[imax] then
  begin
  imax:=i;
  end
  else
  if (mas[i]<mas[imin]) then
  begin
  imin:=i;
  end;
  end;
writeln;
writeln('MAX[',imax,']:=',mas[imax]);
writeln('MIN[',imin,']:=',mas[imin]);
razn:=mas[imax]+mas[imin];
writeln('Сумма MAX и MIN:=',razn);
 end.

    Написано by "ТАМБОВСКИЙ ВОЛК. Профессионал".
    Знатное говнецо нынче пишут "профессионалы".
    http://www.programmersforum.ru/showthread.php?t=98747

    gost, 31 Марта 2014

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

  3. Pascal / Говнокод #15626

    +78

    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
    DynArray = [1..2] of real;
var
A : ^DinArray;
n, i : word;
BEGIN
write('Укажите размер массива:');
readln(n);
GetMem(A,n*6);
. . .
{$R-}
for i:=1 to n do
A[i]:=random;
. . . {любые действия с элементами масссива}
{$R+}
FreeMem(A,n*6)
END.

    Просто феерический говнокод на "Pascal".
    http://logi.cc/dinamicheskaya-pamyat-primer-23/

    gost, 31 Марта 2014

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

  4. Pascal / Говнокод #15625

    +88

    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
    var 
  s: string := '1 2 4 8 16 32 64 128 256 512';
  sum: integer;
  num,p: integer;
  numstr: string;
begin
  sum := 0;
  while s.Length>0 do
  begin
    while s[1]=' ' do // Удаление лидирующих пробелов
      Delete(s,1,1);
    p := Pos(' ',s); // Поиск следующего пробела
    if p=0 then      // Если он не найден, то до конца строки находится последнее число
      p := s.Length;
    numstr := Copy(s,1,p);
    Delete(s,1,p);
    num := StrToInt(numstr);
    sum += num;
  end;
  writeln('Сумма чисел строки равна ',sum);
end.

    "Pascal" не умеет в split?
    http://pascalabc.net/wiki/index.php/Строки_и_символы._Тексты_программ

    gost, 31 Марта 2014

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

  5. Java / Говнокод #15624

    +69

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    public void startApp() {
        StringItem si = new StringItem("Some label","Some text");
        try{
            Image img = Image.createImage("/res/path/to/image.gif");
            FORM.append(img);
        }catch (java.io.IOException ioe){
            ioe.printStackTrace();
        }
        FORM.append(si);
        DISPLAY.setCurrent(FORM);
    }

    Wtf?
    http://www.gfs-team.ru/articles/read/107

    gost, 31 Марта 2014

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

  6. C++ / Говнокод #15615

    +61

    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
    #include <iostream>
#include <iomanip>

using std::boolalpha;
using std::cout;
using std::endl;

template <class N>
bool getbit(N var, int bit)
{
    size_t bsz = sizeof(N)*8;
    return ((bsz>=bit)?((var>>bit)%2):(0));
}

template <class N>
bool bitCompare(N a, N b)
{
    size_t bsz = sizeof(N)*8;

	for (size_t i = 0; i < bsz; i++)
	{
        bool gba = getbit(a, i);
		bool gbb = getbit(b, i);
		if (gba != gbb)
		{
			return false;
		}
	}

	return true;
}

int main(int argc, char* argv[])
{
	cout << "100500 == 100500:" << boolalpha << bitCompare(100500, 100500) << endl;
	cout << "100500 == 9000: " << bitCompare(100500, 9000) << endl;
	cout << "'H' == 'H': " << bitCompare('H', 'H') << endl;
	cout << "'H' == 'K': " << bitCompare('H', 'K') << endl;

	return 0;
}

    Байтоебство проходили... Дамы и господа! Встречайте битоебство!

    gost, 29 Марта 2014

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

  7. Куча / Говнокод #15610

    +143

    1. 1
    http://prntscr.com/34tyg5

    wat?
    PS, капча 2882.

    gost, 28 Марта 2014

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

  8. Куча / Говнокод #15590

    +131

    1. 1
    Set-Cookie	pingadmin_ya_ne_robot=1; expires=Thu, 27 Mar 2014 06:39:49 GMT; path=/; domain=.ping-admin.ru;

    Ya_ne_robot_infa_sotka

    gost, 27 Марта 2014

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

  9. JavaScript / Говнокод #15589

    +153

    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
    var tm_regs=new Array();
tm_regs[1]=new Array('ru9','ru15','ru6','ru27','ru4','ru25','ru7','ru31','ru26','ru1','ru22','ru30','ru5','ru17','ru23','ru18','ru12','ru10','ru3','ru28','ru24','ru16','ru14','ru32','ru19','ru29','ru8','ru11','ru13','ru2','ru21');
tm_regs[2]=new Array('az1','by1','kz3','kz4','kz2','kg1','kg2','lv1','lt1','md1','ua8','ua3','ua1','ua9','ua5','ua7','ua4','ua2','ua6','ua10');
tm_regs[3]=new Array('uk2','de5','de4','de2','de3','es1','it1','lu1','nl2','nl3','nl1','nl4','nl6','nl5','pl2','pl1','ro1','fi1','ru0','fr1','cz1','ch1');
tm_regs[4]=new Array('ca4','ca2','ca3','ca1','us6','us10','us4','us5','us2','us3','us7','us11','us9','us8','us1');
tm_regs[5]=new Array('il1','sg1','cl1','za1');
function vyd_vse1(reg_id,c) {
for (var j=0; j<tm_regs[reg_id].length; j++)
document.getElementById(tm_regs[reg_id][j]).checked=c;
vyd_vse_chk();
}
function vyd_vse2(reg_id) {
var ffvv=0;
for (var j=0; j<tm_regs[reg_id].length; j++)
if (document.getElementById(tm_regs[reg_id][j]).checked!=1) {
ffvv=1;
break;
}
if (ffvv==0) document.getElementById('reg_'+reg_id).checked=1;
else document.getElementById('reg_'+reg_id).checked=0;
vyd_vse_chk();
}
function vyd_vse() {
var ffvv=0;
for (var i=0; i<tm_regs.length; i++)
if (tm_regs[i])
for (var j=0; j<tm_regs[i].length; j++)
if (document.getElementById(tm_regs[i][j]).checked!=1) { ffvv=1;
break;
}
for (var i=0; i<tm_regs.length; i++)
if (tm_regs[i]) {
document.getElementById('reg_'+i).checked=ffvv;
for (var j=0; j<tm_regs[i].length; j++)
document.getElementById(tm_regs[i][j]).checked=ffvv;
}
vyd_vse_chk();
}
function vyd_vse_chk() {
var ffvv=0;
for (var i=0; i<tm_regs.length; i++)
if (tm_regs[i])
for (var j=0; j<tm_regs[i].length; j++)
if (document.getElementById(tm_regs[i][j]).checked!=1) { ffvv=1;
break;
}
if (ffvv==0) document.getElementById('vydvse').innerHTML='Снять выделение со всех точек';
else document.getElementById('vydvse').innerHTML='Выбрать все';
}
function vyd_vse_submit() {
var ffvv=0;
for (var i=0; i<tm_regs.length; i++)
if (tm_regs[i])
for (var j=0; j<tm_regs[i].length; j++)
if (document.getElementById(tm_regs[i][j]).checked==1) { ffvv=1;
break;
}
if (ffvv==0) {
alert('Пожалуйста, выберите хотя бы одну точку мониторинга, откуда будет выполняться проверка.');
return false;
}
return true;
}

    view-source:http://ping-admin.ru/free_test/

    gost, 27 Марта 2014

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

  10. Си / Говнокод #15588

    +129

    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
    int minus(int ch)
{
if (ch < 0)
{
char buf[255];
char *chs = itoa(ch);
char *chsn = (char*)calloc(1, strlen(chs)+1];
memset(chsn, 0, strlen(chs)+1);
chsn[0] = '-';
for (int i = 1, int j = 0; j < strlen(chs); i++, j++)
{
chsn[i] = chs[j];
}
int ret = atoi(chsn);
return ret;
}
else
{
char buf[255];
char *chs = itoa(ch);
char *chsn = (char*)calloc(1, strlen(chs)+1];
memset(chsn, 0, strlen(chs)+1);
for (int i = 1, int j = 0; i < strlen(chs); i++, j++)
{
chsn[j] = chs[i];
}
int ret = atoi(chsn);
return ret;
}
}

    gost, 27 Марта 2014

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

  11. C++ / Говнокод #15578

    +14

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    BOOL shutdown_windows()
{
    //...
    Sleep(1000);
    return FALSE; // Если к этому времени мы еще не закрыты - что-то пошло не так.
}

    gost, 26 Марта 2014

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