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

    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
    procedure TF_dvij.rg_sortClick(Sender: TObject);
    var k :Integer;
        s,str1,str2 :string;
        fl :boolean;
    begin
    if G.Columns[9].Visible then
    begin
      fl := Q_dvij.Active ;
      with Q_dvij do
      begin
        if fl then k := RecNo;
        if rg_sort.ItemIndex=0 then s:='order by obd,gr,exped,grot'
        else
        if rg_sort.ItemIndex=1 then s:='order by exped,gr,obd,grot'
        else
        if rg_sort.ItemIndex=2 then s:='order by gr,vp,exped,obd,grot'
        else
        if rg_sort.ItemIndex=3 then s:='order by id_korr,exped,obd,gr,grot'
        else
        if rg_sort.ItemIndex=4 then s:='order by grot,gr,exped,obd'
        else
          s:='order by strn,obd,gr,exped,grot';
          
        if rg_sort.ItemIndex=3 then
          begin
            str1 := 'select vp, id_korr,' ;           //100
            str2 := 'group by 1,2,3,4,5,6,7,8'          //192
          end
        else
          begin
            str1 := 'select vp, max(id_korr) as id_korr,' ;
            str2 := 'group by 1,3,4,5,6,7,8'
          end  ;
    
        Active:=false;
        SQL.Delete(100);
        SQL.Insert(100, str1 );
        SQL.Delete(192);
        SQL.Insert(192, str2 );
        SQL.Delete(262);
        SQL.Insert(262, s);
        Active:= fl;
        if fl then RecNo := k;
        G.Refresh;
      end;
    end;

    сортировОЧКА

    Baiumka, 29 Марта 2022

    Комментарии (1)
  2. Си / Говнокод #28096

    0

    1. 1
    #exclude <conio.h>

    конио

    3_dar, 29 Марта 2022

    Комментарии (13)
  3. JavaScript / Говнокод #28095

    0

    1. 1
    console.log('Hello from GovnoKod!');

    aivanov-ru, 28 Марта 2022

    Комментарии (1)
  4. Assembler / Говнокод #28094

    0

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    vbi:
    	mov %al [[email protected]]
    	inc %al
    	mov [[email protected]] %al
    	.mset: memset [@T1] 3A98h 0h
    	rei

    kcalbCube, 28 Марта 2022

    Комментарии (7)
  5. Куча / Говнокод #28093

    0

    1. 1
    говно

    an0, 27 Марта 2022

    Комментарии (5)
  6. Куча / Говнокод #28092

    +1

    1. 1
    Петух иньо забыл продлить домен

    inho-pidar, 25 Марта 2022

    Комментарии (18)
  7. Куча / Говнокод #28091

    0

    1. 1
    Политота #11

    #1: https://govnokod.ru/15804 https://govnokod.xyz/_15804
    #2: https://govnokod.ru/19910 https://govnokod.xyz/_19910
    #3: https://govnokod.ru/23643 https://govnokod.xyz/_23643
    #4: (vanished) https://govnokod.xyz/_24822
    #5: https://govnokod.ru/24868 https://govnokod.xyz/_24868
    #6: (vanished) https://govnokod.xyz/_26648
    #7: https://govnokod.ru/26673 https://govnokod.xyz/_26673
    #8: https://govnokod.ru/27052 https://govnokod.xyz/_27052
    #9: https://govnokod.ru/27852 https://govnokod.xyz/_27852
    #10: https://govnokod.ru/28060 https://govnokod.xyz/_28060

    nepeKamHblu_nemyx, 24 Марта 2022

    Комментарии (459)
  8. Python / Говнокод #28090

    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
    def getMyIPAddress():
        global __ip__
        if __ip__:
            return __ip__
        with suppress(Exception):
            __ip__ = get('https://api.my-ip.io/ip', timeout=.1).text
        with suppress(Exception):
            __ip__ = get('https://ipwhois.app/json/', timeout=.1).json()["ip"]
        with suppress(Exception):
            __ip__ = get('https://ipinfo.io/json', timeout=.1).json()["ip"]
        with suppress(Exception):
            __ip__ = ProxyTools.Patterns.IP.search(get('http://checkip.dyndns.org/', timeout=.1).text)
        with suppress(Exception):
            __ip__ = ProxyTools.Patterns.IP.search(get('https://spaceiran.com/myip/', timeout=.1).text)
        with suppress(Exception):
            __ip__ = get('https://ip.42.pl/raw', timeout=.1).text
        return getMyIPAddress()

    Что имел в виду автор? Кто понял?

    inho-pidar, 24 Марта 2022

    Комментарии (14)
  9. JavaScript / Говнокод #28089

    +3

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    function main()
    {
        for (const i of [1, 2, 3])
            print("Hello World!", i);
    }

    ну что вершилось чудо.. теперь на https://godbolt.org/ можно попробывать альфа версию компилятора
    пока показывает только - LLVM IR и вывод выполнения
    https://i.postimg.cc/Kj3Bd78d/god-bolt-tsc-native.jpg

    [god-bolt-tsc-native.jpg](https://postimg.cc/QKsF7T5b)

    ASD_77, 23 Марта 2022

    Комментарии (10)
  10. Си / Говнокод #28088

    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
    /*
     *  libcaca       Colour ASCII-Art library
     *  Copyright (c) 2002-2010 Sam Hocevar <[email protected]>
     *                All Rights Reserved
     *
     *  This library is free software. It comes without any warranty, to
     *  the extent permitted by applicable law. You can redistribute it
     *  and/or modify it under the terms of the Do What The Fuck You Want
     *  To Public License, Version 2, as published by Sam Hocevar. See
     *  http://sam.zoy.org/wtfpl/COPYING for more details.
     */
    
    /*
     *  This header contains a conio.h reimplementation.
     */
    
    #ifndef __CACA_CONIO_H__
    #define __CACA_CONIO_H__
    
    /* Since we're going to redefine standard functions, include these
     * headers first to avoid errors upon later inclusion. */
    #if !defined(__KERNEL__)
    #   include <stdio.h>
    #endif
    
    #include <caca.h>
    
    #if !defined _DOXYGEN_SKIP_ME && !defined __LIBCACA__
    #   undef BLINK
    #   define BLINK CACA_CONIO_BLINK
    #   undef BLACK
    #   define BLACK CACA_CONIO_BLACK
    #   undef BLUE
    #   define BLUE CACA_CONIO_BLUE
    #   undef GREEN
    #   define GREEN CACA_CONIO_GREEN
    #   undef CYAN
    #   define CYAN CACA_CONIO_CYAN
    #   undef RED
    #   define RED CACA_CONIO_RED
    #   undef MAGENTA
    #   define MAGENTA CACA_CONIO_MAGENTA
    #   undef BROWN
    #   define BROWN CACA_CONIO_BROWN
    #   undef LIGHTGRAY
    #   define LIGHTGRAY CACA_CONIO_LIGHTGRAY
    #   undef DARKGRAY
    #   define DARKGRAY CACA_CONIO_DARKGRAY
    #   undef LIGHTBLUE
    #   define LIGHTBLUE CACA_CONIO_LIGHTBLUE
    #   undef LIGHTGREEN
    #   define LIGHTGREEN CACA_CONIO_LIGHTGREEN
    #   undef LIGHTCYAN
    #   define LIGHTCYAN CACA_CONIO_LIGHTCYAN
    #   undef LIGHTRED
    #   define LIGHTRED CACA_CONIO_LIGHTRED
    #   undef LIGHTMAGENTA
    #   define LIGHTMAGENTA CACA_CONIO_LIGHTMAGENTA
    #   undef YELLOW
    #   define YELLOW CACA_CONIO_YELLOW
    #   undef WHITE
    #   define WHITE CACA_CONIO_WHITE
    #endif

    3_dar, 22 Марта 2022

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