1С Разработчик
Техническое задание:
бобры загрызли буратино
он весь в березовом соку
лежит в траве раскинув руки
и дятлы кружатся над ним...
Функция Загрызли(Буратино)
СлучайноТакВышло = Новый ГенераторСлучайныхЧисел();
Бобры.Грызли = СлучайноТакВышло.СлучайноеЧисло();
Буратино.БерёзовыйСок = СлучайноТакВышло.СлучайноеЧисло();
Буратино.ПокрытиеСоком = 0;
Пока Бобры.Грызли < Буратино.БерёзовыйСок Цикл
Буратино.БерёзовыйСок = Буратино.БерёзовыйСок - Бобры.Грызли;
Буратино.ПокрытиеСоком = Буратино.ПокрытиеСоком + Бобры.Грызли;
КонецЦикла;
Возврат Буратино;
КонецФункции // Загрызли(Буратино)
Функция РукиРаскинуты(Буратино)
Возврат Буратино.ПокрытиеСоком > 0;
КонецФункции // РукиРаскинуты(Буратино)
Функция ДятлыКружатНад(Буратино)
Возврат РукиРаскинуты(Буратино);
КонецФункции // ДятлыКружатНад(Буратино)