EAS Full Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору такая вот штука давно в мыле живет, при желании можно и до компилируемого состояния довести, думается Цитата:   program Елочка;   Begin    Лес.елочка.create();    While not Лес.елочка.dead do    Begin     лес.елочка.age := лес.елочка.age+1;     if зима or лето then     begin    лес.елочка.plain := true;      лес.елочка.color := cl_green;     end;         метель.filename:='D:\Music\NSYNC - Bye Bye Bye.mp3';     метель.open;     sleep(1000);         метель.play;       мороз.укутать(лес.елочка);     GetMessage(H, лес.елочка.handle, 0, 0);     if h.uint = wm_замерзла then dead := true;    end;      лес.заяц.create;  лес.заяц.трусливый := true;    лес.заяц.color := cl_gray;  x := лес.елочка.left;    y := лес.елочка.top;    While x  Begin     лес.заяц.left := x;     inc(x);         лес.заяц.top := y + round( abs(sin(x*pi/180)*10) );    end;    Winexec('wolf3d.exe /evil',0);    лес.елочка.cuttoclipboard;    Праздник.pastefromclipboard;  Праздник.елочка.skin.loadfromfile('нарядная.jpg');    For i:=1 to SizeOf(Праздник.елочка.радость) do     Прадзник.Дети.Настроение + Праздник.елочка.радость;   End.   Всего записей: 441 | Зарегистр. 18-07-2003 | Отправлено: 16:55 12-02-2005

igor_andreev Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору "песня о пиве" на разных языках программирования. Прикольно http://bolk.exler.ru/99.html Всего записей: 1705 | Зарегистр. 08-12-2004 | Отправлено: 05:16 13-02-2005

Prizrak7 Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору igor_andreev Цитата: http://bolk.exler.ru/99.html 42? Ха! А как насчет 621 варианта тех же самых bottles of beer on the wall? (кстати, начинающим программерам на C++ там будет чему поучиться!  ) Всего записей: 148 | Зарегистр. 22-09-2002 | Отправлено: 19:15 13-02-2005

igor_andreev Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Prizrak7 Впечатляет   Тут немного есть еще http://www.comedycode.com/ Тут приколы "около кода" http://c2.com/cgi/wiki?FunnyThingsSeenInSourceCodeAndDocumentation Программка Microsoft marketing strategy http://www.4to40.com/fastforward/index.asp?article=fastforward_may2001_windows98 Всего записей: 1705 | Зарегистр. 08-12-2004 | Отправлено: 06:11 14-02-2005

Prizrak7 Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору akaGM Цитата: вот ошибка, например   if зима or лето then   if зима and лето then   Э-э-э... А вы уверены что это ошибка?   (намек : (winter && summer) в данном контексте всегда будет false)   Разговорные значения "и"/"или" крайне редко мапируются на сходные булевы операторы один к одному (практически - никогда). Всего записей: 148 | Зарегистр. 22-09-2002 | Отправлено: 16:41 14-02-2005

Kalastiuz Junior Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору вем извесное выражение "как два байта переслать" =) Всего записей: 42 | Зарегистр. 01-07-2004 | Отправлено: 13:17 17-02-2005

ne_viens Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Настроение или пост? Всего записей: 1570 | Зарегистр. 01-11-2004 | Отправлено: 20:25 14-12-2014

opencl26 Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору конструкция? элементарно, ватсон, return - оператор,принимает int по объявлению main, getchar() - функция, возвращает int, с чего бы не? p.s. правда со времён dos intы сильно потолстели, но пока взлазят p.p.s. поднимется и return ;, правда с ворнингом Всего записей: 319 | Зарегистр. 17-09-2014 | Отправлено: 03:38 15-12-2014 | Исправлено: opencl26, 09:53 15-12-2014

protoror Full Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору вот тут та же тема но подробнее http://habrahabr.ru/post/186044/ Всего записей: 494 | Зарегистр. 23-11-2009 | Отправлено: 14:04 15-12-2014

xpin2013 Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Если я это, попал на подобие говнокода, он есть. Это было нужно чтобы Гуид сохранялся на dfm и в тексте можно было бы узнать гуид. Ну то есть переворачивание байтов с использованием одного байта памяти. Код:   function TGuidConverter.From(b: array of Byte): TGUID; //(b: array of Byte) //(a: Integer; b: Smallint; c: Smallint; d: Byte; e: Byte; f: Byte; g: Byte; h: Byte; i: Byte; j: Byte; k: Byte) //(a: Integer; b: Smallint; c: Smallint; d: array of Byte) //(g: string) //(a: Cardinal; b: Word; c: Word; d: Byte; e: Byte; f: Byte; g: Byte; h: Byte; i: Byte; j: Byte; k: Byte) {$IFNDEF CIL} type   ArgumentException = EConvertError; {$ENDIF} var   B2: Byte; begin   if High(B) <> 15 then     raise ArgumentException.Create(SByteArrayForGUID);   B2 := B[3];   B[3] := B[0];   B[0] := B2;   B2 := B[2];   B[2] := B[1];   B[1] := B2;   B2 := B[4];   B[4] := B[5];   B[5] := B2;   B2 := B[6];   B[6] := B[7];   B[7] := B2;   Result := Create(B);   FIID := Result; end;   Всего записей: 291 | Зарегистр. 16-01-2014 | Отправлено: 16:31 20-12-2014

xpin2013 Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Фильм Стрела 2014 сезон. - О о, я вижу этот вирус. - О боже - его нельзя остановить. - Почему? - Этот вирус написала я сама 5 лет тому назад. Всего записей: 291 | Зарегистр. 16-01-2014 | Отправлено: 20:41 21-12-2014

Страницы: 1 2

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » программистский юмор

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование