Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

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

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

Код:
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 в 14:11.
Sysel вне форума  
Закрытая тема

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Дан массив из 17 элементов. Сформировать их них матрицу 9X9, в ней элементы симметрично относительно побочной диагонали. jokoyaa Помощь студентам 1 15.03.2017 00: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 11:28


22:41.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.