Программирование операций обработки двумерных массивов

[Дима82]

С клавиатуры вводитя произвольная матрица (не более 5*5), после чего делается её контрольный вывод. В заданом столбце матрицы заменить порядок следования элементов на обратный.

Program kz5;
Uses crt;
Const M=5;
      N=5;
Var A: array[1..M,1..N] of real;
    C: array[1..M] of real;
    P,I:1..M;
    Q,J:1..N;
Begin
 Clrscr;
 Write('BBedite razmernost matricy ne bolee 5*5: ');
 Readln(P,Q);
 Writeln('BBedite elementy matricy:');
 For I:=1 to P do 
  For J:=1 to Q do
  Begin
   Write('A[',I: 1,',',J: 1,']=');
   Readln(A[I,J])
  End;
 Writeln('Kontrolnyi Byvod matricy: ');
 For I:=1 to P do
 Begin
  For J:=1 to Q do Write (A[I,J]:4:2,'':3);
  Writeln;
 End;

Я тут начал, но никак не пойму как в заданом столбце матрицы заменить порядок следования элементов на обратный? Помогите, пожалуйста.

[MaTBeu]

Находишь столбец, запоминаешь его индекс. А потом делаешь цикл по строкам, а номер столбца=тот который ты запомнил. Только цикл не от 1 до M а от M до 1. Всего-то.

[Дима82]

Ну, я это примерно понимаю, а вот реализация хромает(опыта маловато), как это должно выглядить?

[А. Долматов]

f:=m div 2; - действие необходимо, чтобы он в обратном направлении не перемещал. Т.е. отбираем только до середины столбца.
for i:=1 to f do
begin
zam:=a[i,3];
a[i,3]:=a[m-(i-1),3];
a[m-(i-1),3]:=zam;
end;

[Дима82]

Program kz5;
Uses crt;
Const M=5;
      N=5;
Var A: array[1..M,1..N] of real;
    C: array[1..M] of real;
    zam:real;
    P,I:1..M;
    Q,J:1..N;
Begin
 Clrscr;
 Write('BBedite razmernost matricy ne bolee 5*5: ');
 Readln(P,Q);
 Writeln('BBedite elementy matricy:');
 For I:=1 to P do
  For J:=1 to Q do
  Begin
   Write('A[',I: 1,',',J: 1,']=');
   Readln(A[I,J])
  End;
 Writeln('Kontrolnyi Byvod matricy: ');
 For I:=1 to P do
 Begin
  For J:=1 to Q do Write (A[I,J]:4:2,'':3);
  Writeln;
 End;
 P:=m div 2;
 For I:=1 to P do
 Begin
 zam:=A[I,3];
 A[I,3]:=A[M-(I-1),3];
 A[M-(I-1),3]:=zam;
 end;
End.

Вот сделал, но не выходит на экран эта замена. В чём ошибка?

[Stilet]

В том что ты не прописал код вывода на экран замененного массива
Вот перед последним эндом пропиши свое

For I:=1 to P do   
 Begin   
  For J:=1 to Q do Write (A[I,J]:4:2,'':3);   
  Writeln;   
 End;

[Дима82]

Program kz5;
Uses crt;
Const M=5;
      N=5;
Var A: array[1..M,1..N] of real;
    C: array[1..M] of real;
    zam:real;
    P,I:1..M;
    Q,J:1..N;
Begin
 Clrscr;
 Write('BBedite razmernost matricy ne bolee 5*5: ');
 Readln(P,Q);
 Writeln('BBedite elementy matricy:');
 For I:=1 to P do
  For J:=1 to Q do
  Begin
   Write('A[',I: 1,',',J: 1,']=');
   Readln(A[I,J])
  End;
 Writeln('Kontrolnyi Byvod matricy: ');
 For I:=1 to P do
 Begin
  For J:=1 to Q do Write (A[I,J]:4:2,'':3);
  Writeln;
 End;
 Writeln('Zamena: ');
 P:=m div 2;
 For I:=1 to P do
 Begin
 zam:=A[I,3];
 A[I,3]:=A[M-(I-1),3];
 A[M-(I-1),3]:=zam;
 end;
 For I:=1 to P do
 Begin
  For J:=1 to Q do Write (A[I,J]:4:2,'':3);
  Writeln;
 End;
 Readln
End.

Не проиходит замена... Что делать?

[А. Долматов]

For I:=1 to P do
For J:=1 to Q do

у тебя конечное количество строк уже не M, а P. Поменяй переменные.

[Дима82]

Поменял ничего не происходит... Может, какая-то другая ошибка.

Program kz5;
Uses crt;
Const M=5;
      N=5;
Var A: array[1..M,1..N] of real;
    C: array[1..M] of real;
    zam:real;
    P,I:1..M;
    Q,J:1..N;
Begin
 Clrscr;
 Write('BBedite razmernost matricy ne bolee 5*5: ');
 Readln(P,Q);
 Writeln('BBedite elementy matricy:');
 For I:=1 to P do
  For J:=1 to Q do
  Begin
   Write('A[',I: 1,',',J: 1,']=');
   Readln(A[I,J])
  End;
 Writeln('Kontrolnyi Byvod matricy: ');
 For I:=1 to P do
 Begin
  For J:=1 to Q do Write (A[I,J]:4:2,'':3);
  Writeln;
 End;
 Writeln('Zamena: ');
 P:=m div 2;
 For I:=1 to P do
 Begin
 zam:=A[I,3];
 A[I,3]:=A[P-(I-1),3];
 A[P-(I-1),3]:=zam;
 end;
 For I:=1 to P do
 Begin
  For J:=1 to Q do Write (A[I,J]:4:2,'':3);
  Writeln;
 End;
 Readln
End.

[А. Долматов]

P:=m div 2;

m - это у тебя константа, а должно быть число строк. До половины столбца. Число строк надо на 2 разделить. Я эту переменную m для примера взял.