1. Куча / Говнокод #19635

    +4

    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
    program Project2;

procedure test1;
var
  arr:array[0..32] of char;
begin
  fillchar(arr,sizeof(arr),'A');
end;

procedure test2;
var
  arr:array[0..32] of char;
begin
  fillchar(arr,sizeof(arr) div 2,'B');
  writeln(arr);
end;

begin
  test1;
  test2;
  //BBBBBBBBBBBBBBBBAAAAAAAAAAAAAAA
  readln;
end.

    http://ideone.com/qJajnb

    fajes_rown, 15 Марта 2016

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

  2. Куча / Говнокод #19614

    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
    objNewFile.WriteLine "	if (!table.nodeType) table = document.getElementById(table)"
objNewFile.WriteLine "	var ctx = {worksheet: name || 'Worksheet', table: table.innerHTML}"
objNewFile.WriteLine "	window.location.href = uri + base64(format(template, ctx))"
objNewFile.WriteLine "}"
objNewFile.WriteLine "})()"
objNewFile.WriteLine "</script>"
objNewFile.WriteLine "<input type=""button"" onclick=""tableToExcel('table1', 'Export data')"" value=""Export data to Excel"">"
	
objNewFile.WriteLine "<table id=""table1"" BORDER=""1"" width=""100%"">" 
objNewFile.WriteLine "<tr><th width=""2%"">id</th><th>Computer</th><th>AV Name</th><th>AV Status</th><th>AV Bases</th><th>Host Status</th></tr>"

for each comp in comps 
	compid = compid + 1 
		
	Set WshShell = WScript.CreateObject("WScript.Shell")
	Ping = WshShell.Run("ping -n 1 " & comp, 0, True)
	Select Case Ping
	Case 0
		On Error Resume next 
		Set oWMI = GetObject("winmgmts:\\" & comp & "\root\SecurityCenter2") 
		On Error Resume next 
		Set colAVItems = oWMI.ExecQuery("Select * from AntiVirusProduct") 
		If colAVItems.count = 0 Then 
			objNewFile.WriteLine "<tr><th>" & compid & "</th><th>" & comp & "</th><th><font color=""red"">No AntiViruses found</font></th><th><font color=""red"">Disabled</font></th><th><font color=""red"">NOT Up to Date</font></th><th><font color=""green"">Online</font></th></tr>"

    И это висит на главной Волан-де-сайта!

    gost, 12 Марта 2016

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

  3. Куча / Говнокод #19583

    +8

    1. 1
    TOO_ENOUGH_DATA

    3_14dar, 06 Марта 2016

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

  4. Куча / Говнокод #19570

    +4

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    #!/bin/bash
echo "(find-file \"$1\")" >> ~/.emacs.d/cmdfile

В emacs периодически дергается

(defun read-cmd-file ()
  (load-file "~/.emacs.d/cmdfile")
  (delete-file "~/.emacs.d/cmdfile"))

(run-with-idle-timer 1 t 'read-cmd-file)

    гуру emacs ЛОРа

    CHayT, 03 Марта 2016

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

  5. Куча / Говнокод #19568

    −1

    1. 1
    https://drive.google.com/file/d/0B9WcAoQS5ukUZ1NMQkxMdXBSMWM/view?usp=sharing

    Many-To-One PHP edition.

    хуита, 03 Марта 2016

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

  6. Куча / Говнокод #19553

    −3

    1. 1
    2. 2
    3. 3
    >ipconfig   | find "IP"
═рёЄЁющър яЁюЄюъюыр IP фы  Windows
        IP-рфЁхё  . . . . . . . . . . . . : 192.168.1.60

    ЧЗХ (кодировка)?

    3_14dar, 01 Марта 2016

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

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

    +4

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    9. 9
    // Итальянский код

if (...) {
   ...
} else {
   ...
} elsinio {
   ...
}

    3_dar, 29 Февраля 2016

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

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

    +2

    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
    boost_include_path_list = \
    "/usr/local/include/" \
    "/usr/local/boost_1_57_0/" \
    "C:\\boost_1_59_0\\" \
    "C:\\Program Files (x86)\\boost_1_57_0\\"

for(path, boost_include_path_list) {
    exists($$path) {
        boost_include_path = $$path
    }
}

INCLUDEPATH += $$boost_include_path

    qmake, кроссплатформенность

    Xom94ok, 29 Февраля 2016

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

  9. Куча / Говнокод #19546

    0

    1. 1
    2. 2
    3. 3
    4. 4
    Ку всем
Посоны
Как привязать БД для авторизации к html странице?
Не php а html

    Написал мне Вася Пупкин, дипломированный специалист в области информационных технологий

    kegdan, 29 Февраля 2016

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

  10. Куча / Говнокод #19542

    +1

    1. 1
    Верните мой WCT!

    d_fomenok, 27 Февраля 2016

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