Преобразование матрицы. (транспонирование)

[AndyShafl]

Выполнить следующее преобразование с квадратной матрицей: B= B^T (транспонировать).


Сие чудо нужно сделать в консольке... сам разобраться немогу... не усвоил процедуры (а сделать нужно именно применив таковые)
Заранее спасибо за помощь...

[RoS]

Транспонирование - запись i-ой строки в j-ый столбец, т.е.

int A[MAX][MAX]; //исходная
int T[MAX][MAX]l; //транспонированная

for (i=0;i<MAX;i++)
for (j=0;j<MAX;j++)
T[j][i]=A[i][j];

Ну или как-то так

[AndyShafl]

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

[RoS]

Сообщение от AndyShafl

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

Если честно - я не знаю, как писать процедуры (функции) на делфи, но вот этот блок тебе нужно обособить, передавать в него массив исходный, и менять его в функции, либо возвращать измененную матрицу!

[AndyShafl]

Еще актуально... немогу разобраться с процедурами.

[Serge_Bliznykov]

const ArraySize = 10;
type MyArray = array[1..ArraySize,1..ArraySize] of integer;

procedure Transpose( var B,T : MyArray);
var i,j : integer;
begin
  // а вот, собственно, транспонирование
  for I := 1 to ArraySize do
    for J := 1 to ArraySize do
       T[J,I] := B[I,J];

end;
...

[AndyShafl]

const ArraySize = 10;
type MyArray = array[1..ArraySize,1..ArraySize] of integer;

procedure Transpose(var B,T:MyArray);
var i,j : integer;
begin
  // à âîò, ñîáñòâåííî, òðàíñïîíèðîâàíèå
  for I := 1 to ArraySize do
    for J := 1 to ArraySize do
       T[J,I] := B[I,J];

end;
procedure vivod;
var i,j:integer;
begin
write('T[',J,',',i,']=');
writeln('=====================================');
writeln('B[',i,',',j,']=');
end;
begin
transpose(B,T);
vivod;
end;
end.

руки кривые, чего тут взять, ничего не получается.

[Serge_Bliznykov]

1) в начале Вы забыли описать переменные типа МояМатрица:

var
  B,T : MyArray;

кстати, их имена АБСОЛЮТНО не зависят от имён формальных переменных (параметров, которые использовались при описании процедур/функций...
например,
процедура
procedure Transpose(var B,T:MyArray);
...
перед главным begin описание переменных:
var
MassivSrc, MassivResult : MyArray;
begin
..
вызов процедуры:
transpose(MassivSrc, MassivResult);


2) А КТО, по Вашему исходный массив заполнит?!?
Это ОБЯЗАТЕЛЬНО нужно сделать!
Можно заставить вводить элементы пользователя (правда 100 чисел ввести - занятие для сильноусидчивых!!)
либо, ЛУЧШЕ - заполнить случайными числами..
например, так:

procedure InitArray(var A:MyArray);
var i,j : integer;
begin
  for I := 1 to ArraySize do
    for J := 1 to ArraySize do
       A[I,J] := random(100);
end;

var B,T:MyArray;
begin
   Randomize;
   InitArray(B);
   vivod(B);
   transpose(B,T);
   vivod(T);
   writeLn('pause. For continue press Enter');
   readln;
end.

3) процедура vivod неверна!
там БРЕД внутри описан...
похоже, что Вы вообще не понимаете, что такое матрица, для чего нужно два вложенных цикла (по i и j) как Вы сдавать работу собираетесь!?! ;(

4) и последнее замечание.
про процедуру vivod (когда Вы сделаете вывод нормально!)
Обратите внимание. если Вы уж делаете на процедурах программу, так позаботесь о том, чтобы НЕ ИСПОЛЬЗОВАТЬ ГЛОБАЛЬНЫЕ ПЕРЕМЕННЫЕ (все необходимые в работе функции/процедуры переменные должны или описываться внутри (и тогда они называются локальные переменные), либо передаваться в эту процедуру/функцию как параметры!! и никак иначе! Использование глобальных переменных зло! (и лично я бы снизил за это оценку!)

[AndyShafl]

Спасибо, буду разбираться.

[AndyShafl]

program GJworkcomplete;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const ArraySize = 5;
type MyArray = array[1..ArraySize,1..ArraySize] of integer;
var
  B,T : MyArray;
   procedure InitArray(var B:MyArray);
var i,j:integer;
begin
 randomize;
     for i:=1 to 5 do
     for j:=1 to 5 do
     B[i,j]:=random(8);
    begin
     writeln;
     for i:=1 to 5 do
    begin
     writeln;
     for j:=1 to 5 do
write(B[i,j],' ');
end;
     end;
     end;

procedure Transpose( var B: MyArray);
var i,j : integer;
begin
   writeln;
     for j:=1 to 5 do
   begin
     writeln;
     for i:=1 to 5 do
     write(B[i,j],' ');
   end;
     end;

begin
Randomize;
  InitArray(B);
    transpose(B);
      writeln;
     writeln;
  writeLn('pause. For continue press Enter');
   readln;
end.

вот что получилось, может где нетак чего сделал, но работает так как и требовалось.

Serge_Bliznykov
Спасибо, без тебя бы я не вник в процедуры, объяснил, лучше моего учителя.