Дано два отсортированных по возрастанию массива А и В. Необходимо вывести по возрастанию все элементы этих массивов.
Автор: ildarovich
ёж = 0;
Для уж = 0 По А.Количество() + В.Количество() - 1 Цикл
що = (уж - ёж) = В.Количество() ИЛИ ёж < А.Количество() И А[ёж] < В[уж - ёж];
Сообщить(?(що, "а" + ёж + "=" + А[ёж], "в" + (уж - ёж) + "=" + В[уж - ёж]));
ёж = ёж + що
КонецЦикла
ё = 0;
Для Сч = 1 По А.Количество() + В.Количество() Цикл
ж = (Сч - 1 - ё) = В.Количество() ИЛИ ё < А.Количество() И А[ё] < В[Сч - 1 - ё];
Сообщить(?(ж, "А[" + ё + "]=" + А[ё], "В[" + (Сч - 1 - ё) + "]=" + В[Сч - 1 - ё]));
ё = ё + ж
КонецЦикла
Канал FastCode 1C в Телеграм! Шаблоны кода, статьи, полезные советы, курсы по 1С (6К участников)
#1, 06 мая 2020 21:22
Отвратительный код. У вас буквы ограничены? Переменная "ё"? Это типа юмор?
#2, 06 мая 2020 21:29
Пробежался по публикациям. Понял - это не юмор, а профдеформация.Ок
#3, 07 мая 2020 09:33
(1) Bezeus, я не автор публикации. Если хотите написать автору, то в публикации есть ссылка на источник.
Также Вы можете сформировать свою библиотеку публикаций и ограничить поиск только по избранному, если какие-то публикации Вам не подходят по оформлению или по содержанию 😃
#4, 07 мая 2020 20:42
(3) FastCode, спасибо за совет. Но тут не хватает чёрных списков по авторам. Приведённых код на инфостарте писан примерно в 2014-ом году. И за 6 лет манера написания у этого человека не изменилась. Я не хочу видеть только свои публикации или только избранное. Тут скорее желание сберечь глаза и мозг от авторов разнообразного говнокода.
#5, 15 июня 2020 13:24
Ахах, олдскул!))