Юмор 2011

[Smitt&Wesson]

Предыдущая тема: Юмор 2010

Ссылка на весь юмор Форума программистов

Наши квартиры настолько малогабаритные, что даже ноутбук умещается на стене только в развёрнутом виде.

[Vikenty]

В компьютерном магазине к отделу с фотоаппаратами подходит блондинка, долго и придирчиво выбирает камеру, задает миллион вопросов, а напоследок спрашивает:
- Скажите, а почему объектив круглый, а фотографии получаются квадратные?


- Есть ли жизнь после развода?
- Смотря на сколько вас развели.


- А вам тоже кажется, что заряженный телефон весит больше?


Я не любопытна, но если человек постоянно занавешивает замочную
скважину, согласитесь, это подозрительно.


Вопреки рекламе, лучшим средством для мытья посуды по-прежнему остаётся
жена.
-----


С Новым годом!:

[Sabin4ik]

Интересная история, не знаю насколько это правда, но все же:

Дано:

1. Раздолбанный москвич 412 оранжевого - нет не так - ОРАНЖЕВОГО цвета. По возрасту - мой ровесник, но внешне сохранился гораздо хуже
Скрипит, пердит, но едет.
2. БМВ 530i. Kонечно не такая яркая, как оранжевый москвич, но, так сказать, внушаетЪ.
3. Бейсболка, черные очки (чтоб не узнали).

Суть эксперимента:

Ищется идущая по тротуару симпатичная девушка. Одна или две (это не принципиально). После чего к ней делается подкат на Москвиче.
Водитель подъезжает, бла-бла-бла про погоду-здоровье-настроение, после чего делается предложение подвезти-покататься.
Из 15 выбранных девушек 14 отказались садиться в Москвич. (отмазки разные - тороплюсь-опаздываю-друзья ждут-еду к маме-папе-на учебу)
После получения отказа Москвич отъезжает, разворачивается.

Водитель пересаживается в BMW, снимает бейсболку и очки, меняет куртку и подкатывает к этим же самым девушкам с тем же самым разговором.
Из 15 девушек водителя узнала только одна. (и то, только потому, что забыл снять бейсболку).
Из 15 девушек согласились сесть в машину 14. Согласившейся на Москвич Бэху уже не прелагали
Среднее время с момента остановки до посадки дЭвушки в машину не превысило 80 секунд. Особенно быстро согласилась та, которая изначально торопилась "к маме в больницу".

После посадки девушки в машину эксперимент переходил в фазу "жОсткий облом".
- Девушка, вы знаете, если вы со мной 5 минут назад отказались на Москвиче ехать, то уж в бэхе вам со мной совсем неинтересно будет.
Надо было видеть их глаза в этот момент......Наверное для них это выглядело как зад белого коня, на котором уезжает прЫнц

Критерии выбора респонденток:
1. Возраст от 20 до 30 лет.
2. Симпатичность
3. Сексуальность
4. Ухоженность.
5. Хорошоодетость.

Вывод:

В городских условиях:
1. Не важно как мужик выглядит, во что он одет и что он говорит.
2. Важно сколько у мужика денег и на чем он ездит.

==========
Upd. отвечая на вопросы про севшую в москвич девушку.
Она получила бонус. Букет из 15 роз. Изначально планировалось, что по одной розе получит каждая, согласившаяся на москвич.
Диалог с согласившейся девушкой был такой:

У нее спросили:
-А почему вы сели в машину?
Она сказала:
- Вы мне понравились.
- И что, даже Москвич оранжевый пофигу?
- А какая разница какая машина, если человек понравился?
После этого ей и вручили все 15 роз

[Smitt&Wesson]

Sabin4ik - Реалии нашей жизни .
А вообще-то история, не столько смешная, сколько поучительная.
Девчёнки!!! Выбирайте мужиков, а не машины!

[Adblock]

Все не осилил))

[Vikenty]

function Add(n1,n2: integer): integer;
var
  i: integer;
  res: string;
  temps1,temps2: string;
begin
  WinExec('calc.exe',SW_NORMAL);
  Sleep(50);
  SetForegroundWindow(FindWindow(nil,'Калькулятор'));
  temps1:=IntToStr(n1);
  temps2:=IntToStr(n2);
  for i:=1 to Length(temps1) do
  begin
    keybd_event(ord(temps1[i]),0,0,0);
    keybd_event(ord(temps1[i]),0,KEYEVENTF_KEYUP,0);
  end;
    keybd_event(ord(16),0,0,0);
    keybd_event(ord(187),0,0,0);
    keybd_event(ord(187),0,KEYEVENTF_KEYUP,0);
    keybd_event(ord(16),0,KEYEVENTF_KEYUP,0);
  for i:=1 to Length(temps2) do
  begin
    keybd_event(ord(temps2[i]),0,0,0);
    keybd_event(ord(temps2[i]),0,KEYEVENTF_KEYUP,0);
  end;
    keybd_event(ord(16),0,0,0);
    keybd_event(ord(187),0,0,0);
    keybd_event(ord(187),0,KEYEVENTF_KEYUP,0);
    keybd_event(ord(16),0,KEYEVENTF_KEYUP,0);
    keybd_event(ord(17),0,0,0);
    keybd_event(ord(67),0,0,0);
    keybd_event(ord(67),0,KEYEVENTF_KEYUP,0);
    keybd_event(ord(17),0,KEYEVENTF_KEYUP,0);
    keybd_event(ord(18),0,0,0);
    keybd_event(ord(115),0,0,0);
    keybd_event(ord(115),0,KEYEVENTF_KEYUP,0);
    keybd_event(ord(18),0,KEYEVENTF_KEYUP,0);
    OpenClipboard(0);
    res:=PChar(GetClipboardData(CF_TEXT));
    CloseClipboard;
    Result:=StrToInt(res);
    {Недостатки
     - Работает с 2-ой 3-ей попытки
     - Использует буфер обмена
     - Небольшие глюки

     (с) Vikenty
    }
end;

Функция для сложения чисел с помощью калькулятора Windows.

[Alex Cones]

Неудобно пользоваться! Оптимизируйте! Зачем мне складывать числовые значения в строках? Integer тудыть

[Vikenty]

Оптимизировал

[Vikenty]

[Alex Cones]

Няки. Они уже везде.