Поменять строку и стобец местами в матрице (квадратной)

@Javier · Регистрация: 29.03.2011

Author24 — интернет-сервис помощи студентам

Дана квадратная матрица А(n,n). Поменять местами j-ый столбец и i-ую строку. Элементу Ai,j присвоить значение единицы.
Текст программы на языке программирования

PureBasic

CLS
PRINT "Замена местами строки и столбца"
PRINT
RANDOMIZE TIMER
INPUT "Введите размер квадратной матрицы - ", n
PRINT
'Описание массива
DIM a(n, n)
'Заполнение
FOR i = 1 TO n
   FOR j = 1 TO n
      a(i, j) = INT(RND * 10)
   NEXT j
NEXT i
'Вывод начального массива
FOR i = 1 TO n
   FOR j = 1 TO n
     PRINT a(i, j);
   NEXT j
PRINT
NEXT i
PRINT
INPUT "Введите столбец, который нужно заменить на строку", stolb
INPUT "Введите строку, которую нужно заменить на столбец", strok
PRINT
'Замена
FOR i = 1 TO n
   SWAP a(stolb, i), a(i, strok)
NEXT i
'Вывод конечного результата
PRINT "Конечный результат"
FOR i = 1 TO n
   FOR j = 1 TO n
      PRINT a(i, j);
   NEXT j
PRINT
NEXT i
a(stolb,strok)=1
END

вот до {'Замена} все работает прекрасно а в самой замене что то не так ,вроде меняет , но не путем некоторые не совпадают символы, Помогите как сделать правильнее именно эту часть программы

@кот Бегемот · 11.05.2011, 22:30

PureBasic

CLS
PRINT "Замена местами строки и столбца"
PRINT
RANDOMIZE TIMER
INPUT "Введите размер квадратной матрицы - ", n
PRINT
'Описание массива
DIM a(n, n)
'Заполнение
FOR i = 1 TO n
   FOR j = 1 TO n
      a(i, j) = INT(RND * 10)
   NEXT j
NEXT i
'Вывод начального массива
FOR i = 1 TO n
   FOR j = 1 TO n
     PRINT a(i, j);
   NEXT j
PRINT
NEXT i
PRINT
INPUT "Введите столбец, который нужно заменить на строку", stolb
INPUT "Введите строку, которую нужно заменить на столбец", strok
PRINT
'Замена
FOR i = 1 TO n
   SWAP a( i,stolb), a( strok,i)
NEXT i
'Вывод конечного результата
PRINT "Конечный результат"
FOR i = 1 TO n
   FOR j = 1 TO n
      PRINT a(i, j);
   NEXT j
PRINT
NEXT i
a(stolb,strok)=1
END

	11.05.2011, 22:30