Поменять столбцы в массиве

[Wildstudent]

Дан массив 3х3
5,123 -0,71 1,16
-4,82 2,85 5,19
-9,64 8,41 3,27
Переставить столбцы в обратном порядке.
Задачу нужно решить с использованием Function ума не приложу куда его воткнуть. Заранее благодарен.

[Stilet]

Переставить столбцы в обратном порядке.

Переставить физически или можно просто вывести их на экран в обратном порядке?

[Wildstudent]

Как я понимаю физически, в противном случае такую задачу мне бы врятли дали

[Stilet]

Ну я бы делал так: Переписал с конца массива поколонно во второй массив, а потом первый затер вторым.

[Wildstudent]

Получилось что то вроде этого:
program prog;
uses crt;
const a:array [1..3,1..3] of real=((5.123, -0.71, 1.16),(-4.28,-2.85,5.19),(-9.64,8.41,3.27));
var i,j:integer; b:real;
begin
clrscr;
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
write (a[i,j]:0:3,' ');
end;
writeln;
end;
writeln;
writeln;
j:=3;
for i:=1 to 3 do
begin
b:=a[i,j-2];
a[i,j-2]:=a[i,j];
a[i,j]:=b;
end;
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
write (a[i,j]:0:3,' ');
end;
writeln;
end;
readln;
end.
Использовал переменную в неё записывал переменную с третьего столбца, в третий столбец с первого, а в первый с переменной. Но как тут function приписать.

[Stilet]

Ну например так:

program prog;
uses crt;
const a:array [1..3,1..3] of real=((5.123, -0.71, 1.16),(-4.28,-2.85,5.19),(-9.64,8.41,3.27));
var i,j:integer; b:real;

 Function q:boolean;
 begin
  j:=3;
  for i:=1 to 3 do  begin
   b:=a[i,j-2];
   a[i,j-2]:=a[i,j];
   a[i,j]:=b;
  end;
 end;

begin
clrscr;
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
write (a[i,j]:0:3,' ');
end;
writeln;
end;
writeln;
writeln;

 q;

for i:=1 to 3 do begin
 for j:=1 to 3 do begin
  write (a[i,j]:0:3,' ');
 end;
 writeln;
end;

readln;
end.