Чтение онлайн

ЖАНРЫ

Юмор разных лет

Палёк О.

Шрифт:

INT Age;

IF (Age > 50) IF (WORK is GOOD \!\! Alcohol is EMPTY) HEALTH is GOOD;

ELSE HEALTH is BAD;

Age!= RETURN;

DIE;

END;

Конечно, после 50 здоровье уже не то, особенно если вы злоупотребляли. С другой стороны, «Кто не курит и не пьет, тот здоровенький помрёт» — годы не возвратишь.

7. Оператор CONTINUE

Большей частью опять же используется в циклах. Рассмотрим пример:

INT Age;

INT Man;

INT Tired is NO;

IF (Age of Women > 30)

DO { SEX; IF (Man is Tired) { SUX; LOVE is NO;

BREAK;}

CONTINUE; }

Если женщине за тридцать и ее мужу где столько же или больше, то для него начинаются трудные времена. Если он будет постоянно ссылаться на усталость, то женщину ждет облом, неудовлетворенность в любви и вообще SUX. А если не будет, но вы полагаете, что будет RULEZ? А вот и нет. Есть только продолжение, продолжение и продолжение.

8. Оператор SWITCH

Переключаться в жизни необходимо постоянно. И вынуждено, и просто потому, отдых необходим. Следующий пример иллюстрирует тот простой факт, что отдых — смена деятельности.

DOUBLE Relax;

DO {WORK; WHILE (HEALTH is SO-SO)}

SWITCH (MONEY) { CASE ($1000): СANARY; CASE ($500): RelaxHouse;

CASE ($10): BEER;}

HEALTH is GOOD;

Вопрос, как подействуют Канары, Дом Отдыха или пиво на здоровье конкретного индивида, остается открытым. Мы надеемся, что оно улучшиться (даже от пива).

9. Оператор BREAK

BREAK — оператор аварийного выхода, чаще всего в негативном смысле (облом). Разберем пример:

CHAR WORK is Empty;

SEEK (WORK);

FOUND;

SWITCH (MONEY) { CASE ($10/Month): BREAK; CASE ($100/Month):

BREAK;

CASE ($1000/Month): RULEZ; }

Результат поисков работы может быть разным. Если зарплата меньше $1000 в месяц — SUX и BREAK (т. е. облом). Еще пример:

INT Glass;

IF (SUX) { DO Glass BREAK; }

RULEZ;

Рецепт улучшения настроения — битье посуды совершенно непонятен мужчинам. Однако, представьте, что на месте Glass (бокала) могли бы оказаться вы…

10. Оператор GOTO

GOTOоператор языка, которым пользователи Male C обмениваются с друг другом. Очень удобно: ваш шеф просит вас принести квартальный отчет, а вы посылаете его в $%# до переполнения его стека терпения. Другой случай: даже если вы очень торопитесь, советуем все же воспользоваться переходом, а не бежать сломя голову прямо через дорогу.

В новых веяниях (Male C++) считается, что этот оператор лишний. Однако разберем пример:

#DEFINE HOUSEKEEPING

#INCLUDE WASHING MACHINE

MAIN

{ FLOAT Thing is Dirty;

WHILE (Thing) { Wash;BAD; GOTO HELL;}

HELL: Shop \!\! Barbeshop \!\! Love-story reading; }

Понятно, что домашняя работа (в частности, стирка) бесконечна, и число грязных вещей (Thing) никогда не кончится. Поэтому необходимо использовать оператор безусловного перехода, которое в данном случае посылает эту работу в HELL. Когда его использовать, зависит от вашего настроения, однако если вы не хотите BAD с вашим мужчиной, старайтесь им не злоупотреблять.

Примечание: некоторые скажут, что в написанном примере можно было воспользоваться оператором BREAK. И что? Вы остановили работу, а не послали ее к черту и вам придется рано или поздно ее продолжить, причем наверняка переменная THING существенно увеличится.

Некоторые могут заметить странное определение метки «черта». Так ведь к черту посылается стирка, а вместо нее предлагается или поход по магазинам, или парикмахерская, или просто чтение любовных романов.

Еще один пример иллюстрирует тот факт, что женщина любит ушами:

CHAR Ask "Do you love me?";

Neverending:

IF (Ask is 'Yes') GOTO Neverending;

11. Условные операторы

Не случайно этот раздел мы отнесли ближе к концу. Смысл этого оператора слишком очевиден: жизнь полна компромиссов и выполнение ваших желаний постоянно наталкивается на массу условий. Надеемся, что наш язык поможет вам в решении ваших проблем. В следующем пункте мы предоставим вам несколько программ для самостоятельного изучения.

12. Примеры

1. Кандидат на брак

#UNDEFINE MAN

#INCLUDE ALL MAIN (Target is LOVE);

LONG CHAR Why =

«Зачем вы девушки, NICE LOVE, неCONST у них LOVE»;

INT MAN [Boss, Friend, Nice …]; INT LOVE [SEX, Flirt, LOVE];

SEEK (LOVE);

Поделиться с друзьями: