юмор

[crazy horse]

В дополнение к предыдущему посту: (сперто с live4fun)
s3img_13585366_2179_9.jpg

[ROD]

Суровая российская сельдь))

[crazy horse]

Челябинская. Известна в народе, как желтый волосатик.

[Levsha100]

http://www.lisin.ru/i/google_classic_500.jpg

[unicode]

Маленькая утилита для начинающих программистов

//***********************************************
// Program QUESTION v0.1
// www.programmersforum.ru
// Идея - bill_gates (http://programmersforum.ru/member.php?u=51808)
// Реализация - unicode (http://programmersforum.ru/member.php?u=41852)
// Все права защищены
// Любое использование в ненужных целях запрещено :)
//***********************************************

program question;

type
 Google = class(TSearchEngine);
 ProgrammersForum = class(TForum);
 Question = class(TBeginnerProgramer);

begin
 if Question.Create := true then
  begin
   if Google.Search(Question.Text) := false then
    begin
     ProgrammersForum.Create(Topic) := True;
    end;
   else
    begin
     Question.Create := False;
    end;
  end;
end.

[vovk]

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

Маленькая утилита для начинающих программистов

//***********************************************
// Program QUESTION v0.1
// www.programmersforum.ru
// Идея - bill_gates (http://programmersforum.ru/member.php?u=51808)
// Реализация - unicode (http://programmersforum.ru/member.php?u=41852)
// Все права защищены
// Любое использование в ненужных целях запрещено :)
//***********************************************

program question;

type
 Google = class(TSearchEngine);
 ProgrammersForum = class(TForum);
 Question = class(TBeginnerProgramer);

begin
 if Question.Create := true then
  begin
   if Google.Search(Question.Text) := false then
    begin
     ProgrammersForum.Create(Topic) := True;
    end;
   else
    begin
     Question.Create := False;
    end;
  end;
end.

чтото мне подсказывает что после

 if Question.Create := true then

и этого

 if Google.Search(Question.Text) := false then

вам действительно придётся делать это

 ProgrammersForum.Create(Topic) := True;

с заголовком "почему не работает?"

[DeKot]

Ну тупой я. Да.
Но даже в юморе конструкция if...then не терпит :=
To unicode - и в чем юмор?

[vasek123]

Если бы WINDOWS была написана в Одессе

1. После загрузки Windows появляется надпись "Таки я загрузилась!" и в течение 15 минут играет мелодия "Семь сорок", которую нельзя ни приостановить, ни отменить.
2. При нажатии на клавишу "Старт" появляется сообщение "Ну, шо ты тут клацаешь, пошел бы лучше в футбол поиграл...".
3. Клавиатурный драйвер автоматически преобразовывает букву "г" в букву "х", а букву "ч" в букву "ш".
4. При открытии нового документа по умолчанию ему присваивется название "Шоб ты был здоров.doc".
5. При подсоединению к Интернету появляется надпись: "Шо ты занимаешь линию? А вдруг мама позвонит?"
6. При открытии любой папки или файла появляется предупреждающее сообщение: "И оно тебе туда надо? "
7. При инсталяции любой программы появляется сообщение: "Ну и куда ты собираешься писать, поц? Ты купил новый харддрайв?"
8. Размеры файлов указываются с точностью до бита, а вместо таймера в панели встроен счетчик потребления электроэнергии за время работы компьютера.
9. При вызове справочной системы всегда появляется инструкция по приготовлению фаршированной рыбы.
10. Каждые 30 минут автоматически включается savescreener с надписью: "Ой-вей, я устала..."

[crazy horse]

[:||||:] Но веселый. Праздничный, я бы сказал

[ROD]

5. При подсоединению к Интернету появляется надпись: "Шо ты занимаешь линию? А вдруг мама позвонит?"

Уже практически не актуально.