VPF::[Pascal]Присвоить столбцам строки двумерного

stopres

Дата 16.11.2009, 00:50 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 16.11.2009

Репутация: нет
Всего: нет

Срочно нужна Ваша помощь.

В общем есть двумерный массив. В нём надо присвоить(чтобы было равно) 1-му столбцу 1-ую строчку,

2-ому столбцу 2- строчку и тд

и алгоритм чтобы был универсален

заранее спасибо

t_gran

Дата 16.11.2009, 10:13 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 621
Регистрация: 13.11.2007
Где: г.Усть-Илимск

Репутация: 33
Всего: 37

Времени не было долго тестить, а так вроде работает. smile

Код


type
   TArray=   array [0..0] of integer;
   TPArray=  ^TArray;
   TMatrix=  array [0..0] of TPArray;
   TPMatrix= ^TMatrix;

{------------------------------------------------}
{Выделяем память под квадратную матрицу}
procedure MatrixGetMem (var theMtx: TPMatrix; n: integer);
var
   i: integer;
begin
   getmem(theMtx, sizeof(TPArray) * n);
   for i:= 1 to n do
      getmem(theMtx^[i], sizeof(integer) * n);
end;
{------------------------------------------------}
{Освобождаем память из под матрицы}
procedure MatrixFreeMem (var theMtx: TPMatrix; n: integer);
var
   i: integer;
begin
   for i:= 1 to n do
      freemem(theMtx^[i], sizeof(integer) * n);
   freemem(theMtx, sizeof(TPArray) * n);
   theMtx:= NIL;
end;
{------------------------------------------------}
{Генерируем случайным образом значения (2-ой порядок)}
procedure MatrixRandom (theMtx: TPMatrix; n: integer);
var
   i, j: integer;
begin
   randomize;
   for i:= 1 to n do
      for j:= 1 to n do
         theMtx^[i]^[j]:= random(89)+10;
end;
{------------------------------------------------}
{Печать матрицы}
procedure MatrixPrint (var theMtx: TPMatrix; n: integer);
var
   i, j: integer;
begin
   for i:= 1 to n do
   begin
      for j:= 1 to n do
         write(theMtx^[i]^[j], ' ');
      writeln;
   end;
end;
{------------------------------------------------}
{Трансформация матрицы}
procedure MatrixTransf (var theMtx: TPMatrix; n: integer);
var
   i, j: integer;
   buff: TPMatrix;
begin
   MatrixGetMem(buff, n);
   for i:= 1 to n do
      for j:= 1 to n do
         buff^[i]^[j]:= theMtx^[j]^[i];
   MatrixFreeMem(theMtx, n);
   theMtx:= buff;
end;
{------------------------------------------------}
var
   n: integer;
   mtx: TPMatrix;

begin
   write('N=');
   readln(n);
   MatrixGetMem(mtx, n);
   MatrixRandom(mtx, n);
   MatrixPrint(mtx, n);
   MatrixTransf(mtx, n);
   writeln;
   MatrixPrint(mtx, n);
   MatrixFreeMem(mtx, n);
end.

Это сообщение отредактировал(а) t_gran - 16.11.2009, 10:14

--------------------

Я знаю, что ничего не знаю© Сократ
user posted image

Lipetsk

Дата 16.11.2009, 10:35 (ссылка)

(нет голосов)

Загрузка ...

в форме ;)

Профиль
Группа: Участник
Сообщений: 180
Регистрация: 28.1.2009
Где: Липецк

Репутация: 1
Всего: 5

транспонирование?

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »