- 1
- 2
- 3
- 4
- 5
<table width="100%">
<tr>
<td><input name="res" title="add new resource"/><td>
</tr>
</table>
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+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 и асм.
+144.4
array...
Забавно перепутаны картинки и соответствующие им пакеты телевидения: кино, спорт, увлечения.
На пакете телевидения "кино" изображена девушка спортсменка (видимо плавчиха).
На пакете телевидения "спорт" изображен кулинар.
На пакете телевидения "увлечения" изображен лев, который может съесть.
)
Источник: akado.tv
+144.6
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.
+55.6
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'е.
+144
LOCALE: UTF-8
LANGUAGE: RUSSIAN
ОТКРТЫАЯ ЛИЦЕНЗИЯ С ОТСУТСТВИЕМ ГАРАНТИЙ.
ЭТА ЛИЦЕНЗИЯ НЕДЕЙСТВИТЕЛЬНА ПРИ ПЕРЕВОДЕ НА ДРУГИЕ ЯЗЫКИ.
ПРИЛОЖЕНИЕ QUOTER
Это приложение предоставляется конечному пользователю КАК ЕСТЬ без каких либо
гарантий. Автор(ы) приложения снимают с себя любую ответственность, включая
ответственность за неполадки, вызвавшие материальные/духовные потери.
Конечному потребителю ЗАПРЕЩАЕТСЯ продавать приложение/его модификации, без
согласия автора(ов).
Конченому потребителю ЗАПРЕЩАЕТСЯ выдавать себя за автора(ов) приложения.
Конченый потребитель ИМЕЕТ ПРАВО модифицировать приложение как ему вздумается.
файл LICENSE.TXT в одном говнопроэкте
+124.8
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) ?
+130.6
<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 суровая верстка