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

    Всего: 4

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

    +120

    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
    VAR
m0:array[0..61,0..41]of byte;
ma:array[1..60,1..40]of byte;
I,J:byte;
BEGIN
randomize;
for I:=0to 61do
for J:=0to 41do
if (I=0) or
   (I=61)or
   (J=0) or
   (J=61)
           then m0[I,J]:=0
           else m0[I,J]:=random(2);
for I:=1to 60do
for J:=1to 40do
if m0[I,J]=1then ma[I,J]:=9
            else ma[I,J]:=m0[ I-1 , J-1  ] +
                                m0[ I-1 , J     ] +
                                m0[ I+1 , J+1 ]+
                                m0[ I   , J+1  ]+
                                m0[ I   , J-1   ]+
                                m0[ I-1 , J+1 ]+
                                m0[ I+1 , J-1 ]+
                                m0[ I+1 , J    ];
... ... ... ... ... ... ... ... ... ... 
... ... ... ... ... ... ... ... ... ... 
END.

    Начало игры САПЁР. Край массива заполняем нулями,
    середину - 0 или 1. В меньшем массиве складываем соседние
    клетки (выходит от 0 до 8), если мина - 9.

    dos, 06 Августа 2011

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

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

    +154

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    type
число=ineger;
плюс_число=word;
эконом=shortint;
плюс_эконом=byte;
моар=longint;
граммар=real;
йцукен=char;
йцуукеен=string;
холивар=boolean;

    dos, 15 Июля 2011

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

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

    +126

    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
    uses
crt;
var
  chasov,
 minutov,
sekundov :byte;
tekushchiy_sekund:word;
begin
clrscr;
write('   chasov ');
read(     chasov);
if chasov=9
           then
               begin
                    clrscr;
                    halt;
               end;
write('  minutov ');
read(    minutov);
write(' sekundov ');
read(   sekundov);
clrscr;
for tekushchiy_sekund:=1
to sekundov+60*minutov+3600*chasov do
  begin
       if keypressed then
                         if readkey=#27
                                       then halt;
       delay(50000);
  end;
sound(300);
readkey;
nosound;
end.

    УГАДАЙТЕ

    dos, 11 Июля 2011

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

  5. Pascal / Говнокод #7001

    +155

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    uses crt;
var s:integer;
begin
readln(s);
writeln(ord(s[0]));
readln;
end.

    dos, 20 Июня 2011

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