Question

Wykonać transportowanie macierzy kwadratowy względnej jej głównej przekątnej. Wymiary definiowane sa za pomocą stałych. Tablice powinny znajdować się liczby załkowite 4 cyfrowe. Wartości powinny być generowane losowo.Indeksowani tablica dwuwymiarowa. Dev pascal.

const l=22; m=3;
var tab : array [22..26, 22..26] of integer;
a,b : integer;
begin
randomize;
for a:=22 to 26 do
for b:=22 to 26 do
tab[a,b]:=random(89)+10;
for a:=22 to 26 do
begin
for b:=22 to 26 do
write(tab[a,b],' ');
writeln;

end;
readln;
end.

To ma wyglądać tak jak jest w załączniku.

Answer 1

Wybacz, niestety nie posiadam Dev Pascala, dlatego napisalem w FPC, ale wydaje mi się, że na tyle uniewersalnie, że uruchomisz we wszystkim ;) Proszę:

 

Program macierz;

CONST R=10;

Var tab:array[1..R,1..R] of integer;
    i,j:integer;

Procedure losuj;
 Begin
  Randomize;
  For i:=1 to R do
     For j:=1 to R do
        tab[i][j]:=1000+random(9000);
 End;

Procedure drukuj;
 Begin
  WriteLn;
  WriteLn('Tablica: ');
  For i:=1 to R do
   Begin
     For j:=1 to R do Write(tab[i][j],' ');
     Writeln;
   End;
  Writeln;
 End;

Procedure przenies;
 Var pom:integer;
 Begin
  For i:=1 to R do
    For j:=i+1 to R do
      Begin
       pom:=tab[i][j];
       tab[i][j]:=tab[j][i];
       tab[j][i]:=pom;
      End;
 End;

Begin
 losuj;
 drukuj;
 przenies;
 drukuj;
 readln;
End.

 

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

Oczywiście stała "R" to rozmiar macierzy R x R