- 1
for i=1 to 10 do i=i+1- ошибка в дельфи .как отключить эту фишку
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
Всего: 1419
+152
for i=1 to 10 do i=i+1- ошибка в дельфи .как отключить эту фишку
улыбнуло)
+144
inline bool equDouble(const double& x, const double& y, const double p = 0.0001)
{
if (x == y)
return true;
double z = min(fabs(x), fabs(y));
return (fabs(x - y) < (p * z));
}
Константные ссылки на double
+147.8
$insideitem = ""; $list_id = ""; $title = ""; $price = 0; $price_amazon = 0;
$price_low = 0; $asin = ""; $type = ""; $status = ""; $qty = 0;
$isbn = ""; $asins = ""; $spage = 0; $list_id = ""; $exchange_id = ""; $title = ""; $price = 0;
$price_list = 0; $price_amazon = 0; $price_used = 0; $price_collect = 0; $price_low = 0;
$a_asin = ""; $image_url_s = ""; $image_url_l = ""; $type = ""; $status = "";
$qty = 0; $sellers_cnt = 0; $publisher = ""; $release_date = "";
в цикле вот такой кусок кода..
−160.8
begin -- воркэраунд для дерьмовой идеи хранить ROWID отмеченных записей в таблице XXX
-- так делать нельзя, ROWID вообще нельзя для этого использовать! Какой даун до этого додумался...
-- интересно посмотреть как эта херня работает когда одной формой одновременно пользуются несколько
-- юзеров. Бля слов нет одни эмоции. Один говнопрограммер додумался, теперь остальные должны
-- использовать этот говнокод! Хранить помеченные строки в таблице БД, чтобы потом их использовать
-- в других формах, я в аКуе!! Быбло система бля, быдлониточек и быдловеревочек! Сцуко, добавить к
-- каждой таблице нормальные синтетические первичные ключи, а не эту порнографию религия не позволяет?
-- Сдалать коллекцию, захуячить в нее первичные ключи помеченных строк и передавать ее в качестве параметра
-- нивъебаЦЦа какая охуенна сложная задача... Нет-же, хуярим это унылое говно везде. Хочешь заюзать
-- какую-нибудь функцию для массовой обработки либо хуярь это унылое говницо, либо пиши свою функцию
-- со своими шлюхами и блэкджеком! Сцуки, пойду дальше программить..
select ROWID
into tmp
from YYY
where PKID = :YYY.PKID;
insert into xxx(aaa, bbb)
values (tmp, new_mrk);
end;
Нашел в коде такой коммент :)
Видимо реализация задело кого-то за живое :))
+148.7
#define IsVowel(symb) (((symb == 'a') || (symb == 'e') || (symb == 'i') || (symb == 'o') || (symb == 'y') || (symb == 'u') || (symb == 'A') || (symb == 'E') || (symb == 'E') || (symb == 'I') || (symb == 'O') || (symb == 'U')) ? 1 : 0)
#define IsGood(word) (((!IsVowel(word[0])) && (IsVowel(word[strlen(word) - 1]))) ? 1 : 0)
Необходимо вывести в алфавитном порядке те слова, первая буква которых является согласной, а последняя гласной.
Как говорится, лучше проще и понятнее, чем умнее.
+139
case IDC_CHECK1:
UINT uChk = IsDlgButtonChecked(hWnd, IDC_CHECK1);
SetWindowPos(hWnd, (HWND)((uChk != 0) -2),0,0,0,0, SWP_NOSIZE | SWP_NOMOVE );
break;
индокод
−334
DECLARE FUNCTION ping$ (host$)
TYPE HostData
ip AS STRING * 15
nm AS STRING * 15
mac AS STRING * 16
END TYPE
DIM host(255) AS HostData
CLS
FOR i = 1 TO 255
k$ = INKEY$: IF k$ = CHR$(27) THEN EXIT FOR
s$ = "192.168.54." + MID$(STR$(i), 2)
CLS
SHELL "ping " + s$ + " -n 1 -w 300"
IF SCREEN(4, 1) = ASC("О") THEN k = k + 1: host(k).ip = s$
NEXT i
FOR i = 1 TO k
CLS
SHELL "nbtstat -A " + host(i).ip
s$ = ""
FOR n = 5 TO 19
s$ = s$ + CHR$(SCREEN(9, n))
NEXT n
FOR n = 9 TO 20
IF SCREEN(n, 5) = 32 THEN mcol% = n + 1: EXIT FOR
NEXT n
s$ = LTRIM$(s$)
host(i).nm = s$
s$ = ""
FOR n = 19 TO 35
s$ = s$ + CHR$(SCREEN(mcol%, n))
NEXT n
s$ = LTRIM$(s$)
host(i).mac = s$
NEXT i
OPEN "d:\ipreport.txt" FOR OUTPUT AS #1
FOR i = 1 TO k
PRINT #1, host(i).ip, host(i).nm, host(i).mac
NEXT i
CLOSE #1
FUNCTION ping$ (host$)
flag% = 0
CLS
IF ln% = 0 THEN ln% = 300
SHELL "ping 192.168.0." + host$ + " -n 1 -w " + STR$(ln%)
FOR i = 1 TO 10
t$ = CHR$(SCREEN(4, 42 + i))
IF t$ = "м" OR t$ = " " THEN EXIT FOR
sum$ = sum$ + t$
NEXT i
IF i > 1 THEN flag% = 1
ping$ = sum$
END FUNCTION
Фрагмент говнокода 10-летней давности, написанного мною на QuickBasic 4.5
Тулза должна доставать информацию о компах из сетки и класть в файл отчета. Делается это при помощи вызовов SHELL и последующем считывании результатов с экрана! Воистинну говноспособ, но какая изобретательность! Сам себе удивляюсь
Форматирование сохранено.
+176.1
$little=array('а','б','в','г','д','е','ё','ж','з','и','й','к','л','м','н','о','п','р','с','т','у','ф','х','ц','ч','ш','щ','ъ','ы','ь','э','ю','я','a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z');
$big= array('А','Б','В','Г','Д','Е','Ё','Ж','З','И','Й','К','Л','М','Н','О','П','Р','С','Т','У','Ф','Х','Ц','Ч','Ш','Щ','Ъ','Ы','Ь','Э','Ю','Я','A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z');
while($d1 = mysql_fetch_array($d)){
$name2 = str_replace($little, $big, $d1["name"]);
}
вместо ф-ции strtoupper()
+163.9
$max_Id_sql = mysql_query ( "SELECT max(obj_id) FROM objs" ); //obj_id в БД примерно такие: 1, 2, ..., 70, 80, 124, 4101, 4162, 4931
$row = mysql_fetch_row ( $max_Id_sql );
for($i = 0; $i <= $row [0]; $i ++) { //здесь получаем 4932 прохода, из них нам нужны не более 80 штук
if (array_key_exists ( $i, $sizes )) { //массив sizes содержит от 1 до 80 элементов
if ($sizes [$i]) { //видимо, автор не знал про foreach
...
$result = mysql_query ( "SELECT obj_name,obj_size,obj_parent FROM objs WHERE obj_id='$i'" );
//Для каждого $i выполняется отдельный SQL-запрос. Хорошо хоть, что он не 4932 раза выполняется в этом цикле
$objArray = mysql_fetch_array ( $result );
...
}
}
}
Комментарии мои.
Код - неизвестного программиста, работавшего до меня.
+152
#include <stdio.h>
void main()
{
printf("WTF? :)\n");
}
#undef main
int HAHA()
{
I();
return 0;
}
как же написать программу с
void main();
????
gcc ./main.cpp -Dmain=I -DHAHA=main -lstdc++
P.S. страуструп продолжает рвать на себе волосы от использования Cpp