- 1
#define true false
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+139
#define true false
попробуй найди ошибку :)
+148
<table cellspacing="0" cellpadding="0" role="alert" class="cf ve">
<tbody>
<tr>
<td class="vj"></td>
<td class="vi"></td>
<td class="vk"></td>
</tr>
<tr>
<td class="vi"></td>
<td class="vh">Firebug замедляет работу Gmail, если не настроен правильно.</td>
<td class="vi"></td>
</tr>
<tr>
<td class="vf"></td>
<td class="vi"></td>
<td class="vg"></td>
</tr>
</tbody>
</table>
как реализованы закругленные углы у GMail в html верстке
страшновато, зато кросбраузерность проходит
+142
NameVirtualHost 127.0.0.1:80
<VirtualHost 127.0.0.1:80>
ServerAdmin webmaster@localhost
ServerName site.net
ServerAlias www.site.net
DocumentRoot /home/test/www/site.net
ErrorLog /var/log/apache2/error.log
LogLevel warn
CustomLog /var/log/apache2/access.log combined
</VirtualHost>
<VirtualHost 127.0.0.1:80>
ServerAdmin webmaster@localhost
ServerName sub.site.net
ServerAlias www.sub.site.net
DocumentRoot /home/test/www/sub.site.net
ErrorLog /var/log/apache2/error.log
LogLevel warn
CustomLog /var/log/apache2/access.log combined
</VirtualHost>
Виртуал хост апатча..
+150
<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsd="http://www.w3.org/2001/XMLSchema"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<soapenv:Body>
<ns1:PurchaseResponse xsi:type="ns1:PurchaseResponse" xmlns="urn:qpass-PurchaseTypes"
xmlns:ns1="urn:qpass-PurchaseTypes">
<ns1:responseCode xsi:type="xsd:integer">0</ns1:responseCode>
<ns1:responseMessage xsi:type="xsd:string">Success</ns1:responseMessage>
<ns1:vendorProductId xsi:type="xsd:string">XXXXXXXXXXXX</ns1:vendorProductId>
<ns1:quantity xsi:type="xsd:integer">X</ns1:quantity>
<ns1:price xsi:type="xsd:decimal">X.XX</ns1:price>
<ns1:tax xsi:type="xsd:decimal">0</ns1:tax>
<ns1:purchaseIdentifier xsi:type="xsd:string">XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX</ns1:purchaseIdentifier>
</ns1:PurchaseResponse>
</soapenv:Body>
</soapenv:Envelope>
+148
# /etc/fstab: static file system information.
#
# Use 'vol_id --uuid' to print the universally unique identifier for a
# device; this may be used with UUID= as a more robust way to name devices
# that works even if disks are added and removed. See fstab(5).
#
# <file system> <mount point> <type> <options> <dump> <pass>
proc /proc proc defaults 0 0
# / was on /dev/sda1 during installation
UUID=12179970-74dc-4673-a865-cf8af384eb4b / ext4 relatime,errors=remount-ro 0 1
# swap was on /dev/sda6 during installation
UUID=059ff3fe-4866-4f54-b796-54d4a265f660 none swap sw 0 0
/dev/scd0 /media/cdrom0 udf,iso9660 user,noauto,exec,utf8 0 0
fstab
+154
php_value error_reporting 7
AddDefaultCharset UTF-8
# CharsetDisable On
# CharsetDefault windows-1251
# CharsetSourceEnc windows-1251
# CharsetRecodeMultipartForms off
Options All -Indexes
RewriteEngine On
RewriteRule ^/?$ index.php [L]
RewriteRule ^rated/?$ index.php?act=rated_screen [L]
RewriteRule ^upload/?$ test.php?act=upload_screen [L]
RewriteRule ^settings/?$ index.php?act=settings_screen [L]
RewriteRule ^logout/?$ index.php?act=logout [L]
RewriteRule ^([0-9]+)?$ index.php?act=id_screen&id=$1 [L]
RewriteRule ^([0-9]+)/i.jpg?$ templates/direct.php?id=$1 [L]
Есть в .htaccess вот такое "RewriteRule ^upload/?$ index.php?act=upload_screen [L]" и при переходе по ссылке site.ru/upload в адресной строке появляется http://site.ru/upload/?act=upload_screen ... почему такое может быть?
+151
Док = СоздатьОбъект("Документ.Документ1");
Док.ВыбратьДокументы(Дата1, Дата2);
Пока Док.ПолучитьДокумент()=1 Цикл
Док.ВыбратьСтроки();
Пока Док.ПолучитьСтроку() = 1 Цикл
Док2 = СоздатьОбъект("Документ.Документ2");
Док2.ВыбратьДокументы(Дата1,Дата2);
Сумма = 0;
Пока Док2.ПолучитьДокумент()=1 Цикл
Опер = СоздатьОбъект("Операция");
Если Опер.НайтиОперацию(Док2) = 1 Тогда
Опер.ВыбратьПроводки();
Пока Опер.ПолучитьПроводку() = 1 Цикл
Если (Опер.Кредит.Субконто(1) = Док.Контрагент) Тогда
Сумма = Сумма + Опер.Сумма;
КонецЕсли;
КонецЦикла;
КонецЕсли;
КонецЦикла;
КонецЦикла;
КонецЦикла;
Больше циклов по одним и тем же данным!
+140.9
Товарищ,верь,взойдёт она
Звезда пленительного счвстья...
И на обломках говнокода
Напишут наши имена...
+146
Товарищ, помни! Выкладывание кода сюда скорее всего нарушает права на интеллектуальную собственность твоего белого господина!
+73
program test;
uses crt;
label ww,1,2,ww2,ee,ee2,rr,rr2,tt,tt2,tt3,yy,yy2,yy3,uu,uu2,uu3,ii,ii2,ii3,ii4,oo,oo2,oo3,oo4,00,z,x,c,v;
var q,q2,w,e,r,t,w2,e2,r2,t2,t3,y,y2,y3,u,u2,u3,i,i2,i3,i4,o,o2,o3,o4:real;
begin
1:clrscr;
textcolor(4);
writeln('++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++');
textcolor(2);
writeln('+Если вы отвечаете "ДА",то нажимайте "1" ,а если "НЕТ",то "0"+ ');
textcolor(4);
writeln('++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++');
writeln;
textcolor(2);
writeln('Ответьте пожалуйста на следующие вопросы:');
writeln('*****************************************');
textcolor(8);
writeln('Вы помните всю таблицу умножения?');
read(q);
if q=1 then begin writeln('Вы давно были на рок-концерте?');read(w);goto ww end;
if q=0 then begin writeln('Вы играете в волейбол?');read(w2);goto ww2 end;
ww:if w=1 then begin writeln('Вы играете в волейбол?');read(w2);goto ww2 end;
if w=0 then begin writeln('Вы йог?');read(e);goto ee end;
ww2:if w2=1 then begin writeln('Вы летали на истребителе?');read(e2);goto ee2 end;
if w2=0 then begin writeln('Вы йог?');read(e);goto ee end;
ee:if e=1 then begin writeln('Вы играете в очко?');read(r2);goto rr2 end;
if e=0 then begin writeln('У вас часто болит голова?');read(r);goto rr end;
ee2:if e2=1 then begin writeln('У вас часто болит голова?');read(r);goto rr end;
if e2=0 then begin writeln('Вы играете в очко?');read(r2);goto rr2 end;
rr:if r=1 then begin writeln('У вас смуглая кожа?');read(t);goto tt end;
if r=0 then begin writeln('У вас есть загородный дом?');read(t2);goto tt2 end;
rr2:if r2=1 then begin writeln('Вы часто лежите в больнице?');read(t3);goto tt3 end;
if r2=0 then begin writeln('У вас часто болит голова?');read(r);goto rr end;
tt:if t=1 then begin writeln('У вас есть загородный дом?');read(t2);goto tt2 end;
if t=0 then begin writeln('В вашем подъезде кодовый замок?');read(y);goto yy end;
tt2:if t2=1 then begin writeln('Вы часто лежите в больнице?');read(t3);goto tt3 end;
if t2=0 then begin writeln('В вашем подъезде кодовый замок?');read(y);goto yy end;
tt3:if t3=1 then begin writeln('Телесериалы бывают интересными?');read(y3);goto yy3 end;
if t3=0 then begin writeln('Вы пишете роман?');read(y2);goto yy2 end;
yy:if y=1 then begin writeln('Вы знаете что такое "дежа вю"?');read(u2);goto uu2 end;
if y=0 then begin writeln('Вам всегда жалко бездомных собак?');read(u);goto uu end;
yy2:if y2=1 then begin writeln('В вашем подъезде кодовый замок?');read(y);goto yy end;
if y2=0 then begin writeln('Телесериалы бывают интересными?');read(y3);goto yy3 end;
yy3:if y3=1 then begin writeln('Вы знаете что такое "дежа вю"?');read(u2);goto uu2 end;
if y3=0 then begin writeln('В детстве вы играли в индейцев?');read(u3);goto uu3 end;
uu:if u=1 then begin writeln('Вы любите варёную рыбу?');read(i);goto ii end;
if u=0 then begin writeln('Вы знаете что такое ДЕЖА ВЮ ?');read(u2);goto uu2 end;
uu2:if u2=1 then begin writeln('Вы любите вареную рыбу?');read(i);goto ii end;
if u2=0 then begin writeln('В детстве вы играли в индейцев?');read(u3);goto uu3 end;
uu3:if u3=1 then begin writeln('У вас отключена горячая вода?');read(i4);goto ii4 end;
if u3=0 then begin writeln('Макароны вы едите с хлебом ?');read(i3);goto ii3 end;
ii:if i=1 then begin writeln('Вы могли бы рекламировать бельё?');read(i2);goto ii2 end;
if i=0 then begin writeln('Вы любите петь?');read(o);goto oo end;
ii2:if i2=1 then begin writeln('Вы любите морковный сок?');read(o3);goto oo3 end;
if i2=0 then begin writeln('Вы хотите стать гражданином США ?');read(o2);goto oo2 end;
ii3:if i3=1 then begin writeln('Вам нравятся горы?');read(o4);goto oo4 end;
if i3=0 then begin writeln('Вы любите морковный сок?');read(o3);goto oo3 end;
ii4:if i4=1 then begin writeln('Вам нравятся горы?');read(o4);goto oo4 end;
if i4=0 then begin writeln('Вы любите морковный сок?');read(o3);goto oo3 end;
oo:if o=1 then goto z;
if o=0 then goto x;
oo2:if o2=1 then goto z;
if o2=0 then goto x;
oo3:if o3=1 then goto c;
if o3=0 then begin writeln('Вы хотите стать гражданином США ?');read(o2);goto oo2 end;
oo4:if o4=1 then goto v;
if o4=0 then goto c;
z:clrscr;
textcolor(5);
writeln(' ------ИТОГ: добрый ли вы человек?-------');
textcolor(14);
writeln('Вы случайно не мать Тереза?Бескрайняя ваша доброта...почти также как и глупость');
writeln('Мало настрадались по своей вине?То ли ещё будет.');goto 00;
x:clrscr;
textcolor(5);
writeln(' ------ИТОГ: добрый ли вы человек? -------');
textcolor(14);
writeln('Вы не безнадёжны.В детстве с вами явно занимались.Но годы делают своё дело-');
writeln('ещё немного и от ваших лучших качеств не останется и следа.');goto 00;
c:clrscr;
textcolor(5);
writeln(' -------ИТОГ: добрый ли вы человек?-------');
textcolor(14);
writeln('Брр... С вами близко лучше не знакомиться.Кошек вы конечно не мучаете ,но и на');
writeln('гуманиста абсолютно не тянете.Надо за собой следить');goto 00;
v:clrscr;
textcolor(5);
writeln(' ------ИТОГ: добрый ли вы человек? -------');
textcolor(14);
writeln('Бесцветность вашей натуры не оставляет места для разговоров о добре и зле');
writeln('В вас всего по немногу-может это и есть идеальный вариант?');goto 00;
00:writeln;
...
writeln('Если вы хотите ещё раз протестироваться нажмите "1",если нет "0"');
textcolor(4);
writeln('-----------------------------------------------------------------');
read(q2);
if q2=1 then goto 1;
if q2=0 then goto 2;
2:end.
Нашел свой старый код на паскале. Код был написан сразу после изучение конструкции if и goto. Было это в 10 классе, т.е. где-то лет 10 назад :))
Программа является реализацией точной копии теста из журнала "МК-бульвар" того времени