Блин... Запарился опять (не про логарифмы)

Вот есть массив данных из одной строки
А1, А2, А3, А4, А5, А6, А7, А8

Надо получить таблицу вида:

А1-А3
А1-А5
А1-А7
А3-А5
А3-А7
А5-А7

Т.е. сделать простой перебор...
Давайте вместе, а...

давайте

А1-А3
А1-А5
А1-А7
А3-А5
А3-А7
А5-А7

на чем ?

аццкий сотона.

хоть на бейсике...

Вместе! Вместе-е! :-)

Сам сказал хоть на чем на :-)


Процедура сформировать()
Массив="А1,А2,А3,А4,А5,А6,А7,А8";
Список=СоздатьОбъект("СписокЗначений");
Для й=1 по 6 Цикл
НомерЗапятой=Найти(Массив,",");
Список=ДобавитьЗначение(Число(Лев(Массив,НомерЗапятой-1);
Массив=Сред(Массив,НомерЗапятой,);
КонецЦикла
Таб=СоздатьОбъект("Таблица");
Таб.НоваяКолонка("Абыр","Строка");
// с 1 по 3
Ф="";
Для й=1 по 3 Цикл
Ф=Ф+","+Список.ПолучитьЗначение(й);
КонецЦикла;
Таб.НоваяСтрока();
Таб.Абыр=Ф;
// с 1 по 5
Ф="";
Для й=1 по 5 Цикл
Ф=Ф+","+Список.ПолучитьЗначение(й);
КонецЦикла;
Таб.НоваяСтрока();
Таб.Абыр=Ф;
///////

/// с 5 по 7
Ф="";
Для й=5 по 7 Цикл
Ф=Ф+","+Список.ПолучитьЗначение(й);
КонецЦикла;
Таб.НоваяСтрока();
Таб.Абыр=Ф;

Таб.ВыбратьСтроку(,,);


вот :-)

begin
writeln('Ф топку матрицу');
writeln('e1 рулез');
writeln('Игрог, сука, кросавчег');
readln;
end;
:-d

Гы-ы-ы.... :-D
Фигассе...
А где у тя в массиве зопитая хрониццо? :-D

John Dow ни фига се за 10 минут ? е -маё :-)

в нашем случаее это просто строка с запятыми :-)

Вложенный цикл надо...
по и от 1 до кол-ва эл-тов, с шагом 2
по йот от и+2 до кол-ва элементов...с шагом 2
массив[и] - массив[йот] - искомые пары....

ну а как к эл-там массива обращаться и таблицу строить сам знаешь...

спосибо уже сделал...

Тема автоматически закрыта.