Имя: Пароль:
JOB
Работа
Пример кода которым вы гордитесь...
,
0 Мистикан
 
05.09.18
13:54
Недавно одна компания перед собеседованием попросила прислать кусок кода которым, я цитирую "Вы гордитесь".
Я даже растерялся.
А какие еще забавные ситуации у вас бывали при поиске работы?
48 spiller26
 
05.09.18
15:58
Они идеальные и я горжусь этим (сорказм)
Я не знаю что вам даже выбрать...
49 Малыш Джон
 
05.09.18
15:59
(47) "Ой, не знаю... У меня всё такое идеальное.."
50 Dotoshin
 
05.09.18
16:03
(0) Ну так все просто:)))
Сообщить("Я горжусь")
51 pavig
 
05.09.18
16:07
(7)
По памяти написал?)
52 bolobol
 
05.09.18
16:07
(43) Тут будет ошибка: значение отсутствует чуть более, чем полностью.

Если уж на то пошло:
Процедура Что-тоТамПриЗаписи(Источник...
   #Если Клиент Тогда
      Источник= Документы.Какой-тоДокумент.СоздатьДокумент();
   #КонецЕсли
КонецПроцедуры
53 Fragster
 
гуру
05.09.18
16:09
(52) норм, но вариант
   #Если Клиент И НЕ Клиент Тогда
лучше

А я так вообще Если Ложь Тогда пишу (хоть это и не во всех случаях применимо)
54 Мандалай
 
05.09.18
16:09
(52)Небось с интернета спер.
55 Злопчинский
 
05.09.18
16:15
(46)
Пока Ложь=Ложь Цикл
Сообщить("Воистину в домике");
КонецЦикла;
56 ptiz
 
05.09.18
16:18
Мой лучший код не сохранился, ибо был написан на асме для БК-0010 :(
57 Быдло замкадное
 
05.09.18
16:20
Я вчера впервые использовал СМЕЩЕНИЕ в таблице значений))

Товары.Сдвинуть(НайденнаяСтрока, - Смещение);
58 Быдло замкадное
 
05.09.18
16:20
(57) точнее СДВИНУТЬ
59 Dotoshin
 
05.09.18
16:21
Функция ПолучитьЗавтрашнююДату()
    ТекущаяДата = ТекущаяДата();
    Пока (ТекущаяДата() - ТекущаяДата) < 86400 Цикл
    КонецЦикла;
    //
    Возврат ТекущаяДата();
КонецФункции
60 uno-group
 
05.09.18
16:23
Первой в глобальнике добавляю
Процедура глВРазработке()
"Предупреждение("Извините, процедура находиться в разработке, придется пока ручками.");
КонецПроцедуры
В процесе активных дороботак активно юзается и на последок где то остается кнопка "Сделать все!!!" В ней глВРазработке()
61 Мандалай
 
05.09.18
16:23
(57)Ты бог
62 Мандалай
 
05.09.18
16:24
(58)Точнее полубог
63 spiller26
 
05.09.18
16:24
Функция ПолучитьИстину()
    Возврат Истина;
КонецФункции
64 bolobol
 
05.09.18
16:31
(54) Вы не поняли смысла! Дао не постигнуто... или не достигнуто, или не дао...
65 bolobol
 
05.09.18
16:33
(63) Это из БПС! Плагиат!
66 bolobol
 
05.09.18
16:34
*БСП
67 Лефмихалыч
 
05.09.18
16:34
(44) кстати, да
+1
68 NSSerg
 
05.09.18
16:40
Это работающий код на perl.
<>;
    $_ < $z or ($z += $_, ++ $a)
    for sort {$a <=> $b} split " ", <>;
print $a
Это с лурка, тоже perl
`$=`;$_=\%!;($_)=/(.)/;$==++$|;($.,$/,$,,$\,$",$;,$^,$#,$~,$*,$:,@%)=(
$!=~/(.)(.).(.)(.)(.)(.)..(.)(.)(.)..(.)......(.)/,$"),$=++;$.++;$.++;
$_++;$_++;($_,$\,$,)=($~.$"."$;$/$%[$?]$_$\$,$:$%[$?]",$"&$~,$#,);$,++
;$,++;$^|=$";`$_$\$,$/$:$;$~$*$%[$?]$.$~$*${#}$%[$?]$;$\$"$^$~$*.>&$=`
69 bolobol
 
05.09.18
16:43
Я там только Сиськи вижу!
70 NSSerg
 
05.09.18
16:50
(69) Это проверка на сиськофилию.
71 bolobol
 
05.09.18
16:53
(70) Т.е. - я прошёл проверку!? Меня уже берут?
72 NSSerg
 
05.09.18
16:55
(71) Это проверка работодателя.
73 Мандалай
 
05.09.18
16:55
(71)В сиськофилы, да
74 bolobol
 
05.09.18
17:02
(72) Это только девочкам подходит - оценить, насколько представитель работодателя сиськофил))

Нужно что-то альтернативное неперлить, оценивать, насколько работодатель членофил и/или <18+>
75 kennetmccormick
 
05.09.18
17:04
фразы типа "Прорекламируйте себя", "Чем Вы нам можете помочь"
76 bolobol
 
05.09.18
17:06
(75) Тут надо менеджеру звонить - каждый должен заниматься своим делом. Я хорошо говнокодю, менеджер хорошо рекламирует - совсем не пахнет!
77 bolobol
 
05.09.18
17:07
(75) Со вторым вопросом сложнее. Честно ответить "Расстаться с деньгами" - как-то стрёмно, что ли...
78 elCust
 
05.09.18
17:10
Тайное послание от разработчика:

https://vk.com/govnokod1c?z=photo-117389545_456239032%2Falbum-117389545_00%2Frev
79 Сергиус
 
05.09.18
17:11
(0)Можно ответить, что горжусь любым свои кодом)
80 Cool_Profi
 
05.09.18
17:12
У меня весь код под DNA. Так что не надо провоцировать
81 Мандалай
 
05.09.18
17:12
(79)Это ж каким бесстыжим надо быть.
82 bolobol
 
05.09.18
17:13
(81) "Фу, таким быть!" ещё скажите)))
83 bolobol
 
05.09.18
17:14
(78) ВК заперт - дайте альтернативу, плиз!
84 Cool_Profi
 
05.09.18
17:14
(81) Обоснуй.
85 OldCondom
 
05.09.18
17:22
Тут как в единоборствах: лучшая драка та, которой не было.
Пример кода, которым горжусь:
"Добрый день! Вашу хотелку можно реализовать типовыми средствами, вот ссылка на пояснения с картинками: *ссылка на ИТС*".
86 ejikbeznojek
 
05.09.18
17:26
87 gant0ha_b
 
05.09.18
17:29
да, нет .. это такой вопрос стандарный .. все хотят получить кусок кода получше .. но стесняются спросить прямо. Некоторые ведь так и пишут .. необходимо предоставить свои работы.
88 OldCondom
 
05.09.18
17:34
(87) Значешь... тут все не так просто... Вот прямо как с троеточиями... Видишь ли... я хочу создать видимость глубоко смысла... Вероятно дело в том, что у меня не получается создать этот смысл практически, вероятно... что-то еще... Да, что-то еще... Чувствуешь? Загадка и глубочайший смысл моего послания окутала весь несвязный бред этого послания. Да... есть над чем подумать... Прямо как комментарии к фильмам. "Очень хороший фильм, нраица. Есть над чем подумоть!".

Так к чему я это. "все хотят получить кусок кода получше" - ты это серьезно?
89 OldCondom
 
05.09.18
17:34
(88) прошу не расстреливать за ошибку "троеточие" <> "многоточие". Так задумано.
90 Numerus Mikhail
 
05.09.18
17:37
(80) NDA скорее
91 elCust
 
05.09.18
17:39
Кандидат на вакансию программиста прислал решение тестового задания (внешняя обработка). Модуль запаролен. Заинтриговал! Взломали пароль. В коде нашли кусок:

Если ТекущаяДата() > Дата(2017, 5, 20) Тогда
   Предупреждение("Период тестирования обработки истек :/");
Возврат;
КонецЕсли;

(с) vk.com/govnokod1c
92 Numerus Mikhail
 
05.09.18
17:39
(91) я бы его взял
93 kennetmccormick
 
05.09.18
17:45
а почему в НПФ спрашивают- есть или нет разница в какой виде бизнеса работать? Только там такой вопрос слышал
94 VladZ
 
05.09.18
17:46
(0) Где-то я уже это слышал... :)
95 Мандалай
 
05.09.18
18:21
(84)Василь Иваныч принимает экзамен по политологии у Петьки с Анкой. Анка у доски.
Василь Иваныч спрашивает:
- Анка, что предъявляли депутаты при проходе на Съезд Советов?
Анка молчит, Петька подсказывает шепотом:
- Ма-анда-аты.
Анка:
- Сам пи*дюк, Василь Иваныч, че он обзывается?
96 PR
 
05.09.18
18:22
(0) А ты на кого устраивался?
97 palsergeich
 
05.09.18
19:15
(91) Вполне себе нормальное решение именно для тестовой задачи, хорошо что еще что сервер лицензирования с NFR ключом встроил))).
Тоже взял бы.
98 PR
 
05.09.18
19:21
(97) Нормальное решение - это если лезет на сервер, получает обфусцированный код или сразу результат решения или дать доступ в опубликованную базу без конфигуратора :))
99 Доктор Манхэттен
 
05.09.18
19:30
(3) C 60-крантым уменьшением функционала
100 mszsuz
 
05.09.18
20:18
// 100
101 MSOliver
 
06.09.18
02:32
//Отказ = Истина;
102 Бертыш
 
06.09.18
03:56
Клади=Ложь;
СтандартнаяОбработка=Клади;
103 JeHer
 
06.09.18
04:29
(102) неправильно, надо так:
Клади=Ложь;
СтандартнаяОбработка=Положи;
104 Мистикан
 
06.09.18
10:09
(98) хз. нормальное решение просто зашить в компоненту.
105 dmpl
 
06.09.18
11:33
(0) Зачему, нигде не указано, что этот кусок должен быть написан вами.
106 Мистикан
 
07.09.18
12:29
(105) ха я тоже об этом подумал, даже хотел стебануться и кинуть пару модулей с решения задачек по спецу =)
107 Мистикан
 
07.09.18
12:30
но конторка предлагала 130 на руки + помощь с переездом (2 месяца на корпоративной квартире)
108 Мистикан
 
07.09.18
12:30
в незалежную
109 _KaA
 
07.09.18
13:24
(0)
Прислал бы пусто текстовый файл, потому что лучший код - то решение задачи типовыми инструментом...
110 NSSerg
 
07.09.18
13:31
(109) Зачем тогда что-то присылать? Проще сидеть дома и не работать, ибо человек который пользуется типовыми инструментами называется как угодно, только не программист.
111 NSSerg
 
07.09.18
13:31
А программист - пишет программы. Пишет код.
112 _KaA
 
07.09.18
13:36
(110) А почему вы решили, что надо кодить, если можно решить задачу типовым способом? Вы на каждом внедрении пишите свою ЗУП?
113 NSSerg
 
07.09.18
13:48
(112) Нет, программист по определению занимается непосредственной разработкой программного обеспечения. Когда он старается решить штатными механизмами - он выполняет функции не программиста. Если при трудоустройстве программистом он высылает пустой файл - то нафик он сдался на должность программиста?
Если можно решить задачу типовым способом - то я переадресую её специально обученным людям. На каждом внедрении я пишу. Я не беру проекты где можно решить задачу штатными механизмами, ибо я программист. Ну и повторюсь - если что-то можно сделать штатно, я задачу переадресую.
114 OldCondom
 
07.09.18
13:53
(113) В идеальном мире живете.
115 vi0
 
07.09.18
13:54
(12) для 1сника любой гкод на английском будет предметом гордости
116 vi0
 
07.09.18
13:55
(0) мне как сказали в более лояльной формулировке "который не стыдно показать"
117 vi0
 
07.09.18
13:56
(99) с уменьшением функционала по экспоненте от уменьшения количества строк
118 _KaA
 
07.09.18
14:01
(113)
Я вас понял, мы говорим о задачах разного уровня сложности. Я пришел к тому, что умение кодить это не самое важное в 1С. Гораздо полезнее разбираться в приклодной сфере, знать и понимать возможности программ. Т.е. умение понять задачу и правильно ее реализовать, это, ИМХО, для меня важнее правильно кодить...
119 OldCondom
 
07.09.18
14:09
(118) а если еще и божить в каком-то направлении, допустим таже БП3, то красота ненаглядная.
120 _KaA
 
07.09.18
14:21
(119)

)))))
121 Mort
 
07.09.18
14:25
Вот этот кусок мне адово дался:

          float terrainPositionX = terrainChangeData.bounds.xMin;
            float terrainPositionZ = terrainChangeData.bounds.yMin;
            float terrainPositionY = terrainChangeData.position.y;
            float terrainSizeY = terrainChangeData.size.y;



            for (y = AreaYMin; y <= AreaYMax + 1; y++)
                for (x = AreaXMin; x <= AreaXMax + 1; x++)
                {

                    if (mask1[x - QuadXMin, y - QuadYMin] || mask2[x - QuadXMin, y - QuadYMin]) // ячейку нужно обработать
                    {
                        terrainChangeData.TerraformGetCellPos(x, y, out fx, out fy);

                        F = new Vector2(fx, fy);

                        if (!tr1)
                        {
                            if (Common.FindIntersection(C, F, A, D, out Q))
                            {
                                distanceFromAD = (Q - F).magnitude / (B - Q).magnitude;
                            }
                            else
                            {
                                distanceFromAD = 0;
                            }
                        }
                        else
                        {

                            // ax2 + bx + c = 0


                            float a = C.x * B.y - D.x * B.y - C.x * A.y + D.x * A.y - C.y * B.x + D.y * B.x + C.y * A.x - D.y * A.x;

                            float b = C.x * A.y - D.x * A.y + D.x * B.y - F.x * B.y - D.x * A.y + F.x * A.y - F.y * C.x + F.y * D.x - C.y * A.x + D.y * A.x - D.y * B.x + F.y * B.x + D.y * A.x - F.y * A.x + F.x * C.y - F.x * D.y;

                            if (a == 0 && b == 0) continue;

                            float c = F.y * A.x - F.x * A.y - F.y * D.x + D.x * A.y - D.y * A.x + F.x * D.y;


                            if (a != 0)
                            {
                                float d = b * b - 4 * a * c;

                                if (d >= 0)
                                {
                                    distanceFromAD = ((-b + Mathf.Sqrt(d)) / (2 * a));
                                }
                                else
                                {
                                    continue;
                                }
                            }
                            else
                            {
                                if (c != 0)
                                {
                                    distanceFromAD = -c / b;
                                }
                                else
                                {
                                    distanceFromAD = 0;
                                }
                            }

                        }
122 NSSerg
 
07.09.18
14:25
(118) Это разная специализация. Зачем приглашать хорошего программиста на использование штатного инструмента?
"Разбираться в прикладной сфере", "знать и понимать возможности программы", "уметь правильно понять и реализовать" ну никак не связано с необходимостью выполнять функции консультанта, консалтера,  эникейщика, админа и т.д. Никто не мешает разбираться в прикладной сфере, и при этом заниматься своим делом. Для программиста это  - непосредственная разработка программного обеспечения. Есть конечно 1Сники широкого профиля. Но если он специализируется не на разработке, а на использовании штатных механизмов - то какой-же он программист? Cертификат программиста - "1С:Специалист", а не "1С:Профессионал".
123 Вафель
 
07.09.18
14:35
(122) ну так в 1с и не особо то нужны программисты, а больше внедренцы
124 NSSerg
 
07.09.18
14:49
(123) Внедренец внедренцу рознь. Внедрение типовых решений без адаптации и написания вспомогательного кода - как минимум стоит значительно дешевле. Ну и серьезных внедрений без единой написанной строчки кода практически не бывает.
Ну и в (0) Я так понимаю речь идет всё-таки о программировании. Вряд ли РП или консультанта просят прислать код. А если программист, на вакансию программиста, пришлет пустой лист и скажет что я стараюсь не писать - это уже ИМХО неадекват.
125 Вафель
 
07.09.18
15:11
(124) никто не говорит, что внедренец не умеет прогать. просто он умеет прогать на уровне мидла - этого более чем достаточно
126 Вафель
 
07.09.18
15:11
Хороший внедренец - это 60/40 - РП/прог или даже 70/30
127 NSSerg
 
07.09.18
15:40
(125) "умеет прогать на уровне мидла", - более чем достаточно для чего? Чтоб зарабатывать немного денег, можно не уметь писать вообще.
(126) В (109), (112), (118) - описаны навыки ну никак не архитектора или РП. А пользователя, эникейщика, возможно консультанта.
128 Casey1984
 
07.09.18
16:20
(0) Меня просили прислать код, сейчас прям дословно скопирую: "такого качества, чтобы мы "ахнули" и сразу захотели с вами работать". Выслал. Молчат. Видать сильно ахнули :-)
129 bolobol
 
07.09.18
16:23
(128) Изучают... Заказали специалистов, ждут отправки из Индии...
130 Малыш Джон
 
07.09.18
16:43
(128) они наверное вот так хотели:

https://www.youtube.com/watch?v=SChNfpdasq8
131 HawkEye
 
07.09.18
16:45
соглашусь с NSSerg, программист пишет код...
132 OldCondom
 
07.09.18
16:53
(128) Вот от чего они ахать собрались мне интересно? В адеквате ребята или как? Это 1С! 1С, блин! Типовые объекты, конфигуратор, конечный пользователь - бухгалтер, оператор и менеджер.

Сидит наверное кучка фриков в кабинете после семинаров от крутого коуча и думают над философией фирмы и цвета стен в оупенспейс офис и попутно рассуждает над тем, кто же он такой - самый крутой прогер по 1С, потому как другие в нашу мега успешную world digital шаурма corporatin не нужны. "Он должен писать такой код, чтобы при запуске 1С за окном появлялась радуга, по ней спускался розовый пони с шикарной белой гривой и взмахнув волшебным рогом приводил в идеальный порядок весь учет, вообще не важно какой. Я СКАЗАЛ ВЕСЬ УЧЕТ!".
133 q15h
 
07.09.18
17:01
(132) ахахах в голос ))))
134 Casey1984
 
07.09.18
17:46
(132) :-) Пятница не зря прошла)
135 q15h
 
07.09.18
17:49
(132) ищут код, гениальный, как колесо, чистый, как роса на можевельнике после грозы, искренний, как объятия любимой бабушки.. )
136 Гад
 
07.09.18
18:00
вспомнилось...какое главное событие в моей жизни ? ваше главное событие -впереди
137 mszsuz
 
07.09.18
18:41
Горжусь кодом, который написал сегодня. И так - каждый день.
138 hawksib
 
09.09.18
06:40
(0) я этим особо не горжусь, просто не понимаю почему в тк такой процедуры нет (есть ведь РазложитьСтрокуВМассив), очень удобно заполнять xml-ки:

Процедура ЗаполнитьСвойстваОбъектаXDTO(ОбъектXDTO, тСоответствие)
    Для Каждого Эл Из тСоответствие Цикл
        ЛевоеИмяПоля = ?(Найти(Эл.Ключ, "/") <> 0, Лев(Эл.Ключ, Найти(Эл.Ключ, "/")-1), Эл.Ключ);
        ПравыеИменаПолей = Прав(Эл.Ключ, СтрДлина(Эл.Ключ) - Найти(Эл.Ключ, "/"));
        Если ЛевоеИмяПоля = ПравыеИменаПолей Тогда
            Если ТипЗнч(ОбъектXDTO[ЛевоеИмяПоля]) = Тип("СписокXDTO") Тогда
                ОбъектXDTO[ЛевоеИмяПоля].Добавить(Эл.Значение);
            Иначе
                ОбъектXDTO[ЛевоеИмяПоля] = ?(ЛевоеИмяПоля = "guid", НРег(Эл.Значение), Эл.Значение);
            КонецЕсли;
        Иначе
            Если ОбъектXDTO[ЛевоеИмяПоля] = Неопределено Тогда
                ОбъектXDTO[ЛевоеИмяПоля] = ФабрикаXD.Создать(ОбъектXDTO.Тип().Свойства.Получить(ЛевоеИмяПоля).Тип.URIПространстваИмен, ОбъектXDTO.Тип().Свойства.Получить(ЛевоеИмяПоля).Тип.Имя);
            КонецЕсли;
            ИменаПолей = Новый Соответствие;
            ИменаПолей.Вставить(ПравыеИменаПолей, Эл.Значение);
            ЗаполнитьСвойстваОбъектаXDTOрек(ОбъектXDTO[ЛевоеИмяПоля], ИменаПолей);
        КонецЕсли;
    КонецЦикла;
КонецПроцедуры


в процедуру передаётся 2 парметра: ОбъектXDTO - объект фабрики, который заполняем и тСоответствие - соответствие, где ключ - путь к объекту через "/", в котором перечислены имена всех объектов, ну например:  "head/body/name", а значение - значение, которое содержит конечный объект (если опираться на пример, то объект name), конечно с объектами типа списокXDTO функция работает плохо, но в целом очень удобная и я постоянной ей пользуюсь, благо объектов в разы больше чем списков...
139 hawksib
 
09.09.18
06:41
(138)   не правильно процедуру обозвал, надо ЗаполнитьСвойстваОбъектаXDTOрек
140 Мистикан
 
11.09.18
11:22
(139) хех... ты мне напомнил что надо бы глубоко в XDTO залезть с ногами и досконально с ним разобраться. а то пользоваться пользуюсь временами, не особо понимая что делаю =) что хотел вышло и ладно
141 OldCondom
 
11.09.18
11:43
(138)Ух печет, помню у заказчика не работал отладчик(долгая история), как же я дико спотыкался об

"Если ТипЗнч(ОбъектXDTO[ЛевоеИмяПоля]) = Тип("СписокXDTO") Тогда"

Ну не знал я, что можно на тип проверить, даже сп облазил, думал метод какой-то есть. В итоге через попытку сделал.
142 bolobol
 
11.09.18
11:45
Зачем вообще это ХДТО нужен?...
143 _stay true_
 
11.09.18
11:45
Гордиться нечем. Но и нечего стыдиться.
144 d4rkmesa
 
11.09.18
12:25
Как то потратил свое рабочее фиксовремя на такую хрень:

Функция РазбитьСловоПоСлогам(Слово)
    
    s = "бвгджзклмнпрстфхцчшщbcdfghjklmnpqrstvwxz";
    g = "аеёиоуыэюяaeiouy";
    x = "йьъ";    
    ПравилаЗамены = Новый СписокЗначений;
    ПравилаЗамены.Добавить("xgg", "x-gg");
    ПравилаЗамены.Добавить("xgs", "x-gs");
    ПравилаЗамены.Добавить("xsg", "x-sg");
    ПравилаЗамены.Добавить("xss", "x-ss");
    ПравилаЗамены.Добавить("gssssg", "gss-ssg");
    ПравилаЗамены.Добавить("gsssg", "gss-sg");
    ПравилаЗамены.Добавить("gsssg", "gs-ssg");
    ПравилаЗамены.Добавить("sgsg", "sg-sg");
    ПравилаЗамены.Добавить("gssg", "gs-sg");
    ПравилаЗамены.Добавить("sggg", "sg-gg");
    ПравилаЗамены.Добавить("sggs", "sg-gs");

    СтрокаЗамены = "";
    Для ин = 1 По СтрДлина(Слово) Цикл
        ТекСимвол = Сред(нрег(Слово), ин, 1);
        Если Найти(s, ТекСимвол) > 0 Тогда
            СтрокаЗамены = СтрокаЗамены + "s";
        ИначеЕсли Найти(g, ТекСимвол) > 0 Тогда
            СтрокаЗамены = СтрокаЗамены + "g";
        ИначеЕсли Найти(x, ТекСимвол) > 0 Тогда
            СтрокаЗамены = СтрокаЗамены + "x";
        //ИначеЕсли Найти("-", ТекСимвол) > 0 Тогда
        //    СтрокаЗамены = СтрокаЗамены + "-";
        Иначе
            СтрокаЗамены = СтрокаЗамены + "t";
        КонецЕсли;            
    КонецЦикла;
    
    Для Каждого Правило Из ПравилаЗамены Цикл
        Пока СтрЗаменить(СтрокаЗамены, Правило.Значение, Правило.Представление) <> СтрокаЗамены Цикл
            СтрокаЗамены = СтрЗаменить(СтрокаЗамены, Правило.Значение, Правило.Представление);
        КонецЦикла;
    КонецЦикла;
    
    МассивСлогов = СтроковыеФункцииКлиентСервер.РазложитьСтрокуВМассивСлов(СтрокаЗамены, "-");
    
    Результат = Новый Массив;
    Указатель = 1;
    Для ин = 0 По МассивСлогов.ВГраница() Цикл
        Результат.Добавить(Сред(Слово, Указатель, СтрДлина(МассивСлогов[ин])));
        Указатель = Указатель + СтрДлина(МассивСлогов[ин]);
    КонецЦикла;
    
    Возврат Результат
КонецФункции
145 d4rkmesa
 
11.09.18
12:26
Идея, правда, не моя, но все равно время пришлось потратить на переосмысление и перекладку в процедуру на 1С.
146 Лефмихалыч
 
11.09.18
12:58
(144) зачем Найти(), если заранее известно, что там один символ?..
147 Fragster
 
гуру
11.09.18
13:00
(146) там в обратную сторону поиск
Компьютеры — это как велосипед. Только для нашего сознания. Стив Джобс