-
Лучший говнокод
- В номинации:
-
- За время:
-
-
+107
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
for i:=1 to 8 do
begin
case i of
1 : begin
xx := 0;
yy := -LUCH_LEN;
end;
2 : begin
xx := round(LUCH_LEN/sqrt(2));;
yy := -round(LUCH_LEN/sqrt(2));;
end;
3 : begin
xx := LUCH_LEN;
yy := 0;
end;
4 : begin
xx := round(LUCH_LEN/sqrt(2));;
yy := round(LUCH_LEN/sqrt(2));;
end;
5 : begin
xx := 0;
yy := LUCH_LEN;
end;
6 : begin
xx := -round(LUCH_LEN/sqrt(2));;
yy := round(LUCH_LEN/sqrt(2));;
end;
7 : begin
xx := -LUCH_LEN;
yy := 0;
end;
8 : begin
xx := -round(LUCH_LEN/sqrt(2));
yy := -round(LUCH_LEN/sqrt(2));
end;
end;
вот такое странное сочетание...
dvdking,
23 Сентября 2011
-
+107
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
char *getcwd(char *buf, size_t size)
{
if (!buf)
{
errno = EFAULT;
return NULL;
}
if (size < 2)
{
errno = ERANGE;
return NULL;
}
buf[0] = '.';
buf[1] = '\0';
return buf;
}
-- Где мы находимся, Сэр?
-- В корзине воздушного шара.
P.S. Ссылка на коммит - http://git.altlinux.org/people/ldv/packages/?p=girar.git;a=commit;h=3ff0ce7b00907ba1 dce6406f6
raorn,
05 Сентября 2011
-
+107
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
using System;
unsafe struct A
{
static uint tmp;
static int * [] vars;
static void Main()
{
int a = 10, b = 5;
uint[] data = Swap((uint)&a, (uint)&b);
vars = new int * [data.Length];
for (int i = 0; i < data.Length; i++)
{
vars[i] = (int*)data[i];
};
}
static uint[] Swap(uint a, uint b)
{
tmp = a;
a = b;
b = tmp;
return new uint[] { a, b };
}
};
А ничего комментировать не буду :) Сами оценивайте степень говнокодости :)
sexy-schmeksy,
16 Июля 2011
-
+107
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
if(PlayerInfo[killerid][pMember] != 5 && PlayerInfo[killerid][pLeader] != 5 && PlayerInfo[playerid][pMember] == 5 || PlayerInfo[playerid][pLeader] == 5)
{
PlayerInfo[killerid][pExp] ++;
PlayerInfo[killerid][pExp] ++;
PlayerInfo[killerid][pExp] ++;
PlayerInfo[playerid][pExp] --;
PlayerInfo[playerid][pExp] --;
SendClientMessage(playerid, COLOR_RED, " Ïîòåðÿíî 2 î÷êà îïûòà");
SendClientMessage(killerid, COLOR_GREEN, " Ïîëó÷åíî 3 î÷êà îïûòà");
}
else if(PlayerInfo[killerid][pMember] != 6 && PlayerInfo[killerid][pLeader] != 6 && PlayerInfo[playerid][pMember] == 6 || PlayerInfo[playerid][pLeader] == 6)
{
PlayerInfo[killerid][pExp] ++;
PlayerInfo[killerid][pExp] ++;
PlayerInfo[killerid][pExp] ++;
PlayerInfo[playerid][pExp] --;
PlayerInfo[playerid][pExp] --;
SendClientMessage(playerid, COLOR_RED, " Ïîòåðÿíî 2 î÷êà îïûòà");
SendClientMessage(killerid, COLOR_GREEN, " Ïîëó÷åíî 3 î÷êà îïûòà");
}
fail
Romanius,
25 Мая 2011
-
+107
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
function HexToInt(s: string): integer;
label
gte;
var
tempt: string;
i: integer;
begin
tempt := '';
if s = '' then
begin
HexToInt := 0;
goto gte;
end;
for i := 1 to Length(s) do
begin
tempt := tempt + IntToHex(Ord(s[i]), 2);
end;
HexToInt := StrToInt('$' + tempt);
gte:
end;
Ряд гениальных решений из-за незнания особенностей языка.
Честно взято с: http://www.delphisources.ru/pages/faq/base/hex_to_int.html
Честно написано автором: Перегинец Иваном ( [email protected] )
miLord-Corwin,
17 Мая 2011
-
+107
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
procedure TFCar.Button3Click(Sender: TObject);
begin
gUpload.Visible:= True;
Button3.Enabled:= False;
bClear.Enabled:= False;
bAdd.Enabled:= False;
bCreateOrder.Enabled:= False;
bCloce.Enabled:= False;
mysleep(100);
sleep(10000);
ShowMessage('sleep off');
end;
----------------
procedure mysleep(i:Integer);
var
z:Integer;
begin
for z:=0 to i do
begin
Sleep(5);
Application.ProcessMessages;
end ;
end;
---------------
это немного помогло решить проблему... кнопки становятся неактивными до выполнения sleep(10000);
Немного классического торможения двигателем...
bugmenot,
21 Апреля 2011
-
+107
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
static void Main(string[] args)
{
int a = int.Parse(Console.ReadLine());
int b = int.Parse(Console.ReadLine());
int c = int.Parse(Console.ReadLine());
Math.Cos(double x) = (b * b + c * c - a * a) / (2 * b * c);
Math.Cos(double x)=i;
if(-1>i>0) Console.WriteLine("Треугольник тупоугольный");
if()
}
Не столько смешно, сколько хочется плакать от тупоугольности таких вот студентов...
FMB,
20 Марта 2011
-
+107
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
procedure delonefromend(var p:TPointer);
var i,n:integer; t:TPointer;
begin
i:=1;
t:=p;
while p<>nil do
begin
t:=t^.next;
i:=i+1;
end;
for n:=1 to i do p:=p^.next;
dispose(p^.next);
end;
Для того чтобы добраться до последнего элемента в списке, сначала циклом подсчитывается в i их количество, а потом другим циклом от 1 до I указатель p перемещается на i элементов, тобишь в конец.
anigon,
03 Марта 2011
-
+107
- 1
- 2
- 3
- 4
- 5
procedure proc(a, b: integer);
begin
end;
proc(1, 2,); // лишняя запятая после 2 !!!!11
на Delphi7 компилится и работает!!! Я в шокенах, 8 лет на Делфи и не знал...
StriderMan,
14 Февраля 2011
-
+107
- 1
- 2
OpenDialog1.Execute;
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
Угадайте, что будет, если в опендиалоге нажать "Отмена".
PEMOHT,
16 Декабря 2010