Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+106
< !DOCTYPE html >
< html >
< head >
< title >Температура процессора< /title >
< meta http-equiv="content-type" content="text/html; charset=windows-1251" / >
< asm >
mov dx, 295h
mov al, 4Eh
out dx, al
inc dx
in al, dx
or al, 1
out dx, al
dec dx
mov al, 50h
out dx, al
in al, dx
mov #temperature, al
< /asm >
< /head >
< body >
< span id="temperature" >< /span >
< /body >
< /html >https://otvet.mail.ru/question/185609056
3_dar,
23 Декабря 2015
+106
for i:= 1 to 24 do read (a[i]);
if (abs(sqrt ((a[1]-a[4])*(a[1]-a[4])+(a[2]-a[5])*(a[2]-a[5])+(a[3]-a[6])*(a[3]-a[6]))) = abs(sqrt ((a[4]-a[7])*(a[4]-a[7])+(a[5]-a[8])*(a[5]-a[8])+(a[6]-a[9])*(a[6]-a[9]))) and
(abs(sqrt ((a[4]-a[7])*(a[4]-a[7])+(a[5]-a[8])*(a[5]-a[8])+(a[6]-a[9])*(a[6]-a[9]))) =abs(sqrt ((a[7]-a[10])*(a[7]-a[10])+(a[8]-a[11])*(a[8]-a[11])+(a[9]-a[12])*(a[9]-a[12]))) and
(abs(sqrt ((a[7]-a[10])*(a[7]-a[10])+(a[8]-a[11])*(a[8]-a[11])+(a[9]-a[12])*(a[9]-a[12]))) =abs(sqrt ((a[10]-a[1])*(a[10]-a[1])+(a[11]-a[2])*(a[11]-a[2])+(a[12]-a[3])*(a[12]-a[3])))and
(abs(sqrt ((a[13]-a[16])*(a[13]-a[16])+(a[14]-a[17])*(a[14]-a[17])+(a[15]-a[18])*(a[15]-a[18]))) = abs(sqrt ((a[13]-a[16])*(a[13]-a[16])+(a[14]-a[17])*(a[14]-a[17])+(a[15]-a[18])*(a[15]-a[18]))) and
(abs(sqrt ((a[13]-a[16])*(a[13]-a[16])+(a[14]-a[17])*(a[14]-a[17])+(a[15]-a[18])*(a[15]-a[18]))) =abs(sqrt ((a[16]-a[19])*(a[16]-a[19])+(a[17]-a[20])*(a[17]-a[20])+(a[18]-a[21])*(a[18]-a[21]))) and
(abs(sqrt ((a[16]-a[19])*(a[16]-a[19])+(a[17]-a[20])*(a[17]-a[20])+(a[18]-a[21])*(a[18]-a[21]))) =abs (sqrt ((a[19]-a[22])*(a[19]-a[22])+(a[20]-a[23])*(a[20]-a[23])+(a[21]-a[24])*(a[21]-a[24]))) and
(abs(sqrt ((a[19]-a[22])*(a[19]-a[22])+(a[20]-a[23])*(a[20]-a[23])+(a[21]-a[24])*(a[21]-a[24]))) =abs(sqrt ((a[22]-a[13])*(a[22]-a[13])+(a[23]-a[14])*(a[23]-a[14])+(a[24]-a[15])*(a[24]-a[15]))) and
(abs(sqrt ((a[22]-a[13])*(a[22]-a[13])+(a[23]-a[14])*(a[23]-a[14])+(a[24]-a[15])*(a[24]-a[15])))=abs(sqrt ((a[13]-a[1])*(a[13]-a[1])+(a[14]-a[2])*(a[14]-a[2])+(a[15]-a[3])*(a[15]-a[3]))) and
(abs(sqrt ((a[13]-a[1])*(a[13]-a[1])+(a[14]-a[2])*(a[14]-a[2])+(a[15]-a[3])*(a[15]-a[3]))) = abs(sqrt ((a[16]-a[4])*(a[16]-a[4])+(a[17]-a[5])*(a[17]-a[5])+(a[18]-a[6])*(a[18]-a[6])))and
(abs(sqrt ((a[16]-a[4])*(a[16]-a[4])+(a[17]-a[5])*(a[17]-a[5])+(a[18]-a[6])*(a[18]-a[6])))= abs(sqrt ((a[19]-a[1])*(a[19]-a[7])+(a[20]-a[8])*(a[20]-a[8])+(a[21]-a[9])*(a[21]-a[9]))) and
(abs(sqrt ((a[19]-a[1])*(a[19]-a[7])+(a[20]-a[8])*(a[20]-a[8])+(a[21]-a[9])*(a[21]-a[9]))) = abs(sqrt ((a[22]-a[10])*(a[22]-a[10])+(a[23]-a[11])*(a[23]-a[11])+(a[24]-a[12])*(a[24]-a[12])))) then writeln ('yes');
Readln;программа выясняет, является ли фигура с задаными 24 координатами кубом
Abbath,
20 Октября 2013
+106
$items = array('palto','noski','shapki');
$colors = array('red','black','white');
$materials = array('kozha','meh','aluminij');
foreach($items as $item) {
foreach($colors as $color) {
foreach($materials as $material) {
echo $item.'-'.$color.'-'.$material;
echo '</br>';
}
}
}
Задача:
Группа 1.
Пальто, Шапки, Носки
Группа 2.
Красный, Синий, Зеленый
Группа 3.
Мех, Кожа
Необходимы комбинации следующего вида, пример:
1) Пальто - красный - мех
2) Пальто - красный - кожа
3) Пальто - синий - мех
....
N) Носки - зеленый - кожа
При том условии, что группа занимает только свое место в порядке. Т.е. пальто не может быть 2-ым или 3-им словом в комбинации.
Vasiliy,
15 Июля 2013
+106
/*FuckingMagic*/
public static T[] GetT<T>(int _RepeatCount, Func<IExpression, T[]> _GetT, IExpression[] _Expressions) {
T[] __outbytes;
T[][] __tmp_bytes;
int __offset = 0, __tmp_sz = 0, __i = 0, __j = 0, __ex_l = _Expressions.Length;
__ex_l = _Expressions.Length;
__tmp_bytes = new T[__ex_l * _RepeatCount][];
for ( __j = 0; __j < _RepeatCount; __j++ )
for ( __i = 0; __i < __ex_l; __i++ )
__tmp_bytes[__j * __ex_l + __i] = _GetT(_Expressions[__i]);
__j = __tmp_bytes.Length;
for ( __i = 0; __i < __j; __tmp_sz += __tmp_bytes[__i].Length, __i++ ) ;
__outbytes = new T[__tmp_sz];
for ( __i = 0; __i < __j; __i++ ) {
__tmp_sz = __tmp_bytes[__i].Length;
Array.Copy(__tmp_bytes[__i], 0, __outbytes, __offset, __tmp_sz);
__tmp_bytes[__i] = null;
__offset += __tmp_sz;
}
return __outbytes;
}С тех пор я всегда пишу код трезвым.
kasthack,
14 Марта 2013
+106
using System;
using System.Windows.Forms;
using System.Collections.Generic;
using System.Text;
using System.Xml.Linq;
namespace SplitSpace {
class Program {
static void Main(string[] args) {
test();
}
static void test() {
if(testfun(0, 0, 3, 1020, 0.05*180/Utils.PI, 1, 40, 5.80020838542985, 5.80020838542985, 0.0125032560359095)) return;
if(testfun(0, 0, 3, 1020, 0.05*180/Utils.PI, 2, 5, 1.75, 9.85005209635745, 0.00156290700448869)) return;
if(testfun(0, 0, 3, 1020, 0.05*180/Utils.PI, 3, 1.5, 0.0375078144536192, 0.0375078144536192, 0.000468872101346607)) return;
if(testfun(0, 0, 3, 219, 0.00, 1, 15.000, 4.900000000, 4.900000000, 0.000000000)) return;
if(testfun(0, 0, 3, 219, 0.50, 1, 15.000, 4.900000415, 4.900000415, 0.000142791)) return;
if(testfun(0, 0, 3, 219, 5.00, 1, 15.000, 4.900415674, 4.900415674, 0.014290277)) return;
if(testfun(0, 0, 3, 219, 5.10, 1, 15.000, 4.900441130, 4.900441130, 0.014868082)) return;
if(testfun(0, 0, 3, 219, 5.90, 1, 15.000, 4.900683170, 4.900683170, 0.019903983)) return;
// Спустя 8369 строчек
// ...
// ...
// ...
if(testfun(2, 1, 4, 1420, 55.00, 2, 7.000, 5.512975201, 5.512975201, 1.316853521)) return;
if(testfun(2, 1, 4, 1420, 60.00, 2, 7.000, 5.817691454, 5.817691454, 1.558845727)) return;
if(testfun(2, 1, 4, 1420, 66.00, 2, 7.000, 6.589343466, 6.589343466, 1.708953962)) return;
if(testfun(2, 1, 4, 1420, 75.00, 2, 7.000, 7.385125168, 7.385125168, 2.367207113)) return;
if(testfun(2, 1, 4, 1420, 85.10, 2, 7.000, 8.438873737, 8.438873737, 3.248627191)) return;
if(testfun(2, 1, 4, 1420, 89.00, 2, 7.000, 8.848026526, 8.848026526, 3.610990132)) return;
if(testfun(2, 1, 4, 1420, 89.99, 2, 7.000, 8.932590260, 8.932590260, 3.699354242)) return;
if(testfun(2, 1, 4, 1420, 90.00, 2, 7.000, 8.932590181, 8.932590181, 3.700000000)) return;
MessageBox.Show("OK!");
}
static bool testfun(int dir, int coolType, int hotType, double dia, double angG, int angType, double Rad, double Tan1, double Tan2, double Bis) {
// тут всякие тесты
// ...
// ...
// ...
return false;
}
}
}
diimdeep ,
04 Марта 2013
+106
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
namespace data_base
{ public class DatA
{ public struct DATA
{ public struct Yslovie { public string yslovie; public bool ActivE;}
public Yslovie yslovie1;
public Yslovie yslovie2;
public Yslovie yslovie3;
public string deistvie;};
public DATA.Yslovie yslovie1 = new DATA.Yslovie();
public DATA.Yslovie yslovie2 = new DATA.Yslovie();
public DATA.Yslovie yslovie3 = new DATA.Yslovie();
public DATA[] BD = new DATA[5];
public void инициализация_БД()
{ BD[0].yslovie1.yslovie = "поставщик проверенный"; BD[0].yslovie1.ActivE = false;
BD[0].yslovie2.yslovie = "товар качественный"; BD[0].yslovie2.ActivE = false;
BD[0].yslovie3.yslovie = "цена приемлемая"; BD[0].yslovie3.ActivE = false;
BD[0].deistvie = "Поставщик подходит";
BD[1].yslovie1.yslovie = "поставщик давно на рынке"; BD[1].yslovie1.ActivE = false;
BD[1].yslovie2.yslovie = "жалоб на поставщика не было"; BD[1].yslovie2.ActivE = false;
BD[1].yslovie3.yslovie = null; BD[1].yslovie3.ActivE = false;
BD[1].deistvie = "поставщик проверенный";
BD[2].yslovie1.yslovie = "есть рекомендации от других заказчиков"; BD[2].yslovie1.ActivE = false;
BD[2].yslovie2.yslovie = "поставка производится в срок"; BD[2].yslovie2.ActivE = false;
BD[2].yslovie3.yslovie = "товар не получает дефектов в ходе транспатрировки"; BD[2].yslovie3.ActivE = false;
BD[2].deistvie = "жалоб на поставщика не было";
BD[3].yslovie1.yslovie = "товар сертифицирован"; BD[3].yslovie1.ActivE = false;
BD[3].yslovie2.yslovie = "товар прощел государственные экспертизы"; BD[3].yslovie2.ActivE = false;
BD[3].yslovie3.yslovie = null; BD[3].yslovie3.ActivE = false;
BD[3].deistvie = "товар качественный";
BD[4].yslovie1.yslovie = "цена чуть ниже чем у других поставщиков"; BD[4].yslovie1.ActivE = false;
BD[4].yslovie2.yslovie = null; BD[4].yslovie2.ActivE = false;
BD[4].yslovie3.yslovie = null; BD[4].yslovie3.ActivE = false;
BD[4].deistvie = "цена приемлемая";
}
public void Констотация_факта(int i)
{ switch (i)
{ case 1: if (BD[0].yslovie1.ActivE == true) BD[0].yslovie1.ActivE = false;
else BD[0].yslovie1.ActivE = true; break;
case 2: if (BD[0].yslovie2.ActivE == true) BD[0].yslovie2.ActivE = false;
else BD[0].yslovie2.ActivE = true; break;
case 3: if (BD[0].yslovie3.ActivE == true) BD[0].yslovie3.ActivE = false;
else BD[0].yslovie3.ActivE = true; break;
case 4: if (BD[1].yslovie1.ActivE == true) BD[1].yslovie1.ActivE = false;
else BD[1].yslovie1.ActivE = true; break;
case 5: if (BD[1].yslovie2.ActivE == true) BD[1].yslovie2.ActivE = false;
else BD[1].yslovie2.ActivE = true; break;
case 6: if (BD[1].yslovie3.ActivE == true) BD[1].yslovie3.ActivE = false;
else BD[1].yslovie3.ActivE = true; break;
case 7: if (BD[2].yslovie1.ActivE == true) BD[2].yslovie1.ActivE = false;
else BD[2].yslovie1.ActivE = true; break;
case 8: if (BD[2].yslovie2.ActivE == true) BD[2].yslovie2.ActivE = false;
else BD[2].yslovie2.ActivE = true; break;
case 9: if (BD[2].yslovie3.ActivE == true) BD[2].yslovie3.ActivE = false;
else BD[2].yslovie3.ActivE = true; break;
case 10: if (BD[3].yslovie1.ActivE == true) BD[3].yslovie1.ActivE = false;
else BD[3].yslovie1.ActivE = true; break;
case 11: if (BD[3].yslovie2.ActivE == true) BD[3].yslovie2.ActivE = false;
else BD[3].yslovie2.ActivE = true; break;
case 12: if (BD[3].yslovie3.ActivE == true) BD[3].yslovie3.ActivE = false;
else BD[3].yslovie3.ActivE = true; break;
case 13: if (BD[4].yslovie1.ActivE == true) BD[4].yslovie1.ActivE = false;
else BD[4].yslovie1.ActivE = true; break;
case 14: if (BD[4].yslovie2.ActivE == true) BD[4].yslovie2.ActivE = false;
else BD[4].yslovie2.ActivE = true; break;
case 15: if (BD[4].yslovie3.ActivE == true) BD[4].yslovie3.ActivE = false;
else BD[4].yslovie3.ActivE = true; break;}
}}}оставлю тут
Psilon,
04 Марта 2013
+106
for j := Low(Matrix) to High(Matrix) do begin
Caption := 'Processing ' + IntToStr(j) + ' of ' + IntToStr(High(Matrix));
for i := Low(Matrix[j]) to High(Matrix[j]) do begin
SendMessage(PictureWindow, WM_MOUSEMOVE, 0, MakeLPARAM(i,j));
S := GetCaption(TemperatureWindow);
Matrix[j,i].V := StrToFloat(S);
end;
end;
Я не смог раскрыть формат нужной программы, поэтому я извлекаю данные, бегая по окну с картинкой и считывая число из окна с температурой, лол.
Скорость считывания удручает, но пока альтернатив нет.
TarasB,
06 Февраля 2013
+106
if (curProperty[ele].ToString().ToLower() == "nan" || curProperty[ele] != m_MinimumDensity)
redrick,
31 Января 2013
+106
private void FlowMouseEnter(object sender, MouseEventArgs e)
{
var dt = DateTime.Now;
_currentTime = dt.Hour * 3600 + dt.Minute * 60 + dt.Second;
}запоминаем время наведения на кнопку
ArtFeel,
30 Ноября 2012
+106
function ReplaceUrl(txt: WideString): WideString;
var
i, j: integer;
tmp, Url: WideString;
begin
Result := '';
I := 1;
while I <= Length(txt) do
begin
tmp := '';
if WideSameText(tmp + txt[i]+txt[i+1]+txt[i+2]+txt[i+3]+txt[i+4]+txt[i+5]+txt[i+6], 'http://') or
WideSameText(tmp + txt[i]+txt[i+1]+txt[i+2]+txt[i+3]+txt[i+4]+txt[i+5]+txt[i+6], 'ed2k://') or
WideSameText(tmp + txt[i]+txt[i+1]+txt[i+2]+txt[i+3]+txt[i+4]+txt[i+5], 'ftp://') or
WideSameText(tmp + txt[i]+txt[i+1]+txt[i+2]+txt[i+3], 'www.') or
WideSameText(tmp + txt[i]+txt[i+1]+txt[i+2]+txt[i+3]+txt[i+4]+txt[i+5]+txt[i+6]+txt[i+7], 'https://') then
begin
Url := '';
for j := I to Length(txt) do
begin
if (txt[j] <> ' ') and (ord(txt[j]) < 255) then
Url := Url + txt[J]
else
Break;
end;
Result := Result + Format(C_HTML_URL, [Url, Url]);
I := J;
end else
begin
Result := Result + txt[I];
Inc(I);
end;
end;
end;http://www.bvbcode.com/code/vhk2e8rb-1638045
63F45EF45RB65R6VR,
21 Августа 2012
Follow us!