юмор

[Viteef]

Сообщение от SAS888

Хочу поделиться шуткой, которую увидел на одном из форумов по электронике.
Итак, один форумчанин хвастается, мол изобрел быстрый интерфейс, позволяющий передавать данные по кабелю со скоростью 4Гб в секунду. Но, только длина кабеля (по понятным причинам) не более 1 метра.
Ответ одного из обсуждавших тему (да простит меня автор за возможно неточное цитирование):
"Берем жесткий диск емкостью 4 Гб (можно и больше), кидаем на 1 метр. Летит быстрее 1 секунды (проверено)."

По мотивам хабра&баша http://bash.org.ru/abyssbest?text=revolution_here

[Alex Cones]

Даже Punto Switcher запутывается в том, что я набираю:

[Altera]

Сообщение от Alex Cones

Даже Punto Switcher запутывается в том, что я набираю:

У Punto Switcher-а иконка в трее как-то на оборот реализована... Не однократно замечал....

[Alex Cones]

Программа выноса мусора.
(Оказывается не все так просто...)

Program TrashOut;
Uses
   Human, House, HouseConst;

Var
  Temp  : SmallInt;
  LiftW : Boolean = TRUE;
  Dress : Byte  = 1;
Function Step(M : TDirection) : Boolean; StdCall;
   External 'Human32.dll' Name 'MakeStep';
Function GetTemp : SmallInt; StdCall;
   External 'Weather32.dll' Name 'GetWeatherTemperature';

Procedure GetTrash;
 Begin
  Step(DirectionTo(Trash));
  Take(Trash); 
 End;

Procedure GetDress(T : SmallInt);
 Begin
  Case T of
  -50..-10 : ClotheIn(Fur_Coat);
  -9 ..0   : ClotheIn(Jacket);
  0  ..15  : ClotheIn(Shirt);
  Else
   Dress := 0
  End;
 End;

Procedure GetOut;
 Begin
  Step(DirectionTo(Table));
  Take(KeyI);
  Take(KeyO);
  Step(DirectionTo(Door[Inner]));
  Door[Inner].OpenDoor(KeyI);
  Step(DirectionTo(Corridor));
  Door[Inner].CloseDoor(KeyI);
  Step(DirectionTo(Door[Outer]));
  Door[Outer].OpenDoor(KeyO);
  Step(DirectionTo(Staircase));
  Door[outer].CloseDoor(KeyO);
  Step(DirectionTo(Elevator));
  Elevator.Call;
  Wait(1 * 60 * 1000);
  Try
     Step(DirectionTo(Elevator.Cabin);
     Elevator.MoveTo(1);
     Wait(2 * 60 * 1000);
     Step(Forward);
  Except
     LiftW := FALSE;
     While Not(You.LookAround <> OnFloor(1) do
      Step(DirectionTo(DownStair);
  Step(DirectionTo(OutDoor);
 End;

Procedure GetIn;
 Begin
  Step(DirectionTo(You.YourHouse));
  If OutDoor.Open <> TRUE Then OutDoor.OpenDoor;
  Step(DirectionTo(You.YourHouseHall));
  OutDoor.CloseDoor;
  If LiftW = TRUE Then
   Begin
    Elevator.Call;
    Wait(1 * 60 * 1000);
    Step(DirectionTo(Elevator.Cabin);
    Elevator.MoveTo(You.YourFloor);
    Wait(2 * 60 * 1000);
    Step(Forward);
   End
  Else
   Begin
    While Not(You.LookAround <> OnFloor(You.YourFloor)) do
     Step(DirectionTo(UpStair);
   End;
  Step(DirectionTo(Door[Outer]));
  Door[Outer].OpenDoor(KeyO);
  Step(DirectionTo(Corridor));
  Door[Outer].CloseDoor(KeyO);
  Step(DirectionTo(Door[Inner]));
  Door[Inner].OpenDoor(KeyI);
  Step(DirectionTo(Room));
  Door[Inner].CloseDoor(KeyI);
 End;

 Begin
  GetTrash;
  Temp := GetTemp;
  GetDress(Temp);
  GetOut;
  Step(DirectionTo(TrashCan));
  If TrashCan.Open <> TRUE Then TrashCan.OpenCan;
  Put(Trash,TrashCan);
  GetIn;
  If Dress <> 0 Then Put(You.Dress, WarrRobe);
  {$IFDEF WIFE} Say('Я вынес мусор') {$ENDIF}
 End;
 // (с) Alex Cones 2009

[raxp]

винчестеромобили... второе дыхание носителей информации

[Arigato]

Интересно, почему в банере Гугла внизу достаточно часто появляется реклама комплекта женского белья всего за 299 р.? Зачем программистам женское бельё

[v01d]

Наверно, потому что в разделе "Помощь студентам" много женских ников

[ROD]

А мож белье особое, программируемое.

[Arigato]

Сообщение от v01d

Наверно, потому что в разделе "Помощь студентам" много женских ников

Супер акция: купи комплект женского белья и получи решение задачи в подарок!

[ROD]

Сообщение от Arigato

Супер акция: купи комплект женского белья и получи решение задачи в подарок!

Хм... хорошая мысль... *взял труселя из запачканой кучи, пофиг что мусор, они же от "Гучи"*