Не могу выбрать строку и записать ее как колонку...

подробней

есть к примеру таблица значений 3*3  надо записать строки как столбцы

Как транспонировать ТаблицуЗначений?

Ну это для семерки,для восьмерки у меня так не получилось

Вроде, задача совсем не сложная, реализуется двумя вложенными циклами....

Напиши если не трудно, а то я уже заколебался не получается че то

а как ты назовешь столбцы, которые были строками?

(0) Зачем?

Предположим столбцы также называются. задание мне дали такое.

(9) Если честно, то практическая потребность в этом сомнительная. Практически нулевая.
Делаешь новую ТЗ, добавляешь туда необходимое количество колонок и двойным циклом перебираешь исходную ТЗ и данные вгоняешь в новую ТЗ.

(10) Это студент

Алгоритм я то понимаю, я язык плохо знаю, никогда раньше с ТЗ не работал.
Как взять строку и записать ее как колонку?

(12) никак, надо обращаться к ячейкам (полям строк)

Типо надо циклом перебирать а имя колонок как массив записать?

Собственно, как транспонируется матрица ?
Мы должны пройти по центральной диагонали и всё, что в строке справа от неё, переставить налево.
Есть функция получения содержимого ячейки с координатами x,y и есть функция записи ячейки с теми же координатами - что ещё надо ? (Мозги и синтаксис помощник)

2(12) ну вот смотри дядька, у тебя есть ТЗ.. ты хочешь ее транспонировать... В СП не находишь у ТЗ метода Транспонировать(), потом тебя посещает догадка, что надо бы работать со строками и столбцами... Но в СП тоже нет феункции ЗагрузитьКолонкуВСтроку(), что бы ты посоветовал абстрактному... ну не знаю, древнему греку, если бы он столкнулся с такой задачей?
(обязательное условие: доступа к форумум у него нет, интернета - тоже)

(16)архимед бы и без советов догадался

////////////////////////////////////////
   //ИсходнаяТЗ = ...;    
   ИтоговаяТЗ = Новый ТаблицаЗначений();
   ////////////////////////////////////////
   Индекс = 1;
   ВсегоКолонок = ИсходнаяТЗ.Колонки.Количество();
   ВсегоСтрок = ИсходнаяТЗ.Количество();
   ////////////////////////////////////////
   Пока (Индекс <= ВсегоСтрок) Цикл
       ИтоговаяТЗ.Колонки.Добавить("Колонка" + Строка(Индекс));            
       Индекс = Индекс + 1;
   КонецЦикла;
   ////////////////////////////////////////
   Индекс = 1;
   Пока (Индекс <= ВсегоКолонок) Цикл
       Строка = ИтоговаяТЗ.Добавить();        
       Индекс = Индекс + 1;
   КонецЦикла;
   ////////////////////////////////////////
   Индекс1 = 0;
   ////////////////////////////////////////
   Пока (Индекс1 < ВсегоСтрок) Цикл
       ////////////////////////////////////
       Индекс2 = 0;
       ////////////////////////////////////
       Пока (Индекс2 < ВсегоКолонок) Цикл
           ////////////////////////////////
           ИтоговаяТЗ[Индекс2][Индекс1] = ИсходнаяТЗ[Индекс1][Индекс2];
           ////////////////////////////////    
           Индекс2 = Индекс2 + 1;
           ////////////////////////////////
       КонецЦикла;    
       ////////////////////////////////////
       Индекс1 = Индекс1 + 1;    
       ////////////////////////////////////
   КонецЦикла;
   ////////////////////////////////////////

Мда.. что то сразу технарь вспомнился и матрицы.
1)Сделай массив двумерный.. Зафигач туды ТЗ, поверни , перепиши Тз...
или
2) Сделай массив Зафигач туды ТЗ сразу поварачивая.

Задача детская.

Да это понятно что детская, я же говорю язык 1с хреново знаю
(18)Спасибо)Буду пробовать. Я в принципе так и делал просто не знал что можно
вот так ИтоговаяТЗ[Индекс2][Индекс1]...

(20) +Я тоже не знал =)
ИтоговаяТЗ[Индекс2][Индекс1]...

в (18) наверное всё же правильнее

Для Индекс = 0 По ИсходнаяТЗ.Колонки.Количество() Цикл

КонецЦикла;

и тд...

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

(22) а поменьше ?? пример, вот так :

Процедура Транспонировать(ТЗ)
 буфер=СоздатьОбъект("ТаблицаЗначений");
 СЗ=СоздатьОбъект("СписокЗначений");
 Для счКолонок=1 По ТЗ.КоличествоСтрок() Цикл
   ТЗ.Выгрузить(СЗ,счКолонок,счКолонок);
   СЗ.Выгрузить(буфер);
   ТЗ.Заполнить(СЗ,счКолонок,счКолонок);
 КонецЦикла;
 ТЗ.Загрузить(буфер);
КонецПроцедуры

(23) Речь о восьмерке

Сделал как в (24) спасибо все четко))