1. Assembler / Говнокод #28098

    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
    .org {5h * 2h}
    dw @int5
    
    .org 30h
    data:
    	db "10"
    
    .org 80h
    start:
    	mov %sp FFFFh
    	mov %al {3h * 2h}
    	int 5h
    	int 0h
    
    int5:
    	push %a
    	mov %ah [{@data + 1h}]
    	add %al %ah
    	outb E9h %al
    	.wait:
    		inb %al E9h
    		cmp %al 0h
    		jne @.wait
    	pop %a
    	rei

    встречайте новую фичу

    kcalbCube, 30 Марта 2022

    Комментарии (25)
  2. 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)
  3. Си / Говнокод #28096

    0

    1. 1
    #exclude <conio.h>

    конио

    3_dar, 29 Марта 2022

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

    0

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

    aivanov-ru, 28 Марта 2022

    Комментарии (1)
  5. 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)
  6. Куча / Говнокод #28093

    0

    1. 1
    говно

    an0, 27 Марта 2022

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

    +1

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

    inho-pidar, 25 Марта 2022

    Комментарии (24)
  8. Куча / Говнокод #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

    Комментарии (486)
  9. 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

    Комментарии (24)
  10. 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)