Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 23.04.2017, 15:43   #1
Sysel
 
Регистрация: 13.04.2013
Сообщений: 2
Печаль

Подскажите, в чем проблема, уже битый час не могу понять где ошибка.
Дана некоторая матрица:

Код:
Aij: array of array of double;
После ввода размерности, ее строкам и столбцам присваивается длинна:

Код:
  SetLength(Aij,N);
  for i:=0 to N-1 do
    SetLength(Aij[i],N);
И матрица заполняется по определенному закону.

Допустим, у нас есть матрица:

Цитата:
Сформирована матрица Aij:
100 144 196 256 324
400 484 576 100 144
196 256 324 400 484
576 100 144 196 256
324 400 484 576 100
С помощью данного кода отображаем матрицу:

Код:
  writeln('Меняем местами области матрицы согласно рисунку:');
    for i:=0 to N-1 do
      for j:=0 to N-1 do
        begin
        temp := Aij[i,j];
        Aij[i,j] := Aij[N-i-1,N-j-1];
        Aij[N-i-1,N-j-1] := temp;
        end;
  print(Aij);
Но на выходе имеем:

Цитата:
Меняем местами области матрицы согласно рисунку:
100 144 196 256 324
400 484 576 100 144
196 256 324 400 484
576 100 144 196 256
324 400 484 576 100
Причем при отладке, внутри цикла он ее отображает, но как только выходит из цикла - значение остаются прежними.
Что я делаю не так? Не могу понять.

Решение:

Проблема решена, можно закрывать.
Два раза менял относительно диагонали числа, и по сути они вставали на свои места)

Последний раз редактировалось Вадим Мошев; 12.05.2018 в 13:11.
Sysel вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Дан массив из 17 элементов. Сформировать их них матрицу 9X9, в ней элементы симметрично относительно побочной диагонали. jokoyaa Помощь студентам 1 14.03.2017 23:18
pascal или Delphi: массив A[n,n]. Если на главной диагонали нет отрицательных элементов, то элементы побочной диагонали - удвоить, Ману Помощь студентам 3 29.05.2014 18:00
поменять элементы относительно побочной диагонали и вывести на экран(delphi) tane Помощь студентам 4 25.01.2014 00:45
Повернуть матрицу относительно побочной диагонали Purr Помощь студентам 5 18.05.2010 18:56
Транспонирование матрицы относительно побочной диагонали CodeExpert Помощь студентам 2 18.01.2010 10:28