Hej,
biorę się za programowanie średnio co pół roku dlatego ciągle borykam się z podstawowymi problemami.
Mam tablicę dwuwymiarową i chciałbym przerzucić jej kolumny z kolumnami i wiersze z wierszami (odwrócić o 180 stopni). Dokładnie to znaczy, że to:
A4 B4 C4 D4
A3 B3 C3 D3
A2 B2 C2 D2
A1 B1 C1 D1
chcę zamienić na to:
D1 C1 B1 A1
D2 C2 B2 A2
D3 C3 B3 A3
D4 C4 B4 A4
oczywiście udało mi się to osiągnąć robiąc tak:
for i:=0 to 3 do
for j:=0 to 1 do
begin
tmp:=a[j,i];
a[j,i]:=a[3-j,i];
a[3-j,i]:=tmp;
end;
for i:=0 to 3 do
for j:=0 to 1 do
begin
tmp:=a[i,j];
a[i,j]:=a[i,3-j];
a[i,3-j]:=tmp;
end;
https://rextester.com/ABNTKC95084
Ale mam wrażenie, że to jest mega rozwlekle napisane i dałoby się to zrobić za jednym zamachem. Nie jestem jednak w stanie sobie tego wyobrazić. Czy moje rozwiązanie jest ok czy jednak dałoby się to skrócić?
Proszę o pomoc :)