|
|
|
|
|
|
|
|
|
|
| |
|
|
| | 4 колеса возят тело а 2 душу.
- а где вы видели чистого мотоциклиста?  | |
| |
| |
|
|
| |
|
|
| | добавлю свои 5 копеек:
в опр.переменных:
DIM Воскресенье as Счетчик_Циклический_END
DIM Разнообразие_Вкл as Булево
DIM Разнообразие_Тип as Развлечение_типа
DIM Const На_утро_понедельника_если_что as Кефир = 1пакет
и тело процедуры необх изменить чуть:
=====================================
Разнообразие_Вкл = ОпределитьБулево (NVL (Настроение_супруги, 0))
Разнообразие_Вкл = ОпределитьБулево (Округлить (1 * (СлучайноеЧисло Xor Разнообразие_Вкл)))
IF Разнообразие_Вкл Then
Select case Разнообразие_Тип
case Шашлык: Разнообразие_Тип = Шашлык_на_берегу_чистого_озера
case Пляж: Разнообразие_Тип = Пляж_на_берегу_моря-озера-водоема
case Банька: Разнообразие_Тип = Банька_с_бултыхом_и_вечером_удить_рыбу_или_стрелять_по_банкам
case Грибы: Разнообразие_Тип = ПоГрибы_с_перекусом_на_свежем_воздухе
case Яхта: Разнообразие_Тип = А_у_нас_с_друзьями_не_плохая_лодочка_есть_скрип_скрип
case Else: Разнообразие_Тип = Все_как_обычно_или_пожелания_принимаются
end select
End if
FOR ДеньХХ = Счетчик_Циклический TO Счетчик_Циклический_END
Select case S_Kem_Vipit
...
End select
S_Kem_Vipit = S_Kem_Vipit КОНКАТЕНАЦИЯ Разнообразие_Тип
NEXT ДеньХХ
|
Ну вообще можно однозначно написать
Разнообразие_Вкл = ОпределитьБулево(Мое_Настроение * Погода * Not 'Все_плохо')
дабы без этого условия скучно 
 | |
| |
| |
| |
|
|
| |
дабы без этого условия скучно
|
довольно широко распространенное заблуждение | |
| |
| |
| |
|
|
| | Гхм, не хочу спорить, однако ж "пить, не развлекаясь, под одеялом, к примеру" не кулл 
Я подразумевал, что помимо "действа" буит шашлык/ банька/ яхта (скрип-скрип).... | |
| |
| |
| |
|
|
| | 06:00 утро. бёрнул*. протёр глаза.
06:15 твитнул* о начале нового дня и о том, что бёрнул.
07:00 посёрфил* новостную ленту, покликал* на фотки с "раскрытыми темами".
07:00 снова бёрнул, вышел, сел в машину, бибикнул и поехал на работу.
08:00 твитнул об этом и о том, что стою в пробке.
08:30 тяпнул* кофе. посмотрел на автомобильный тетрис на парковке.
09:00 накликал вход в систему на рабочем месте.
10:00 аська накликала мне встречу с шефом на 11:00
11:00 шеф сказал, что если я буду много твиттеть,
то он отфейсбучит, а если это не поможет,
то отжжхает меня по полной программе,
без выходного пособия.
11:01 пока слушал шефа, под столом, втихаря, твитнул об этом.
11:45 вернулся от шефа. накнопал пару отчётов. кликнул - отправить.
----------
бёрнуть* - выпить баночку BURN
твитнуть* - написал в Twitter
посёрфить* - просмотреть новости в ИНтернет
покликать* - перейти по ссылке или просто нажать на кнопку мыши | |
| |
| |
| |
|
|
| | Сленг современного человека. Для представления реакции в 80-х достаточно показать это бабушке (лучше в глухой деревеньке, ибо в городе бабушки не те пошли..)  | |
| |
| |
