|
Вопрос # 4 273/ вопрос открыт / |
|
Здравствуйте, эксперты!
Дан 3-мерный массив,преобразовать в одномерный.Помогите, пожалуйста!!!
 |
Вопрос задала: Irisha (статус: Посетитель)
Вопрос отправлен: 3 июня 2010, 18:41
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: Кириченко Сергей
Здравствуйте, Irisha!
У я так представляю себе решение этого вопроса:
Приложение: Переключить в обычный режим-
-
- //T3DArray = array of array of array of variant;
-
- //TVector = array of variant;
-
-
- function MakeVektor (Massiv3D:T3Darray;len:integer):TVector;
- var
- i,j,k,z:integer;
- begin
- z:=0 ;
-
- for i:=0 to length (Massiv3D)-1 do
- for j:=0 to length(Massiv3D[0])-1 do
- for k:=0 to length(Massiv3D[0,0])-1 do
- begin
- Result[z]:=Massiv3D[i,j,k];
- z:=z+1;
- end;
- end;
 |
Ответ отправил: Кириченко Сергей (статус: 1-ый класс)
Время отправки: 4 июня 2010, 13:38
|
Мини-форум вопроса
Всего сообщений: 2; последнее сообщение — 4 июня 2010, 01:00; участников в обсуждении: 2.
|
min@y™ (статус: Доктор наук), 3 июня 2010, 22:44 [#1]:
Есть такая волшебная функция Move()...
Тоже мне проблема!...
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
Вадим К (статус: Академик), 4 июня 2010, 01:00 [#2]:
Есть много способов.
Приведите идею,как именно это должно выглядеть, а мы и с кодом авось подскажем.
Галочка "подтверждения прочтения" - вселенское зло.
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
