С днём программиста!

ЯП-то почени, погромист!)

Цитата (ЯщеR @ 13.09.2023 - 08:53)

А ЯП обязательно ломать было?

Это вопросы к программистам движка ЯПа, скорее

Всех причастных, с днем программиста!


Процедура Лес()
Ёлочка = СоздатьОбъект("Ёлка");
Пока Ёлочка.Жива()=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 По Ёлочка.Радость.РазмерСписка() Цикл
Дети.Настроение=Дети.Настроение+Ёлочка.Радость.ПолучитьЗначение(й);
КонецЦикла;
КонецЦикла;
КонецПроцедуры //Лес()

10 PRINT "Пашкет мудак"
20 GOTO 10
30 END
Это сообщение отредактировал SurferNet - 13 сен 2023 в 09:01

Поздно, уже начали.

Цитата (vikstep84 @ 13.09.2023 - 08:56)

Цитата (ЯщеR @ 13.09.2023 - 08:53) А ЯП обязательно ломать было? Это вопросы к программистам движка ЯПа, скорее

хреновая отмазка для среднестатистического пользователя. "а ты сделай чтоб было хорошо" - классика ж.

Мы программисты народ плечистый,
Нас не заманишь CISCOй цветистой,
До серверов нету нам дела,
Лишь бы база не полетела,
Наш алгоритм прочен и строен,
Светлых голов наших достоен,
Празднику нашему очень мы рады,
Нам бы покодить - вот вся награда.
Труд программиста сложен и тяжек,
Просто сизифов, без всяких натяжек,
Мы как атланты, держим все небо,
Программы давай, не надо нам хлеба! © П.П.Г.

Размещено через приложение ЯПлакалъ

Код на 1с 7.7 ))

ТС, ты знаешь, за 1С тут можно и по щщам отхватить.
Найдите разницу, что называется. Без обид.

Ардуинка?

Цитата (uniJap @ 13.09.2023 - 09:15)

ТС, ты знаешь, за 1С тут можно и по щщам отхватить. Найдите разницу, что называется. Без обид.

Вообще-то этот алгоритм был изначально на паскале, но я не нашел в сети.
Только извращенный 1Сный код...

Цитата (uniJap @ 13.09.2023 - 09:15)

ТС, ты знаешь, за 1С тут можно и по щщам отхватить. Найдите разницу, что называется. Без обид.

Выебывайтесь выебывайтесь, пожалуйста.
Сходите к бухам со своим Ява Скрипом и рассказите им, зачем он нужОн

Какой же уебищный синтаксис в тс
Размещено через приложение ЯПлакалъ

Цитата (anikifya @ 13.09.2023 - 11:22)

Цитата (uniJap @ 13.09.2023 - 09:15) ТС, ты знаешь, за 1С тут можно и по щщам отхватить. Найдите разницу, что называется. Без обид. Выебывайтесь выебывайтесь, пожалуйста. Сходите к бухам со своим Ява Скрипом и рассказите им, зачем он нужОн

Обломайся. ))) Они не на 1С сидят. Но тем программистам я бы ноги вырвал и в уши вставил. Настроение просто хорошее. ))

Цитата (Nulls @ 13.09.2023 - 11:29)

Какой же уебищный синтаксис в тс

семерка, Сэр!

Цитата (uniJap @ 13.09.2023 - 11:32)

Цитата (anikifya @ 13.09.2023 - 11:22) Цитата (uniJap @ 13.09.2023 - 09:15) ТС, ты знаешь, за 1С тут можно и по щщам отхватить. Найдите разницу, что называется. Без обид. Выебывайтесь выебывайтесь, пожалуйста. Сходите к бухам со своим Ява Скрипом и рассказите им, зачем он нужОн Обломайся. ))) Они не на 1С сидят. Но тем программистам я бы ноги вырвал и в уши вставил. Настроение просто хорошее. ))

Татаре чтоль? или удмурты?

Размещено через приложение ЯПлакалъ

Цитата (BigTaur @ 13.09.2023 - 09:06)

Мы программисты народ плечистый, Нас не заманишь CISCOй цветистой, До серверов нету нам дела, Лишь бы база не полетела, Наш алгоритм прочен и строен, Светлых голов наших достоен, Празднику нашему очень мы рады, Нам бы покодить - вот вся награда. Труд программиста сложен и тяжек, Просто сизифов, без всяких натяжек, Мы как атланты, держим все небо, Программы давай, не надо нам хлеба! © П.П.Г.

Вот про Cisco сейчас обидно было)))
ЗЫ: С праздником, кодеры! Не быдлокодьте, там!
Размещено через приложение ЯПлакалъ

Цитата (KAKTY3 @ 13.09.2023 - 08:05)

А если человек работал сисадмином,а потом программистом устроился ему какой праздник отмечать?

День землекопа
Размещено через приложение ЯПлакалъ

Цитата (KAKTY3 @ 13.09.2023 - 08:05)

А если человек работал сисадмином,а потом программистом устроился ему какой праздник отмечать?

Оба
Размещено через приложение ЯПлакалъ

Спасибо за напоминание, счас знакомых поздравлю.

Цитата (KAKTY3 @ 13.09.2023 - 08:05)

А если человек работал сисадмином,а потом программистом устроился ему какой праздник отмечать?

Оба, У меня согласно трудовой книжке и дипломам 36 профессиональных праздников в году

Цитата (KAKTY3 @ 13.09.2023 - 07:05)

А если человек работал сисадмином,а потом программистом устроился ему какой праздник отмечать?

И те, и другие. А если контора не ИТ-направления, то еще и праздник по профилю работы организации.
А я, если еще и с предыдущих работ все профильные праздники буду отмечать, так вообще не просохну никогда.

Цитата (vanonik @ 13.09.2023 - 08:58)

Всех причастных, с днем программиста! Процедура Лес() Ёлочка = СоздатьОбъект("Ёлка"); Пока Ёлочка.Жива()=1 Цикл Ёлочка.Возраст=Ёлочка.Возраст+1; Если (ТекущееВремяГода()="Зима") или (ТекущееВремяГода()="Лето") Тогда Ёлочка.Стройность = 1; Ёлочка.Цвет = глПолучитьЦвет("Зеленый"); КонецЕсли; Метель = СоздатьОбъект("Метель"); Метель.ОткрытьФайл("D:MusicNSYNC - Bye Bye Bye.mp3"); Система.Уснуть(1000); Метель.Воспроизвести(); Мороз = СоздатьОбъект("Мороз"); Мороз.Укутать(Ёлочка); Если Ёлочка.Замерзла()=1 Тогда Ёлочка.Жива(0); Возврат; КонецЕсли; Заяц = СоздатьОбъект("Заяц"); Заяц.Трусливый = 1; Заяц.Цвет = глПолучитьЦвет("Серый"); ЛК = Ёлочка.ЛеваяКоордината; ВК = Ёлочка.ВерхняяКоордината; Пока 1=1 Цикл Заяц.ЛеваяКоордината = ЛК; ЛК=ЛК+1; Заяц.НижняяКоордината = ВК + Окр(abs(sin(ЛК*pi/180)*10)); КонецЦикла; КомандаСистемы("wolf3d.exe /evil"); СкопироватьВБуфер(Ёлочка); Праздник = СоздатьОбъект("Праздник"); ВставитьИзБуфера(Ёлочка, Праздник); Ёлочка.ЗагрузитьСкинИзФайла("нарядная.jpg"); Дети = СоздатьОбъект("Дети"); Для й=1 По Ёлочка.Радость.РазмерСписка() Цикл Дети.Настроение=Дети.Настроение+Ёлочка.Радость.ПолучитьЗначение(й); КонецЦикла; КонецЦикла; КонецПроцедуры //Лес()

1C потянулись
Размещено через приложение ЯПлакалъ