Улыбнитесь! ;-)

http://alenacpp.blogspot.com/search/label/robots

 

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.

 

http://groups.google.com/group/microsoft.public.excel/browse_thread/thread/2bcad1a1a4861879/2f8806d5400dfe22
что курят в микрософте?!

 

Код (Text):

1. // ёлочка.cpp //
2.  
3. int main(){  
4.   Лес.ёлочка.create();
5.   while(!лес.ёлочка.dead){
6.     лес.ёлочка.age++;
7.     if(зима||лето){
8.       лес.ёлочка.plain = true;
9.       лес.ёлочка.color = 0x00FF00;
10.     }
11.    
12.     метель.filename = "D:\\Music\\Underworld - Best Mamgu Ever.mp3";
13.     метель.open();
14.     метель.play();
15.     мороз.укутать(лес.ёлочка);
16.     GetMessage(&H, лес.ёлочка.handle, 0, 0);
17.     if(H.uint == WM_ЗАМЁРЗЛА)
18.       лес.ёлочка.dead = true;
19.   }
20.  
21.   лес.заяц.create();
22.   лес.заяц.трусливый = true;
23.   лес.заяц.color = 0x404040;
24.   int x = лес.ёлочка.left;
25.   int y = лес.ёлочка.top;
26.   while(x){
27.     лес.заяц.left = x++;
28.     лес.заяц.top = y * round( abs(sin(x*pi/180)*10) );
29.   }
30.  
31.   WinExec("wolf3d.exe /evil",0);
32.   лес.ёлочка.cuttoclipboard();
33.   Праздник.pastefromclipboard();
34.   Праздник.ёлочка.skin.loadfromfile("нарядная.jpg");
35.   for(int i=0;i<SizeOf(Праздник.ёлочка.радость);i++)
36.     Праздник.Дети.Настроение = Праздник.ёлочка.радость;
37. }

fix'd ,)

 

Comer_
А что не на асме? :]

 

Qorlum
так ведь не люблю я его .)

 

я уже представил суровый ассемблерный ооп с лесами и елочками)

 

Жили-были два программиста
У самого синего моря.
День и ночь в Интернете сидели
Под ник-неймами starik и staruha.
Как-то раз запустил starik поиск –
Пришел поиск с висящею ссылкой.
Долго лазал starik в Интернете,
Обнаружил загадочный сервер –
www.zolotaya.ribka.
Залез он с горя на сервер,
И спросил его модератор:
«Чего, starik, тебе надо?».
Не поверил starik, засмеялся:
«Ничего мне от тебя не надо».
Вышел и отправился в курилку,
А в курилке дымит его staruha.
Рассказал он про странный сервер,
А staruha бранит его, ругает:
«Возвратись, попроси поскорее
Монитор семнадцатидюймовый».
Возвратился starik на тот сервер,
Вновь спросил его модератор:
«Чего, starik, тебе надо?».
Робко starik отвечает:
«Просит монитор моя staruha,
У нас-то старый, тайваньский».
Отвечает ему модератор:
«Ты давай, starik, перегружайся,
Будет тебе новый мониторчик».
Удивился starik, перегрузился,
Побежал посмотреть, что творится.
Видит он – сидит его staruha
С монитором семнадцатидюймовым.
Пуще прежнего staruha бранится:
«Ты зачем монитор просил обычный?
Возвратись поскорей на тот сервер,
Попроси моноблок от Компака».
Возвратился starik на тот сервер,
Вновь спросил его модератор:
«Чего, starik, тебе надо?».
Робко starik отвечает:
«Пуще прежнего staruha бранится,
Просит моноблок от Компака».
Отвечает ему модератор:
«Ты давай, starik, перегружайся,
Будет вам моноблок от Компака».
Удивился starik, перегрузился,
Побежал посмотреть, что творится.
Видит он – сидит его staruha
С новым моноблоком от Компака.
Пуще прежнего staruha бранится:
«Для чего мне моноблок от Компака?
Возвратись поскорей на тот сервер,
Попроси модератора снова –
Не хочу быть юзером обычным,
А хочу работать в Майкрософте,
Чтоб Билл Гейтс у меня был курьером».
Возвратился starik на тот сервер,
Вновь спросил его модератор:
«Чего, starik, тебе надо?».
Робко starik отвечает:
«Пуще прежнего staruha бранится,
Хочет в Майкрософте работать,
И чтоб Билл Гейтс у нее был курьером».
Отвечает ему модератор:
«Ты давай, starik, перегружайся,
Будет бабка работать в Майкрософте».
Удивился starik, перегрузился,
Побежал посмотреть, что творится.
Видит он небоскребы до неба
И рекламные щиты вдоль дороги,
А на них – логотип Майкрософта
И портреты большие-пребольшие,
На портретах везде его staruha.
Мимо едет какой-то очкарик
На ободранном, грязном мопеде
И рекламные письма развозит.
Пошел starik к небоскребу,
Говорит: «Позовите старуху».
А секьюрити его не пускают.
Тут по рации пришло сообщенье –
Подхватили его и связали,
На двухсотый этаж притащили,
Где сидела в кресле staruha.
Пуще прежнего staruha бранится:
«Ты опять попросил слишком мало!
Не хочу я работать в Майкрософте,
А хочу модератором работать
На том сервере, что ты обнаружил,
– www.zolotaya.ribka».
Подхватили секьюрити беднягу,
Снова в лифт его затащили,
За порог проводили поскорее,
Подзатыльник на прощание дали.
Вновь starik обратился на сервер,
И спросил его модератор:
«Чего, starik, тебе надо?».
Отвечает старик со слезами:
«Пуще прежнего staruha бранится,
Хочет модератором работать
На том сервере, где я тебя встретил,
– www.zolotaya.ribka».
Ничего модератор не ответил,
Отключился и исчез, как не бывало.
На экране же надпись появилась –
Дескать, сервер переехал куда-то.
Удивился starik, перегрузился,
Побежал смотреть, что случилось.
Видит он – все стало как прежде,
И рыдает его бедная staruha
Перед старым тайваньским монитором.

 

http://protect.gost.ru/document.aspx?control=7&baseC=6&page=0&month=11&year=2009&search=&id=174999

 

Ну дак ведь там дата введения в действие в будущем, а не дата принятия

 

Shooshpanchik
Comer_

ну и чудо-песня)Мне это сильно пригодится)

 

http://urina-ru.narod.ru/prod.htm

 

рекламу в инете только что встретил

по ссыли в рекламе чтото похожее на дом быта. так что переживайте если жёнка в химчистку пощла

 

Сегодня видел в супермаркете картонную коробку, наклейка на которой гласила: Улитки фасованные.
А теперь вопрос: что находится в этом ящике?

 

Black_mirror
Макароны!!

 

KeSqueer
ты тоже его видел?

 

Black_mirror
Нет 8(
Но я довольно любопытный), заюзал гугл. Он мне сказал что фасофанными бывают только макароны.

 

а я видел в супермаркете фасованные улитки

 

Поражаюсь и смеюсь над тупостью микрософт.
Только что сидел писался с кем то в асе. Рядом стоит стакан с водой.
Потянулся к клавиатуре - пролил воду на нее.
Секундный ступор- через секунду понимаю, что произошло и резко переворачиваю клаву, чтобы из нее вылилась вода.
Отключаю шнурок от клавы.
Ну а в асе то надо продолжать писать..
Включаю экранную клавиатуру, которую до этого не доводилось еще включать(семерка х64) - она зависает. тупо окошко а в нем ничего.
нажимаю на клаве(да да именно отключенной) Ctrl+shift+esc? чтобы снять зависшую экранную клаву. через несколько нажатий до меня доходит, что клаву я отрубил. Потом доходит, что она скорее всего не робит потому что клава не подключена.
Подключаю клаву- появляются кнопки и отвисает экранная клавиатура.

В Общем это единственный случай, когда мне понадобилась экранная клавиатура - и сразу же не заработала. Наверное этот случай - самый распространненый для ее использования.А если она даже в этом случае не работает, нафига она вообще нужна тогда?=)

 

в ХП я грузил комп без клавы и работало