Есть массив с n элементами. Каждый элемент массива таблица значений.
Необходимо сложить первую строку таблицы значений первого элемента с первой строкой второго второго, с первой строкой третьего и т.д.    
Для массива с 3-мя элементами цикл выглядит так:              
    Для Каждого СтрокаТаблицы из МассивТЗ[0] Цикл
        Для Каждого СтрокаТаблицы1 из МассивТЗ[1] Цикл
            Для Каждого СтрокаТаблицы2 из МассивТЗ[2] Цикл                
                ВВ = СтрокаТаблицы.Сумма+ СтрокаТаблицы1.Сумма + СтрокаТаблицы2.Сумма;                
                Если ВВ = 5 Тогда
                                  Сообщить("123");    
                 КонецЕсли;
            КонецЦикла;         
        КонецЦикла;           
    КонецЦикла;       

Как сделать цикл для обхода массива с n элементами?

рекурсия

(1) код можно для примера?  думал о рекурсии, не пойму как.

(2) гугл в помощь обход дерева значений

(2) Чтобы понять рекурсию нужно понять рекурсию

хотелось бы получить стоящие ответы, напишите, если кто сталкивался.

(5) и что тебе еще не ответили?

+(6) если ты не понял ответ - это не означает, что тебе его не дали )))

(6) ты вот приведи пример или кинь ссылку. К гуглу отправить все могут)

(8) не хами

(8) слишком простой вопрос. поэтому влом что-то искать

(9) (10) коллеги, не знаете, не пишите, не засоряйте тему.

(11) вот если бы ты написал: нашел алгоритм обхода дерева, но не получается то-то и то-то. Тогда другой вопрос

(11) Коллега, не умеешь работать с рекурсией, иди нахрен гугли рекурсию
Загуглишь, вернешься, доложишь об окончании изучения рекурсии

Половина постов в ветке — ответ на вопрос в (0)
Так нет, дайте готовый код, а то я не в курсах, что там еще за рекурсии ваши

(3) - по этому совету нашел это v8: Обход дерева значений  Буду разбираться, спасибо.

Удивительное рядом. It's a magic!

Никогда не думай о рекурсии, иначе уйдёшь в рекурсию и помрёшь по исчерпании памяти...

(17) главное выход из нее сделать не забыть и все будет хорошо

(18) Главное - не забыть выйти из неё...

Не забудь выйти из нее

(15) не, все равно не понятно. Нужны еще советы.

"Необходимо сложить первую строку таблицы значений первого элемента с первой строкой второго второго, с первой строкой третьего и т.д.     "
И что в результате получается?

(21) давай по-порядку
что конкретно не понятно?

(23) он решил считерить.
ветку найду, а дальше код готовый буду просить )))

А потом такие приходят и 150 просят

(23) вы понимаете как задача стоит?

"Необходимо сложить первую строку таблицы значений первого элемента с первой строкой второго второго, с первой строкой третьего и т.д.     "

не пойму что у автора получиться должно, по коду вообще какой-то мрак написан, таблицу 1 сложит саму с собой столько раз, сколько строк в нулевой таблице, а таблицу 2 ещё намного раз больше

(26) Чувак хочет сделать полный перебор всех комбинаций значений строк нескольких ТЗ с целью поиска тех, в которых сумма этих значений = 5
Идиотская задача, да

(27) все правильно!

(28) УУУУ. рано тебе еще такие задачки решать

(28) Скупая слеза прожгла борозду на изможденном лице

Чего тебе не хватает-то? Вроде уже все написали, что делать.

(25) А сколько вы даете за написание циклов? :)

(30) нужно прям конкретный код написать.

(31) Я не понял твоего вопроса
С расценками можешь ознакомиться в двух ветках - вакансиях :))

(23) все не понятно. было бы понятно, не писал бы на всеобщем форуме добродетелей)

(32) А, так ты бы сразу так и сказал
Ну так озвучь сумму вознаграждения, желающих набежит...

Почему типовые не используешь?

ОбщийМодульФункцийКогдаНеЗнаешьАХочется.СложитьПервуюСтрокуТаблицыЗначенийПервогоЭлементаСПервойСтрокойВторогоВторогоСПервойСтрокойТретьегоИТД(Массив);

(2)
Учебник Информатика 9 класс Горячев Островский часть 2

(32) ха... ха...

(35) 10 баксов инфостарта.

(39) для PR 11, если сделает)

(40) откуда вообще задача взялась? курсовая чтоли?

(39) за такое вознаграждение я лучше бесплатно понаблюдаю за развитием событий

(0) А вторые, третьи и т.д. строки ТЗ потом надо складывать?

(42) не бесплатно, а за счет работодателя) все же сидят в рабочее время)

(43) да, все элементы нужно обойти

(41) наблюдайте бесплатно, как другие)

(44) не все работают на дядю

...кому-то и тети достаются

Я так понимаю, это просто агрегатная сумма по полю «Сумма» всех таблиц значений?

(40) Хех, знаешь, подлец, чем заинтересовать :))
Недавно хотел что-то скачать по интеграции Слэка с 1С, а там эти инфосраномани потребовали
Давай 50 вперед и кидай заготовку кода, сделаю, пришлю готовый вариант

Вам че влом рекурсию написать человеку?

(36)Не нашел такого, ткни пальцем

(51) Порви рубаху на груди, напиши сам
В качестве вишенки на торте напиши второй вариант  без рекурсии
Докажи нам всем

(51) рекурсию нужно понимать, а чтобы ее понять ее нельзя скопипастить - нужно самому написать

(52) Ты просто не там смотришь, найди уже по Ctfl + Shift + F что ли

(0)Друх, может тебе того? В запрос все кинуть?

(54)Уверяю тебя - можно :)

(54)Alt + Ctfl + Shift + F4 помогло

(57) ну объясни ТСу что это за зверь такой - может поймет

(58) к (55)

Я что-то не понял рекурсировать никто не собирается, и автору придётся делать всё самому? :)

(59)Не, ты меня не понял. Можно скопипастить рекурсию так, что она начнет работать, даже не до конца понимая как она работает :)

(62) А ты (21) прочитал?

(62) найти правильную рекурсию для копипаста еще сложнее, чем ее написать )))

(56) а вы молодец! да, в запрос все кинул, через декартово произведение таблиц все работает, все ок. Но вот обычный вариант интересно тоже сделать/посмотреть.

(65) Обычный — это который с рекурсией?
А то декартово произведение так-то и без рекурсии написать можно

(66) с рекурсией, другие варианты может есть.

(67) Еще раз, любую рекурсию можно реализовать без рекурсии

(67) Можно и без запроса заделать методом Свернуть предварительно создав 1 таблицу

(65) тема была про красивый цикл

в этой теме "про цикл" почти в каждом сообщении - про рекурсию.
Сдаётся мне, что вся эта тема - это и есть цикл про рекурсию ...

(67) Тут задача в 2 цикла решается

Для пКолонка = 0 По МассивТЗ[0].Количество() - 1 Цикл
  пСумма = 0;
  Для пТаблица = 0 По МассивТЗ.Количество() - 1 Цикл
    пСумма = пСумма + МассивТЗ[пТаблица][пКолонка];

(72) Забыл про строки. Тоже примерно так же 3-й цикл

(72) Суммы наверное отдельно для каждого номера строки надо хранить (IMHO)


СоответствиеДляСумм = Новый Соответствие;

Для каждого элМассива Из МойМассивТЗшек Цикл
    Для каждого строкаТЗ Из элМассива Цикл
        НомерСтроки = элМассива.Индекс(строкаТЗ);
        ЗначениеСоответствия=СоответствиеДляСумм.Получить(НомерСтроки);
        Если ЗначениеСоответствия=Неопределено тогда
            СоответствиеДляСумм.Вставить(НомерСтроки,строкаТЗ.КолонкаСЦифиркой);    
        Иначе
            СоответствиеДляСумм.Вставить(НомерСтроки,ЗначениеСоответствия+строкаТЗ.КолонкаСЦифиркой);        
        КонецЕсли;
    КонецЦикла;
КонецЦикла;



Для пКолонка = 0 По МассивТЗ[0].Колонки.Количество() - 1 Цикл
  пСумма = 0;
  Для пСтрТаблица = 0 По МассивТЗ[0].Количество() - 1 Цикл
    Для пТаблица = 0 По МассивТЗ.Количество() - 1 Цикл
      пСумма = пСумма + МассивТЗ[пТаблица][пСтрТаблица][пКолонка];

Что-то подобное

Может я чего то не понимаю, но не проще просто перебором вот так?
Сумма = 0;
Для Каждого МояТЗ из мойМассив Цикл
    Сумма = Сумма+МояТЗ[0].Сумма;
КонецЦикла;

(76) У него в коде не только 0-я строка, а все складываются

(77) Да с чего это? В (0) четко указано "первую строку таблицы значений первого элемента с первой строкой второго второго, с первой строкой третьего и т.д."

Для инд=0 по МойМассив Цикл
Сумма = МойМассив[инд]*(инд+1);
КонецЦикла;

Для инд=0 по МойМассив.Количество()-1 Цикл

(78) ну написано же "и т.д.") включай уже свой телепатор)

Для инд=0 по МойМассив.Количество()-1 Цикл
Сумма = Сумма +МойМассив[инд]*(инд+1);
КонецЦикла;
Вот так наверное

+(78) Вот вариант для всех строк
мойМассив = Новый Массив;
моеСоответствие = Новый Соответствие;

для Сч = 0 по мойМассив[0].Количество()-1 Цикл
    моеСоответствие.Вставить(Сч,0);
КонецЦикла;

Для Каждого МояТЗ из мойМассив Цикл
    Для Элемент из моеСоответствие Цикл
        Элемент.Значение = Элемент.Значение+МояТЗ[Элемент.Ключ].Сумма;
    КонецЦикла;
КонецЦикла;

+(83) Ошибка Правильнее так.
мойМассив = Новый Массив;
моеСоответствие = Новый Соответствие;

для Сч = 0 по мойМассив[0].Количество()-1 Цикл
    моеСоответствие.Вставить(Сч,0);
КонецЦикла;

Для Каждого МояТЗ из мойМассив Цикл
    Для Каждого Элемент из моеСоответствие Цикл
        Элемент.Значение = Элемент.Значение+МояТЗ[Элемент.Ключ].Сумма;
    КонецЦикла;
КонецЦикла;

(84) что-то здесь не так. Нужно перебрать все строки всех элементов массива.

(85) Строки различной длины? Если да то давай автор пиши уже наконец-то рекурсию :)

(85) В таблицах количество строк одинаковое?

Добью. Если количество строк одинаковое во всех ТЗ то вот это быстрее будет.
мойМассив = Новый Массив;
моиСуммы = Новый Массив;

максИндексСтрок = мойМассив[0].Количество()-1;
для Сч = 0 по максИндексСтрок Цикл
    моиСуммы.Добавить(0);
КонецЦикла;

Для Каждого МояТЗ из мойМассив Цикл
    Для Сч = 0 по максИндексСтрок Цикл
        моиСуммы[Сч] = моиСуммы[Сч] + МояТЗ[Сч].Сумма;
    КонецЦикла;
КонецЦикла;


(87) количество строк в ТЗ разное

(86) пиши)  мог бы, написал уже)

судя по твоему примеру просто

Для Каждого СтрокаТаблицы2 из МассивТЗ[МассивТЗ.Количество()-1] Цикл  
КонецЦикла

Но если пример не правилен и СтрокаТаблицы2  содержит массив тогда нужна рекурсия

Вот пример

вызов
Рекурсия(МассивТЗ);

Процедура Рекурсия(МассивТЗ)

Для каждого стр из МассивТЗ цикл
Если ТипЗнч(Стр) = Тип("Массив") Тогда
Рекурсия(Стр);
Иначе
Сообщить(Стр.Блаблабла);
КонецЕсли;

КонецЦикла


КонецПроцедуры

(89) Тогда так
С попыткой.
Для Каждого МояТЗ из мойМассив Цикл
    максИндексСтрок = МояТЗ.Количество()-1;
    Для Сч = 0 по максИндексСтрок Цикл
        Попытка
            моиСуммы[Сч] = моиСуммы[Сч] + МояТЗ[Сч].Сумма;
        Исключение
            моиСуммы.Добавить(0);
            моиСуммы[Сч] = моиСуммы[Сч] + МояТЗ[Сч].Сумма;
        КонецПопытки;
    КонецЦикла;
КонецЦикла;


Без попытки.
Для Каждого МояТЗ из мойМассив Цикл
    максИндексСтрок = МояТЗ.Количество()-1;
    максИндексМассива = моиСуммы.Количество()-1;
    Пока максИндексМассива>максИндексСтрок Цикл
        моиСуммы.Добавить(0);
        максИндексМассива = максИндексМассива+1;
    КонецЦикла;
    
    Для Сч = 0 по максИндексСтрок Цикл
        моиСуммы[Сч] = моиСуммы[Сч] + МояТЗ[Сч].Сумма;
    КонецЦикла;
КонецЦикла;


(0) Слить все в одну ТЗ, свернуть результат.

(94) Долго

(93) что-то тут все равно не то.
Не увидел где учитывается разное количество строк в таблицах.

(94) это как?

(96) Ну как так то?
моиСуммы - массив. Количество элементов этого массива -  максимальное количество во всех таблицах. В каждом элементе накапливается сумма по индексу строки. Индекс строки ТЗ = индеску элемента в массиве.

(98) сейчас еще раз отладчиком гляну.

(99) Сотка.
Нашел ошибку
Пока максИндексМассива>максИндексСтрок Цикл
заменить на
Пока максИндексСтрок>максИндексМассива Цикл

Элемент 1:
Строка 1: 1
Строка 2: 2

Элемент 2:
Строка 1: 2
Строка 2: 4

получается в моиСуммы :
3
6

Перебирает не все.

Или я не то смотрю?

если задание в (0)

я бы так сделал
1) пронумеровал строки вложенных тз.
2) обединил тз
3) свернул по номеру строки.

далее искать требуемые суммы.

(102) здесь получится, я так понял, суммы первых элементов, суммы вторых элементов и т.д. А где сумма первого и второго, второго и первого?

(103) В подробном! описании задания, которые ты от нас тщательно скрываешь

(104) задание в описании. надо перебрать все строки всех таблиц.

(105) Для...?

(106) как по мне, так описание в (0) исчерпывающее. Сделать также, но красиво. Зачем придумывать "для чего" , "и такие просят 150", "что-то скрываешь",... .  Если кто знает, напишите.

(107) Ну на основании (0) (93) - это то что надо.

(108) см (101)

(109) Да все правильно. (93) это твой вариант.

(110) см (107)

(107) Не увиливай. Ответь на вопрос.

Ну давайте, кто сделает! Повышаю ставку. Пусть будет 20 баксов ифностарта за правильное и красивое решение. Использование оператора "Выполнить" запрещается, использование запросов тоже запрещается.

(113) да никому не нужны твои копейки

Позовите, когда дойдет хотя бы до 50 :))

(114) (115) а как же показать что вы реальные специалисты, просящие от 150??))

показали бы свою квалификацию)

(116) Я ее каждый день показываю клиентам по 3500 в час

(118) ну вот за сколько примерно времени смогли бы сделать эту задачу?

(117) ну для чего мне ее тебе показывать? у меня есть клиенты, которые видели квалификацию и которые довольны

(117) ну есть же 1с-лансер туда и обращайся. Там за тысячу рублей 5 таких циклов тебе зафигачат. Чего ты чудишь?

(119) пол часа с кофе, печеньками и перекуром

(122) хорошо. 3500/2 = 1750 - это сколько баксов инфостарта?

Боже, шел третий день...

(124) тут третий. так задача уже недели 3 висит))

(121) придется туда пойти по ходу.

(125) ну просто ты должен еще форуму за размещение вакансии. Это Волшебник чего-то отвлекся. Здесь вакансии и проекты платные. тут 1750 не обойдешься. Готов тысяч 30.

(107) Исчерпывающее? Да ну? )))

1) Как можно сложить строки таблиц значений? В стопку? В папку? В поленницу? Может быть значения каких-то колонок можно сложить, но никак не строки, в которых непонятно что.

2) "сложить первую строку таблицы значений первого элемента с первой строкой второго второго, с первой строкой третьего и т.д." То есть из описания: Первую строку первого с первой строкой второго. Первую строку второго с первой строкой третьего. Первую строку третьего с первой строкой четвертого". И нигде не говорится о переборе всех строк всех таблиц.

3) Куда помещать полученные суммы? Или просто сложить и забыть?

Исчерпывающее, ага.

(127) да тут не одна вакансия, а много)) бОльшую часть пишущих  надо на замену.

(128) коллега ну из цикла же видно что перебираются все строки. Задача не для вас)

Господи, какое шоу оказывается прошло мимо меня

(131) шоу в разгаре)

(130) Из цикла видно, из описания нет. Создавать ТЗ и описания - задача не для вас )

(4)
Чтобы понять рекурсию нужно понять рекурсию =>
Давайте останемся конструктивными.

идем за попкорном тогда.

Обнаружено расхождение текстового описания и кода программы.

(113) почему запрос запрещается?

или тут можно двумя циклами сделать

(137)Почему именно двумя?

(138) чем меньше циклов, тем быстрее ? )
решение в 94

(139)Я так поняла, ему нужен полный перебор всех строк

(139) да он темнит, тут не поймешь. То говорит, что нужно сложить первую строку с первой, а вторую со второй, то говорит, что все строки. И уже 3 дня темнит на всех форумах.

(141) как я понял задачу --- нужно сложить все первые строки, все вторые, все третьи и т.д.

(136) запросом уже сделано давно, все работает, все ок.

(140) да!

(141) каких всех? я только на мисте спросил.

(142)Ну, такая задача даже без рекурсии решается

(144)А такая процедурой в 10 строк

(147) и? поделитесь решением?

(147) 7 должно быть

(149)Значит моя дороже :)

(144) ты уверен что понимаешь что такое полный перебор? )))

РезультирующаяТЗ = МассивТЗ[0].СкопироватьКолонки();
РезультирующаяТЗ.Колонки.Добавить("НумерСтроки");

Для Каждого ТекЭлемент Из МассивТЗ Цикл Для каждого ТекСтрока Из ТекЭлемент Цикл
        ЗаполнитьЗначенияСвойств(РезультирующаяТЗ.НоваяСтрока(), ТекСтрока);
        РезультирующаяТЗ.НумерСтроки = ТекСтрока.НомерСтроки;
КонецЦикла; КонецЦикла;
//Сворачиваем по колонке НумерСтроки

(152)Это номер с номером

(152) разные номер тоже надо складывать

а ему надо
111111
111112
...
nnnnnn

При чем, неизвестно еще, одинаковое ли количество строк в этих ТЗ

(153) ?

Он уже давно сказал, что хочет (27), что вы тут перетираете, пустоплеты? :))

(158) это уже другая задача ))

(151) еще как. а ты?

(158) +100

(147) Действительно 10. Вместе с вызовом процедуры.

допустим будет 20 таблиц по 20 строк.

тупое полное перемножение даст 20 в 20-й степени комбинаций.
поэтому участвовать в реализации подобной глупости нет смысла.

нужно уточнение задачи.

(163) да, правильно.
Повторю условие: задача изложена в (0), количество строк в ТЗ разное. Нужно перебрать все возможные варианты.

(164)Тебе зачем? Запрос работающий у тебя есть. Из спортивного интереса - так самостоятельно надо писать.

(164) за три дня не решил пятиминутную задачу? Стаж 8 лет... Или это тестирование форумчан? )

(163) Допустим программист 1С во время поездки на работу сунул голову в открытый люк, а снизу ему прилетело ломом в жбан и программист выключился из участия в происходящем вокруг на месяц

Тупой прикид подсказывает, что фирма не может ждать его месяц, пока он выздоровеет и реализует поставленную перед ним задачу
Поэтому участвовать в реализации подобной глупости нет смысла

Нужно уточнение задачи

И эти люди автоматизируют страну
Мне тупо не по себе как-то

(166) стаж более 20, коллега) на форуме просто 8).

(168) согласен. столько постов, а у многих нет даже понимания что нужно сделать.

(169) ну так тогда что, это тестирование форумчан? )
Ведь на самом деле задача (с уточнением, что нужно перебрать все возможные комбинации) решается рекурсивной процедурой в несколько строчек. И почти ничем не отличается от обычного обхода ДЗ, за исключением того, что нужно контролировать, где пора остановиться.