Написать программу, которая транспонирует матрицу и дописывает её в данный файл. - Pascal ABC

Формулировка задачи:

Вот задание: Матрица 5x5 хранится в текстовом файле mdata.txt. Написать программу, которая транспонирует матрицу и дописывает её в данный файл. Буду очень признательна за помощь, так как я столкнулась с такой работой впервые, и мне тяжело сообразить. Спасибо!


textual

Код к задаче: «Написать программу, которая транспонирует матрицу и дописывает её в данный файл. - Pascal ABC»

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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

8   голосов, оценка 4.000 из 5

Источник
Похожие ответы