- 1
!<>
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+143
!<>
Просто очень короткий говнокод:
Читается как не больше и не меньше.
Конечно, выдумано, но тем не менее :)
+133.8
Продолжение обсуждения Говнокод #3028
Предлагаю перейти сюда, а то каментов тонна.
Продолжение обсуждения Говнокод #3028
А то каментов скопилось.
Предлагаю премодерацию переложить на плечи тех, кто постит.
Выложил говно -- проследи, чтобы обсуждение было на уровне.
Отдельно на должности модеров, я думаю, народ не пойдет. Это отнимает много времени и сил.
Тем более ГдеЗдесьСиПлюсПлюсеры не дремлют.
Если постер будет излишне необъективен и будет выпиливать любую критику, то его ветка просто будет уныла.
Ведь при наличии хорошего диалога в каментах, даже из неоднозначного поста получается годная вещь.
Для гестов можно ввести ограничение по количеству каментов в сутки, следить по IP, хотя этот метод не лишен недостатков.
Или установить вырвиглазную капчу. Шутка. :))
+61.2
border: yes!;
найдено в css :-\
+78.4
Мне немногозначно дали понять, что анонимы всех достали. Пишут в почту, в icq, в реформал и даже смски шлют.
Проект уже вырос из того нежного возраста, когда его судьбу мог решать я сам. Посему предлагаю обсудить сложившуюся ситуацию и прийти к соглашению, выпиливать ли анонимов или оставлять.
+130.8
^.*rutor\.org\/(?:(?:torrent)|(?:download))\/(\d*)\/?.*
+143.8
CREATE TABLE EMP (EMPNO NUMBER(4) NOT NULL,
ENAME VARCHAR2(10),
JOB VARCHAR2(9),
MGR NUMBER(4),
HIREDATE DATE,
SAL NUMBER(7, 2),
COMM NUMBER(7, 2),
DEPTNO NUMBER(2));
INSERT INTO EMP VALUES (7369, 'SMITH', 'CLERK', 7902, TO_DATE('17-DEC-1980', 'DD-MON-YYYY'), 800, NULL, 20);
INSERT INTO EMP VALUES (7499, 'ALLEN', 'SALESMAN', 7698, TO_DATE('20-FEB-1981', 'DD-MON-YYYY'), 1600, 300, 30);
INSERT INTO EMP VALUES (7521, 'WARD', 'SALESMAN', 7698, TO_DATE('22-FEB-1981', 'DD-MON-YYYY'), 1250, 500, 30);
INSERT INTO EMP VALUES (7566, 'JONES', 'MANAGER', 7839, TO_DATE('2-APR-1981', 'DD-MON-YYYY'), 2975, NULL, 20);
INSERT INTO EMP VALUES (7654, 'MARTIN', 'SALESMAN', 7698,TO_DATE('28-SEP-1981', 'DD-MON-YYYY'), 1250, 1400, 30);
INSERT INTO EMP VALUES (7698, 'BLAKE', 'MANAGER', 7839,TO_DATE('1-MAY-1981', 'DD-MON-YYYY'), 2850, NULL, 30);
INSERT INTO EMP VALUES (7782, 'CLARK', 'MANAGER', 7839,TO_DATE('9-JUN-1981', 'DD-MON-YYYY'), 2450, NULL, 10);
INSERT INTO EMP VALUES (7788, 'SCOTT', 'ANALYST', 7566,TO_DATE('09-DEC-1982', 'DD-MON-YYYY'), 3000, NULL, 20);
INSERT INTO EMP VALUES (7839, 'KING', 'PRESIDENT', NULL,TO_DATE('17-NOV-1981', 'DD-MON-YYYY'), 5000, NULL, 10);
INSERT INTO EMP VALUES (7844, 'TURNER', 'SALESMAN', 7698,TO_DATE('8-SEP-1981', 'DD-MON-YYYY'), 1500, 0, 30);
INSERT INTO EMP VALUES (7876, 'ADAMS', 'CLERK', 7788,TO_DATE('12-JAN-1983', 'DD-MON-YYYY'), 1100, NULL, 20);
INSERT INTO EMP VALUES (7900, 'JAMES', 'CLERK', 7698,TO_DATE('3-DEC-1981', 'DD-MON-YYYY'), 950, NULL, 30);
INSERT INTO EMP VALUES (7902, 'FORD', 'ANALYST', 7566,TO_DATE('3-DEC-1981', 'DD-MON-YYYY'), 3000, NULL, 20);
INSERT INTO EMP VALUES (7934, 'MILLER', 'CLERK', 7782,TO_DATE('23-JAN-1982', 'DD-MON-YYYY'), 1300, NULL, 10);
prompt C R E A T E N E W E M P L O Y E E R E C O R D
prompt
prompt Enter the employee's information:
prompt
accept l_ename char format a10 prompt 'Last name: '
accept l_empno number format '9999' prompt 'Employee #: '
accept l_sal number format '99999.99' prompt 'Salary [1000]: ' default '1000.00'
accept l_comm number format '99999.99' prompt 'Commission % [0]: ' default '0'
accept l_hired date format 'mm/dd/yyyy' prompt 'Hire date (mm/dd/yyyy): '
prompt List of available jobs:
select distinct job
from emp
order by job
/
accept l_job char format a9 prompt 'Job: '
prompt List of managers and employee numbers:
select empno, ename
from emp
order by ename
/
accept l_mgr number format '9999' prompt 'Manager''s Employee #: '
prompt List of department numbers and names:
select deptno, dname
from dept
order by deptno
/
accept l_dept number format '99' prompt 'Department #: '
insert into emp (empno, ename, job, mgr, hiredate, sal, comm, deptno)
values (&l_empno, '&l_ename', '&l_job', &l_mgr,
to_date('&l_hired','mm/dd/yyyy'), &l_sal, &l_comm, &l_dept)
/
drop table emp;
+144.8
<table width="100%">
<tr>
<td><input name="res" title="add new resource"/><td>
</tr>
</table>
а ведь это должен был быть <div>..</div> =)
+51.4
.....
<table width=100% border=1>
<colgroup .....>
.....
<tr>
<td colspan=2>(тут шапка)</td>
</tr>
<tr>
<td width=60% colspan>(слева)</td>
<td width=40% colspan>(справа)</td>
</tr>
.....
</table>
.....
Нету раздела html, поэтому решил наговнокодить тут :) Будет ли это говнокодом если верстать сайты так? Вообщем за и против div'ой и табличной верстки.. примеры данного куска с оптимальным содержанием..
+131.6
<div style="width:100%; text-align:center; height:95%; position: absolute ; left:0; top:0; text-align:center; " >
<table id="TableHead" cellpadding="0" cellspacing="0" style="text-align:center;width: 400px; margin-top:-150px; margin-left:-200px; position:absolute; top: 50%; " align="center">
...
</div>
ну не красотень
+123.2
uses windos, crt;
label code1;
var start: char;
pr: shortint;
code: integer;
z, k, p, c, x: longint;
h, m, s, hund: word;
st: string;
i:comp;
function time(w : word) : string;
var s : string;
begin
str(w:0, s);
if length(s) = 1 then s:='0'+s;
time:=s;
end;
procedure rdtsc(var tsc:comp); assembler;
asm
db $0f, $31
les di, tsc
mov [es:di+0], ax
db $66, $c1, $e8, $16
mov [es:di+2], ax
mov [es:di+4], dx
db $66, $c1, $ea, $16
mov [es:di+6], dx
end;
begin
textcolor(white);
write ('Start?(y/n) '); readln (start);
if start<>'y' then halt;
code1:
z:=14000005; c:=round(z/100); p:=c; pr:=0; k:=0; textcolor(10);
gettime(h, m, s, hund);
st:=time(h)+time(m)+time(s)+time(hund);
val(st, x, code);
if code<>0 then
begin
clrscr;
textcolor(12);
writeln ('CODE=', code);
writeln (h, m, s, hund);
goto code1;
end;
rdtsc(i); i:=i+x*41+x+5;
while z<>k do
begin
str(i, st);
st:=copy(st, 6, 4);
val(st, i, code);
if code<>0 then
begin
clrscr;
textcolor(12);
writeln ('CODE=', code);
writeln ('ST=', st);
goto code1;
end;
i:=i*i+h*104+hund*73+x;
if i=0 then
begin
textcolor(12);
writeln ('K=', k);
delay(50000);
goto code1;
end;
k:=k+1;
if k=p then
begin
p:=p+c;
pr:=pr+1;
clrscr;
writeln ('STATUS: ', pr, '%');
end;
end;
x:=round(i); textcolor(white); writeln ('Result X=', x); textcolor(yellow);
while x>=10 do
begin
str(x, st);
z:=length(st);
x:=0;
for k:=1 to z do
begin
start:=st[k];
val(start, pr, code);
if code<>0 then
begin
clrscr;
textcolor(12);
writeln ('CODE=', code);
write ('START=', start);
goto code1;
end;
x:=x+pr;
end;
end;
write ('Result=', x); readln
end.
Генерация случайного числа от 1 до 9 на Turbo Pascal. Свистоперделки прилагаются. Спешите поблевать! Делал сам. Такое вот задание попалось мне в лаб. работе на 4-м курсе. Хотя паскаль изучал лишь в школе, позиция препода уникальна: "Вы должны уметь всё!", хотя дрочим лишь C#, Java и асм.