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

    +144.4

    1. 1
    array...

    Забавно перепутаны картинки и соответствующие им пакеты телевидения: кино, спорт, увлечения.
    На пакете телевидения "кино" изображена девушка спортсменка (видимо плавчиха).
    На пакете телевидения "спорт" изображен кулинар.
    На пакете телевидения "увлечения" изображен лев, который может съесть.
    )
    Источник: akado.tv

    Kraut, 21 Марта 2010

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

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

    +144.6

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

uses
  crt;

var
  S, ns: string[80];
  t, f, f1, kc, ks, d, i: byte;

const
  n = '1234567890';
  a = 'abcdefghijklmnopqrstuvwxyz';

begin
  kc := 0;
  ks := 0;
  
  clrscr;
  read(S);
  d := length(S);
  for i := 1 to d do
 begin
    t := pos(S[i], n);
    if t > 0 then
    begin
      ns := ns + S[i];
      f := 1;
    end
    else 
    begin
      if f = 1 then
        kc := kc + 1;
      f := 0;
      delete(ns, 1, length(ns));
    end
    end;
 
  
  f := 0;
  delete(ns, 1, length(ns));
  for i := 1 to d do
  begin
    t := pos(S[i], a);
    if t > 0 then
    begin
      ns := ns + S[i];
      f := 1;
    end
    else
    begin
      if f = 1 then
        ks := ks + 1;
      f := 0;
      delete(ns, 1, length(ns));
    end
  end;
  if (kc = 0) and (ks = 0) then
  begin
    clrscr;
    write('no symbols and digets');
    readkey;
  end; 
  if kc > ks then
  begin
    clrscr;
    write('a lot of digets');
    readkey;  
  end
  else
  begin
    clrscr;
    write('a lot of symbols');
    readkey;
  end;
  if kc = ks then
  begin
    clrscr;
    write('они равны');
    readkey;
  end
  
  
  
end.

    Funkie444, 21 Марта 2010

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

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

    +55.6

    1. 1
    0 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23 * * * root /usr/local/cron_func/trans.pl

    строка в crontab'е.

    Mihard, 18 Марта 2010

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

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

    +144

    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
    LOCALE: UTF-8
LANGUAGE: RUSSIAN

ОТКРТЫАЯ ЛИЦЕНЗИЯ С ОТСУТСТВИЕМ ГАРАНТИЙ.
ЭТА ЛИЦЕНЗИЯ НЕДЕЙСТВИТЕЛЬНА ПРИ ПЕРЕВОДЕ НА ДРУГИЕ ЯЗЫКИ.



ПРИЛОЖЕНИЕ QUOTER


Это приложение предоставляется конечному пользователю КАК ЕСТЬ без каких либо
гарантий. Автор(ы) приложения снимают с себя любую ответственность, включая
ответственность за неполадки, вызвавшие материальные/духовные потери.

Конечному потребителю ЗАПРЕЩАЕТСЯ продавать приложение/его модификации, без
согласия автора(ов).
Конченому потребителю ЗАПРЕЩАЕТСЯ выдавать себя за автора(ов) приложения.

Конченый потребитель ИМЕЕТ ПРАВО модифицировать приложение как ему вздумается.

    файл LICENSE.TXT в одном говнопроэкте

    danilissimus, 17 Марта 2010

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

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

    +124.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
    varnamebegin // начало имени новой переменной
a // имя новой переменной
varnameend // конец имени новой переменной
varvaluebegin // начало значения новой переменной
newarray // новый массив
varvalueend // конец значения новой переменной
varcallbegin // начало имени вызываемой переменной
a // имя вызываемой переменной
varcallend // конец имени вызываемой переменной
push // добавить элементы в массив
lcobjectsbegin // начало области добавляемых элементов
bg // начало значения элемента массива
codedn // code — символ, d — префикс для цифр, n — спец-символ для цифры "0"
end // конец значения элемента массива
bg // начало значения элемента массива
codedo // code — символ, d — префикс для цифр, n — спец-символ для цифры "1"
end // конец значения элемента массива
lcobjectsend // конец области добавляемых элементов
functioninit // аналог ()

    Создание массива с содержимым [0, 1] на одном из эзотерических ЯП. Фишка в том, что убраны все знаки препинания, цифры и т.д., оставлены лишь прописные латинские буквы.
    Интересно, как на таком ЯП будет выглядеть полностью валидная проверка E-Mail (наподобии этой — ex-parrot.com/pdw/Mail-RFC822-Address.html) ?

    eval, 17 Марта 2010

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

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

    +130.6

    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
    <table cellpadding="0" cellspacing="0">
                <tr>
                <td style="width:200px">
                
                </td>
                <td style="width:600px">
                    <span >
                        <a href="#part1"><asp:Label ID="Label1" runat="server" CssClass="MenuItemsActive font_google" Text="Инфо1"
                            Width="593px"></asp:Label></a><br />
                        <a href="#part2"><asp:Label ID="Label2" runat="server" CssClass="MenuItemsActive font_google" Text="Инфо2"
                            Width="593px"></asp:Label></a><br />
                        <a href="#part3"><asp:Label ID="Label3" runat="server" CssClass="MenuItemsActive font_google" Text="Инфо3"
                            Width="593px"></asp:Label></a><br />
                        <a href="#part4"><asp:Label ID="Label4" runat="server" CssClass="MenuItemsActive font_google" Text="Инфо4"
                            Width="593px"></asp:Label></a><br />
                        <a href="#part5"><asp:Label ID="Label5" runat="server" CssClass="MenuItemsActive font_google" Text="Инфо5"
                            Width="593px"></asp:Label></a></span></td>
                </tr>
</table>

    asp.net суровая верстка

    alex_donetsk, 12 Марта 2010

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

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

    +66.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
    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
    <!-- Подготавливаем счётчик для цикла -->
<xsl:variable name="i-tree">
        <i/><i/><i/><i/><i/><i/>
    <i/><i/>    <i/><i/>    <i/><i/>
        <i/><i/><i/>    <i/><i/><i/> <i/>
        <i/><i/><i/><i/><i/><i/><i/>
        <i/>                  <i/>
        <i/><i/><i/><i/><i/><i/>
</xsl:variable>
<xsl:variable name="i" select="exslt:node-set($i-tree)/i" />

<!-- Подготавливаем параметр ссылок -->
<xsl:variable name="links">
    <links next="0" previous="1">
    <xsl:for-each select="$i[position() &lt;= $date/@mday]">
        <link mday="{position()}" />
    </xsl:for-each>
    </links>
</xsl:variable>

<div id="archive">
    <xsl:call-template name="calendar">
        <xsl:with-param name="title" select="'Архив'" />
        <xsl:with-param name="url" select="concat($url_path,'%date%/')" />
        <xsl:with-param name="links" select="exslt:node-set($links)/links" />
    </xsl:call-template>
</div>

    Вот так и мучаемся без for циклов в xsl

    Suor, 12 Марта 2010

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

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

    +60.9

    1. 1
    2. 2
    3. 3
    <a href="game.php?page=buildings&cmd=insert">
<input style='color:#0F0; font-weight: bold'; type='submit' value='bla-bla-bla'>
</a>

    Человек ВНЕЗАПНО понял, как сделать рамку вокруг ссылки "как у кнопки".

    Int, 09 Марта 2010

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

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

    +121.6

    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
    <table width="760"  border="0" cellpadding="0" cellspacing="0">
		<tr align="left" valign="middle" bgcolor="#FFFFFF">
          <td width="12"  valign="middle" height="33"> </td>
          <td width="336"  valign="middle">          <span class="Titletop"><a href="/members/signin.php?p=www.jci.cc/">Go to Members Site</a></span></td>
          <td width="71" align="right" valign="middle"><span class="Titletop">Language </span></td>
          <td width="87"  valign="middle"><select name="lang_id" onchange="document.mainform.subpageid.value='';document.mainform.subpageid2.value='';document.mainform.pageid.value='0';document.mainform.submit()">
            <option value="1" selected >English</option>

            <option value="2"  >Español</option>
            <option value="3"  >Français</option>
          <!--  <option value="4"  >Japanese</option>
            <option value="5"  >Korean</option>
            <option value="6"  >Chinese</option>
            <option value="7"  >German</option>
            <option value="8"  >Russian</option> -->
          </select></td>
          <td width="109" align="right" valign="middle">
<input type=hidden name=domains value="jci.cc">
               <input type=hidden name=sitesearch value="jci.cc">

               <INPUT type=hidden name=cof VALUE="S:http://www.jci.cc;GL:0;AH:center;LH:116;L:http://www.jci.cc/images/header.gif;LW:760;AWFID:61c374d44065a9ab;">
	      <span class="Titletop">Search JCI </span></td>
          <td width="109" align="right" valign="middle"><input name="q" type="text" class="srch_frm" size="15" /></td>
          <td width="36" align="left"> <a href="#" onclick="google()"><img src="/images/search.gif" width="15" height="15" border="0" align="absmiddle" onclick="google()" /></a></td>
  </tr>
      </table>

    http://www.jci.cc/

    sunswordrie, 01 Марта 2010

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

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

    +133.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
    <form method="post" name="badlink" id="f6F9kL" style="margin: 0pt;" onsubmit="fun6F9kL();return false;"> 

<script type="text/javascript"> 
$.post('/index/', { 
f1: '[email protected]', 
f2: 0, 
f3: 'Нерабочая ссылка!' , 
sbm: 0, 
id: 0, 
a: 0, 
o: 0 
</form> 

<script type="text/javascript">var sblmb1=0;function fun6F9kL(){try {var tr=checksubmit();if(!tr){return false;}}catch(e){}if (sblmb1==1){return false;}sblmb1=1;};document.badlink.f5.value=document.location.href;</script> 

<a href="javascript://" onClick="if (confirm('Вы уверены, что ссылка нерабочая?')){document.badlink.sbm.click();};return false;"><b>Сообщить о нерабочей ссылке</b></a>

    "Жалоба на нерабочую ссылку". Взято отсюда http://megasoft.3dn.ru/forum/16-146235-1145387-16-1267290351

    Infamous, 27 Февраля 2010

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