ник: akkorn
добавлю свои 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 'Все_плохо')
дабы без этого условия скучно
