1. Pascal / Говнокод #21180

    0

    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
    program magic_square;
    uses crt;
    const n=1000;
    var a:array[1..n,1..n] of real;
        n1,i,j:integer;
        s,t,t1,t2,k,k1,k2,b,s1:real;
    begin
     clrscr;
     writeln('‚ўҐ¤ЁвҐ а §ап¤­®бвм ¬ ббЁў ');
     readln(n1);
     writeln('‚ўҐ¤ЁвҐ н«Ґ¬Ґ­вл ¬ ббЁў ');
     for i:=1 to n1 do
      for j:=1 to n1 do
       readln(a[i,j]);
     for i:=1 to n1 do
      begin
       for j:=1 to n1 do
        write(' ',a[i,j]:3:1);
       writeln;
      end;
     s:=0;
     for i:=1 to n1 do
      s:=s+a[i,i];
     for i:=3 downto 1 do
      s1:=s1+a[i,i];
     for i:=1 to n1 do
      begin
       for j:=1 to n1 do
         if i=1 then t:=t+a[i,j] else
         if i=2 then t1:=t1+a[i,j] else
         if i=3 then t2:=t2+a[i,j];
       writeln;
      end;
     for i:=1 to n1 do
      begin
       for j:=1 to n1 do
         if j=1 then k:=k+a[i,j] else
         if j=2 then k1:=k1+a[i,j] else
         if j=3 then k2:=k2+a[i,j];
       writeln;
      end;
     writeln('‘㬬  н«Ґ¬Ґ­в®ў ¤Ё Ј®­ «Ё - ',s:3:1);
     writeln('‘㬬  нҐ«Ґ¬Ґ­в®ў Ї®Ў®з­®© ¤Ё Ј®­ «Ё - ', s1:3:1);
     writeln(t:3:1,' ', t1:3:1,' ', t2:3:1);
     writeln(k:3:1,' ', k1:3:1,' ', k2:3:1);
     If (s=t) and (t=t1) and (t1=t2) and (t2=k) and (k=k1) and (k1=k2) and (k2=s1) then writeln('Љў ¤а в - ¬ ЈЁзҐбЄЁ©!!!') else writeln('Љў ¤а в - ­Ґ ¬ ЈЁзҐбЄЁ©!!!');
     readkey();
    end.

    Шкварюсь на ОАП

    Simodgo, 13 Сентября 2016

    Комментарии (9)
  2. Pascal / Говнокод #21129

    +995

    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
    Program L_121;
    uses crt;
    Var N : integer;
    b,z : string;
    f1 : text;
    
    Begin
         assign(f1,'Единица измерения.txt');
         writeln('1 Соотношение конкретной единицы измерения длины');
         writeln('2 Соотношение единиц измерения длины');
         writeln('3 Обозначение единиц измерения длины');
         writeln('4 Назначение единиц измерения длины');
         read(N);clrscr;
         reset(f1);
         case N of
         
         1:begin
                write('Введите единицу измерения : ');
                read(b);clrscr;
                readln(f1,z);writeln(z);
                if b='миллиметр' then begin readln(f1,z);writeln(z); end;
                if b='сантиметр' then begin readln(f1,z);readln(f1,z);writeln(z); end;
                if b='дециметр'  then begin readln(f1,z);readln(f1,z);readln(f1,z);writeln(z);end;
                if b='метр'      then begin readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);writeln(z);end;
                if b='километр'  then begin readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);writeln(z); end;
           end;
         2:begin
                readln(f1,z);writeln(z);readln(f1,z);writeln(z);readln(f1,z);writeln(z);readln(f1,z);writeln(z);readln(f1,z);writeln(z);
           end;
         3:begin
                readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);
                writeln(z);readln(f1,z);writeln(z);readln(f1,z);writeln(z);readln(f1,z);writeln(z);readln(f1,z);writeln(z);
           end;
         4:begin
                readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);
                readln(f1,z);readln(f1,z);writeln(z);readln(f1,z);writeln(z);readln(f1,z);writeln(z);readln(f1,z);writeln(z);readln(f1,z);writeln(z);
           end;
         end;
    End.

    4 года назад я так писал код)

    Genome, 07 Сентября 2016

    Комментарии (20)
  3. Pascal / Говнокод #20875

    +1920

    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
    function translate_a_name_of_the_winter_to_the_foreign_language(language: String): String;
      begin
        if      language = 'авестийский'    Result := 'zimō'
        else if language = 'белорусский'    Result := 'зіма'
        else if language = 'болгарский'     Result := 'зима'
        else if language = 'верхнелужицкий' Result := 'zyma'
        else if language = 'греческий'      Result := 'χειμώνας'
        else if language = 'древнепрусский' Result := 'semo'
        else if language = 'латинский'      Result := 'hiems'
        else if language = 'латышский'      Result := 'ziema'
        else if language = 'литовский'      Result := 'žiema'
        else if language = 'македонский'    Result := 'зима'
        else if language = 'нижнелужицкий'  Result := 'zyma'
        else if language = 'осетинский'     Result := 'зымӕг'
        else if language = 'польский'       Result := 'zima'
        else if language = 'русский'        Result := 'зима'
        else if language = 'санскрит'       Result := 'hima'
        else if language = 'сербский'       Result := 'зима'
        else if language = 'словацкий'      Result := 'zima'
        else if language = 'словенский'     Result := 'zima'
        else if language = 'талышский'      Result := 'зымыстон'
        else if language = 'таджикский'     Result := 'зимистон'
        else if language = 'украинский'     Result := 'зима'
        else if language = 'хорватский'     Result := 'zima'
        else if language = 'чешский'        Result := 'zima'
      end;

    Из одного очень серьёзного проекта.

    Amayak_Akopyan, 20 Августа 2016

    Комментарии (64)
  4. Pascal / Говнокод #20488

    0

    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
    uses
      ShellAPI;
    
    procedure TForm1.JumpToKey(Key: string; value:string);
    var
      i, n: Integer;
      hWin, htWin, hlWin: HWND;
      ExecInfo: ShellExecuteInfoA;
    begin
      hWin := FindWindowA(PChar('RegEdit_RegEdit'), nil); // не стоит вызывать Ansi-варианты. Лучше вызывать как есть ("FindWindow")
      if hWin = 0 then
      begin
        FillChar(ExecInfo, 60, #0);
        with ExecInfo do
        begin
          cbSize := 60;
          fMask  := SEE_MASK_NOCLOSEPROCESS;
          lpVerb := PChar('open');
          lpFile := PChar('regedit.exe');
          nShow  := 1;
        end;
        ShellExecuteExA(@ExecInfo);
        sleep(500);
        WaitForInputIdle(ExecInfo.hProcess, 200);
        hWin := FindWindowA(PChar('RegEdit_RegEdit'), nil);
      end;
      ShowWindow(hWin, SW_SHOWNORMAL);
      htWin := FindWindowExA(hWin, 0, PChar('SysTreeView32'), nil);
      SetForegroundWindow(htWin);
      i := 30;
      sleep(700);
      repeat
        WaitForInputIdle(ExecInfo.hProcess, 200);
        SendMessageA(htWin, WM_KEYDOWN, VK_LEFT, 0);
        Dec(i);
      until i = 0;
      sleep(700);
      WaitForInputIdle(ExecInfo.hProcess, 200);
      SendMessageA(htWin, WM_KEYDOWN, VK_RIGHT, 0);
      sleep(700);
      i := 1;
      n := Length(Key);
      repeat
        WaitForInputIdle(ExecInfo.hProcess, 200);
        if Key[i] = '\' then
        begin
        SendMessageA(htWin, WM_KEYDOWN, VK_RIGHT, 0);
        end
        else
          SendMessageA(htWin, WM_CHAR, Integer(Key[i]), 0);
        i := i + 1;
      until i = n;
      sleep(500);
      WaitForInputIdle(ExecInfo.hProcess, 200);
    
      if value <> '' then
      begin
        hlWin := FindWindowExA(hWin, 0, PChar('SysListView32'), nil);
        SetForegroundWindow(hlWin);
        i := 30;
        repeat
          //WaitForInputIdle(ExecInfo.hProcess, 200);
          SendMessageA(hlWin, WM_KEYDOWN, VK_LEFT, 0);
          Dec(i);
        until i = 0;
    
        i := 1;
        n := Length(value);
        repeat
          //WaitForInputIdle(ExecInfo.hProcess, 200);
          SendMessageA(hlWin, WM_CHAR, Integer(value[i]), 0);
          i := i + 1;
        until i = n;
      end;
    
    end;
    
    procedure TForm1.Button1Click(Sender: TObject);
    begin
    JumpToKey('HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\Current\Version\Run','CTFMON.EXE');
    end;

    Такая вот рыбка ;-) Открывает редактор и разворачивает ключи до заданного параметра.
    Код не мой. Оригинал разворачивал только до названия ключа.

    fajes_rown, 08 Августа 2016

    Комментарии (2)
  5. Pascal / Говнокод #20293

    +11

    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
    procedure Graph_DefaultGetMem(var P:pointer; Size:word); far;
    {$IFDEF DPMI}
    var
      Selector: Word;
    begin
      Selector := 0;
      if Size <> 0 then
          if MemAllocateBlock(0, Size, 2, nil, Selector) <> 0 then
            Selector := 0;
      P := Ptr(Selector, 0);
    end;
    {$ELSE}
     var
      T: pointer;
     begin
      Size := (Size + 7) and $FFF8;
      GetMem(P, Size + 8);
      if P <> nil then
       begin
        if PtrRec(P).Ofs = 0 then
         begin
           PtrRec(T).Ofs := Size and 15;
           PtrRec(T).Seg := PtrRec(P).Seg + Size shr 4;
         end
        else
         begin
          T := P;
          PtrRec(P).Ofs := 0;
          Inc(PtrRec(P).Seg);
         end;
        FreeMem(T, 8);
       end
     end;
    {$ENDIF}

    Фарш GRAPH.TPU из Борманд Паскаля 7.0, провёрнутый назад. Мясо, восстановленное из котлет.

    inkanus-gray, 29 Июня 2016

    Комментарии (4)
  6. Pascal / Говнокод #20178

    +8

    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
    //Просто скажите говнокод это или нет. Сильно не пинать, я ток учусь программировать. Нужно адекватное мнение 
    //По идее я правильно решил?
    //Вот условие задачи:
    //
    {
    А) Исследуя модель танцевального кружка, можно заметить, что в любой
    момент одна из двух очередей обязательно пуста. В самом деле, если приходит
    больше мальчиков, то будет пуста девчоночья очередь и наоборот. Можно ли
    обойтись одной очередью? Придумайте, как это сделать.
    
    Подсказка: добавьте функцию для тестирования очереди с тем, чтобы
    выяснить, не пуста ли она. И, если не пуста, то кто томится в ней — мальчик или
    девочка? Эта функция не должна изменять состояние очереди.}
    //Вот моё решение:
    uses Crt;
    var
     S_IN : String; 	//Stream In
     S_OUT : String; 	//Stream Out
     b : boolean;           //Lenth = 0 or no?
     S : String;            //Boys and Girls
     c1, c2, c3 : char;		//Symbols: first and second
     i : Integer; 		//Index in input stream
    //Кто томится в очереди, мальчик или девочка?
    function EmptyQue (var Que : String; var boy_or_girl : char) : boolean;
    begin
     if Length (Que) = 0 then EmptyQue:=false
     else
     begin
      boy_or_girl:=Que[1];
      EmptyQue:=true;
     end;
    end;
    //Постановка символа arg в очередь Que
    procedure PutInQue (var Que : String; arg : char);
    begin
     Que:=Que+arg;
    end;
    //Являются ли первый символ в очереди и текущий одинакового регистра
    function Test (const Que : String): boolean;
    begin
     if ((c3 in ['A'..'Z']) and (c1 in ['A'..'Z'])) // 'A'..'Z'
        or
        ((c3 in ['a'..'z']) and (c1 in ['a'..'z'])) //'a'..'z'
     then
      Test:=true
     else
     Test:=false;
    end;
    //Извлечь из очереди
    function GetFromQue (var Que : String; var arg : char) : boolean;
    var
     b : boolean;
    begin
     b:=Test (Que);                 //Если первый в очереди и текущий, мальчик или
     if b then GetFromQue:=false    //девочка, то идем дальше, пару не составляем
     else
     begin
      GetFromQue:=true;
      arg:=Que[1];
      Delete (Que,1,1);
     end;
    end;
    begin
     ClrScr;
     S_IN:='ZHJKqwertASDyuiopQWERTYUIOPasdf';
     S_OUT:='';
     c3:=#0;
     S:='';
     for i:=1 to Length (S_IN) do
     begin
      c1:=S_IN[i];
      b:=EmptyQue (S,c3);
      if b then begin
       if c1 in ['A'..'Z'] then begin
        if GetFromQue (S,c2) then S_OUT:=S_OUT+c1+c2+' '
        else
        PutInQue (S,c1);
       end
       else
       begin
        if GetFromQue (S,c2) then S_OUT:=S_OUT+c2+c1+' '
        else
        PutInQue (S,c1);
       end;
      end
      else
      PutInQue (S,c1);
     end;
     Writeln ('Входной поток: ');
     Writeln (S_IN);
     Writeln ('Выходной поток: ');
     Writeln (S_OUT);
     Writeln ('В очереди остались:');
     Writeln (S);
     Readln;
    end.

    Хочу узнать мнение других людей. Наговнокодил ли я или нет, пока решал задачу (задача из книги по программированию "Песни о Паскале"). Короче дана входная строка, состоящая из маленьких и больших латинских букв (большие - мальчики, маленькие - девочки). Есть две очереди Boys и Girls. Если текущий символ (это в цикле) мальчик, то достаем девочку, иначе - достаем мальчика.
    :
    ...
    for i:=1 to Length(S_IN) do begin
    c1:= S_IN[i]; { выбираем из входного потока }
    if c1 in ['A'..'Z']
    then begin { если это мальчик...}
    { если в очереди есть девочка }
    if GetFromQue(Girls, c2)
    { добавляем пару в выходной поток }
    then S_OUT:= S_OUT+c1+c2+’ ’
    { а иначе помещаем мальчика в очередь }
    else PutInQue(Boys, c1);
    end
    else begin { а если это девочка...}
    { если в очереди есть мальчик }
    if GetFromQue(Boys, c2)
    { добавляем пару в выходной поток }
    then S_OUT:= S_OUT+c2+c1+’ ’
    { а иначе помещаем девочку в очередь }
    else PutInQue(Girls, c1);
    end
    end;
    ...
    Теперь необходимо всё делать в одной очереди (а не Boys и Girls)

    Small_Diamond, 11 Июня 2016

    Комментарии (47)
  7. Pascal / Говнокод #20107

    +11

    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
    // Проверка совакупности дня,месяца,года
      //Для тридцатидневных
      if ( mh mod 2 ) = 1 then
                               if ( dy > 30 ) then
                                                  begin 
                                                     writeln ( 'Такаго набора дня.месяца.года не существует' ); 
                                                     exit
                                                  end;
      //Для Февраля с учётом високосности                                            
      if mh = 2 then
                    if ( ( ( yr mod 4 ) = 0 ) and ( ( yr mod 100 ) <> 0 ) ) or ( ( yr mod 400 ) = 0 )  then
                                                                                                           begin     
                                                                                                                if ( dy > 29 ) then
                                                                                                                                   begin
                                                                                                                                        writeln ( 'Такаго набора дня.месяца.года не существует' ); 
                                                                                                                                        exit
                                                                                                                                   end;
                                                                                                           end           
                                                                                                      else
                                                                                                          begin
                                                                                                               if ( dy > 28 ) then
                                                                                                                                  begin 
                                                                                                                                     writeln ( 'Такаго набора дня.месяца.года не существует' ); 
                                                                                                                                     exit 
                                                                                                                                  end;
                                                                                                          end;
    // Сдвиг на день вперёд,присвоение значений года и месяца
      dy1:=dy+1;
      yr1:=yr;
      mh1:=mh;
    //Переход на следующий день при дате 31.12
      if ( mh = 12 ) and ( dy1 = 32 ) then
                                          begin 
                                              mh1:=1; 
                                              yr1:=yr+1; 
                                              dy1:=1;
                                              writeln ( 'С Новым Годом! Сессия подождёт...' );
                                          end;

    Вырезка работы студента одного хорошего института по ИБ)

    demonolog44, 31 Мая 2016

    Комментарии (7)
  8. Pascal / Говнокод #20085

    +9

    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
    //==============================================================================
    function TMainForm.RunApp(runapp : string) : bool;//Ф-ция создания процесса
      var
        si : TStartupInfo;
        pi : TProcessInformation;
      begin
        Result := false;
        try
          ZeroMemory(@si,SizeOf(si));
          si.cb := SizeOf(si);
          si.dwFlags := STARTF_USESHOWWINDOW;
          si.wShowWindow := sw_hide;
          if CreateProcess(nil,PChar(runapp),nil,nil,False,0,nil,nil,si,pi)=true then  Result := true;
             try
              CloseHandle(pi.hThread);
              except;
             end;//А вдруг прокатит?
          WaitForSingleObject(pi.hProcess, INFINITE);
          sleep(100);
          try
            CloseHandle(pi.hProcess);
            except ;
          end;
        except
          Result := false;
        end;
      end;
    //==============================================================================

    А вдруг прокатит?

    konstunn, 27 Мая 2016

    Комментарии (0)
  9. Pascal / Говнокод #20010

    +15

    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
    procedure TForm1.Timer1Timer(Sender: TObject);
    begin
    if GetAsyncKeyState(81) <> 0 then
    begin
    timer1.Enabled:=false;
    memo1.Text:=memo1.Text+'й ';
    end;
    
    begin
    if GetAsyncKeyState(87) <> 0 then
    begin
    timer1.Enabled:=false;
    memo1.Text:=memo1.Text+'ц ';
    end;
    
    ...
    
    begin
    if GetAsyncKeyState(13) <> 0 then
    begin
    timer1.Enabled:=false;
    memo1.Text:=memo1.Text+' ';
    if memo1.Text <> ' ' then
    button1.Click;
    end;
    
    if GetAsyncKeyState(32) <> 0 then
    begin
    timer1.Enabled:=false;
    memo1.Text:=memo1.Text+' ';
    end;
    
    begin
    if GetAsyncKeyState(1) <> 0 then
    begin
    timer1.Enabled:=false;
    memo1.Text:=memo1.Text+' ';
    if memo1.Text <> ' ' then
    button1.Click;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    ...
    end;

    Видимо чувак копипастил вместе с begin от процедуры, а потом "исправил" ошибки об отсутствии end.

    FrontlineReporter, 15 Мая 2016

    Комментарии (26)
  10. Pascal / Говнокод #20008

    +9

    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
    TForm1 = class(TForm)
        Button2: TButton;
        Timer1: TTimer;
        Button5: TButton;
        Button6: TButton;
        Timer2: TTimer;
        Button7: TButton;
        Button8: TButton;
        Button9: TButton;
        Button10: TButton;
        Panel1: TPanel;
        Edit1: TEdit;
        Button1: TButton;
        Button4: TButton;
        Button11: TButton;
        Button12: TButton;
        Panel2: TPanel;
        Memo1: TMemo;
        Button13: TButton;
        Button14: TButton;
        Timer3: TTimer;
        Button15: TButton;
        Button16: TButton;
        Button3: TButton;
        Button17: TButton;
    
    procedure TForm1.Button13Click(Sender: TObject);
    begin
      Memo1.Lines.Clear;  //Очищаем компонент Memo1.
      Button14.Caption:='.......';
    end;
    
    procedure TForm1.Timer2Timer(Sender: TObject);   //перемещение переключателя в произвольном направлении для определения нужного полюса
    var Button_Tag: Integer;
    begin
        Button_Tag:= Button7.Tag+Button8.Tag+Button9.Tag+Button10.Tag;              //Button7.Tag+Button2.Tag
      case Button_Tag of
        1:  begin
              var_integer[C_the_timer_counter]:= var_integer[C_the_timer_counter]+1;    //счетчик  Timer2
              var_integer[C_the_X_coordinate]:=var_integer[C_the_timer_counter]; //координата X
              coordinates[2].X:=coordinates[2].X+var_integer[C_the_X_coordinate];//
              blank_backgroun;           //очистить до пустого фона  !!!!!!!!!
             Draw_a_picture30(coordinates[2],bmps[2]); //не более [bmp_cnt-1] Draw_a_picture30(coordinates[1],bmps[2]); выводит   img3 BITMAP 3.bmp
            end;             
        2:  begin
              var_integer[C_the_timer_counter]:= var_integer[C_the_timer_counter]+1;    //счетчик  Timer2
              var_integer[C_the_X_coordinate]:=-var_integer[C_the_timer_counter]; //координата X
              coordinates[2].X:=coordinates[2].X+var_integer[C_the_X_coordinate];//
              blank_backgroun;            //очистить до пустого фона  !!!!!!!!!
              Draw_a_picture30(coordinates[2],bmps[2]); //не более [bmp_cnt-1] Draw_a_picture30(coordinates[1],bmps[2]); выводит   img3 BITMAP 3.bmp
            end;
        3:  begin
           ...
        4:  begin
           ...
      else   Noop;
      end;
          Edit1.Text:=IntToStr(coordinates[2].X)+'*   '+IntToStr(coordinates[2].Y);
    end;

    Классика Дельфи.

    FrontlineReporter, 14 Мая 2016

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