Написать программу, которая транспонирует матрицу и дописывает её в данный файл. - Pascal ABC
Формулировка задачи:
Вот задание: Матрица 5x5 хранится в текстовом файле mdata.txt. Написать программу, которая транспонирует матрицу и дописывает её в данный файл. Буду очень признательна за помощь, так как я столкнулась с такой работой впервые, и мне тяжело сообразить. Спасибо!
Решение задачи: «Написать программу, которая транспонирует матрицу и дописывает её в данный файл.»
textual
Листинг программы
const n=5; //размер массива var f:text; //переменная текстового типа a:array[1..n,1..n] of integer;//двумерный массив i,j,x:integer; begin assign(f,'mdata.txt');//файл в папке с программой reset(f);//откпоем его для чтения for i:=1 to n do for j:=1 to n do read(f,a[i,j]); //прочитаем //транспонируем, меняя элементы for i:=2 to n do //ниже шлавной диагонали for j:=1 to i-1 do begin x:=a[i,j]; a[i,j]:=a[j,i];//с симметричными им элементами выше диагонали a[j,i]:=x; end; append(f);//открываем файл для дозаписи writeln(f); //перехлд на новую строку writeln(f); //+ пропуск строки for i:=1 to n do //пишем транспонированную матрицу begin for j:=1 to n do write(f,a[i,j]:3); writeln(f); end; close(f); write('Матрица прочитана, транспонирована и дописана в файл') end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д