Дана матрица размера M*N.Зеркально отразить ее элементы

[Ильдар ХАЛИКОВ]

помогите написать программу!
Дана матрица размера M*N.Зеркально отразить ее элементы относительно горизонтальной оси симметрии матрицы (при этом поменяются местами строки с номерами 1 и M, 2 и M- 1 и т.д.)НЕ следуют использовать вспомогательные двумерные массивы-матрицы.Для отладки программы исходную матрицу сформировать с помошью генератора случайных чисел.
Спасибо за помощь!
по ссылке http://www.programmersforum.ru/showt...9251#post89251 там помоему что то не так.помогите

[Карась]

А что там не так?
Код puporev'a на мой взгляд самый удачный. Из предложеных.

[Ильдар ХАЛИКОВ]

программа имеет вид:

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


и всё да?дело в том что я вообще не понимаю в Pascal

[Карась]

Нет, это не вся программа.
Для того чтоб эта программа была готова, нужно дописать раздел переменных, заполнить массив, обработать его (код puporev'a) и вывести на экран.

Вы разбирались с примером который я дал неделю, наверное, назад?
Вот он (если вдруг забыли)

Вот например, вместо куска кода который я прокамертировал как "// Обнуляем всё что ниже гл. диагонали" нужно вставить немного изменённый код puporev'a (кстати вы не забыли поставить ему плюсик?)

Ну так вообщем нужно заменить только буквы которые отвечают за:
1. Строки и столбцы.
2. За размерность. (По умолчанию в моём коде квадратный массив 10х10)
3. И имя массива.

Если вы не будете разбирать и не поймёте эти наипростейшии программы, то Паскаль будет непонятным всегда. Купите/скачайте любую книгу по паскалю. Одной недели чтения хватит, чтоб научиться самостоятельнно писать эти программы.

ЗЫ: Щас модераторы будут стучать по голове за:
1. Две одинаковых темы в одном разделе.
2. Название темы.
3. За много постов-апов (пользуйтесь кнопкой изменить)
4. Ну и пользуйте тег КОД, для публикация кодов.

[Ильдар ХАЛИКОВ]

исправьте пожалуйста!сделайте как надо!

var x,y,n:Byte;
M:array [1..10,1..10] of Byte;
begin
Randomize;
for x:=1 To 10 Do
For y:=1 To 10 Do
M[x,y]:=Random(5)+1;
for x:=m downto 1 do
begin
for y:=1 to n do
begin
write(n[x,y]:3);
end;
writeln;
End;
For x:=1 To 10 Do
begin
For y:=1 To 10 Do
Write(M[x,y],'');
writeln;
End;
Readln;
end.

[Карась]

Уже лучше.


Var x, y, n : Byte; // Переменная n ненужна уже.
M : array [1..10,1..10] of Byte;
begin
Randomize;
for x:=1 To 10 Do
For y:=1 To 10 Do
M[x,y]:=Random(5)+1;

for x := m downto 1 do // У нас размерность 10.
begin
for y:=1 to n do //У нас размерность 10.
begin
// Сдесь мы обращаемся к массиву M.......Write (M[x,y]);....
// Цифру три (после двоеточия) надо убрать ибо у нас тип Byte;
write(n[x,y]:3);
end;
writeln;
End;
For x:=1 To 10 Do
begin
For y:=1 To 10 Do
Write(M[x,y],'');
writeln;
End;
Readln;
end.

[Карась]

До пятницы есть ещё один день. Его с головой хватит чтоб чтото подучить...
Но судя по всему ты не излечим...

Var x, y : Byte;
      M : array [1..10,1..10] of Byte;

Begin

Randomize;
For x := 1 To 10 Do
  For y := 1 To 10 Do
    M[x,y]:= Random(5) + 1;

Writeln('Isxodnay matrica:');
For x := 10 downto 1 do
  Begin
    For y := 1 To 10 Do
      Write(M[x,y],' ');
    Writeln;
  End;

Writeln; Writeln; Writeln('Kone4nay matrica:');
For x := 1 To 10 Do
  Begin
    For y := 1 To 10 Do
      Write(M[x,y],' ');
    Writeln;
  End;

Readln;

end.