Хумор

← →
REA (2002-09-19 15:54) [0]

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.

← →
lenin (2002-09-19 15:56) [1]

Хоть не по теме, но прикольно.

← →
BOA_KAA (2002-09-19 15:58) [2]

По-моему, я уже где-то это видел...

← →
Слесарь Матерящийся (2002-09-19 16:13) [3]

Надо в FAQ поместить

← →
pasha_golub (2002-09-19 18:09) [4]

КЛАССНО!!!

← →
Valentino (2002-09-19 18:15) [5]

Супер! Я заценил!

← →
TAndrew (2002-09-19 18:34) [6]

это он содрал c форума Light Alloy
http://www.neurosoft.ru/alloy/i_forum.php
;)

← →
XED (2002-09-20 02:04) [7]

Хоть содрал, но очень прикольно!

← →
Lego (2002-09-20 02:18) [8]

Нечто подобное есть у меня но покороче :))
Я не автор и чесно говоря непомню откуда это у меня :)
Код под C++ :))

while (!die($I)) {
working(86400);
sleep(0);
}

← →
aus (2002-09-20 03:58) [9]

Я пробовал, ничерта не работает...

← →
VAleksey (2002-09-20 07:47) [10]

не так пробовал :))

ООП в действии !

← →
TAndrew (2002-09-20 12:33) [11]

> while (!die($I)) {
> working(86400);
> sleep(0);
> }

на sleep времени не останется!
так слишком быстро цикл закончится ;)
надо хотя бы working(28800)

← →
Андрей Прокофьев (2002-09-20 12:37) [12]

А вот это что?
(bb || (!bb))

← →
Вася Пупкин (2002-09-20 12:44) [13]

2 Андрей Прокофьев Гамлет....

← →
Lego (2002-09-21 00:22) [14]

Насчет этой функции если кто непонял перевожу :)
while (!die($I)) {
working(86400);
sleep(0);
}
"Повторять пока не умрем за интигерную сумму $ :) работать 86400(24 часа в сутки) спать 0 секунд"

Эх вы сразу принялись переводить и принимать все всерьез :))))

← →
Asteroid (2002-09-21 01:00) [15]

Есть еще один пример кода:
while (not keyboard.broken) do WaitForUserInput();

Хумор Найти похожие ветки