Процедура Лес() Ёлочка = СоздатьОбъект("Ёлка"); Пока Ёлочка.Жива()=1 Цикл Ёлочка.Возраст=Ёлочка.Возраст+1; Если (ТекущееВремяГода()="Зима") или (ТекущееВремяГода()="Лето") Тогда Ёлочка.Стройность = 1; Ёлочка.Цвет = глПолучитьЦвет("Зеленый"); КонецЕсли; Метель = СоздатьОбъект("Метель"); Метель.ОткрытьФайл("D:\Music\NSYNC - Bye Bye Bye.mp3"); Система.Уснуть(1000); Метель.Воспроизвести(); Мороз = СоздатьОбъект("Мороз"); Мороз.Укутать(Ёлочка); Если Ёлочка.Замерзла()=1 Тогда Ёлочка.Жива(0); Возврат; КонецЕсли; Заяц = СоздатьОбъект("Заяц"); Заяц.Трусливый = 1; Заяц.Цвет = глПолучитьЦвет("Серый"); ЛК = Ёлочка.ЛеваяКоордината; ВК = Ёлочка.ВерхняяКоордината; Пока 1=1 Цикл Заяц.ЛеваяКоордината = ЛК; ЛК=ЛК+1; Заяц.НижняяКоордината = ВК + Окр(abs(sin(ЛК*pi/180)*10)); КонецЦикла; КомандаСистемы("wolf3d.exe /evil"); СкопироватьВБуфер(Ёлочка); Праздник = СоздатьОбъект("Праздник"); ВставитьИзБуфера(Ёлочка, Праздник); Ёлочка.ЗагрузитьСкинИзФайла("нарядная.jpg"); Дети = СоздатьОбъект("Дети"); Для й=1 По Ёлочка.Радость.РазмерСписка() Цикл Дети.Настроение=Дети.Настроение+Ёлочка.Радость.ПолучитьЗначение(й); КонецЦикла; КонецЦикла; КонецПроцедуры //Лес()
"В лесу родилась ёлочка" в интерпретации 1С
См. также
"250+ тысяч, в штат и работу пока не ищу": как изменился типичный 1С-ник в 2023 году
08.02.2024 22492 Neti 85
Адекватность работодателя. Как её определить? Часть 2. Процесс работы, от испытательного срока до увольнения
22.01.2024 3726 biimmap 67
Адекватность работодателя. Как её определить? Часть 1. Собеседование, заключение трудового договора
16.01.2024 5224 biimmap 99
Идеальное место работы для ЗУПера... Какое оно?! Часть 1. Негативные тенденции, ненужные знания.
27.11.2023 4350 biimmap 52