Turbo Pascal Напишите, пожалуйста, программу для считывания из файла квадратной матрицы,...

Question

Turbo Pascal

Напишите, пожалуйста, программу для считывания из файла квадратной матрицы, и её транспонирования.

Comments

Транспортирования в другой файл ?

---

Просто считать и транспонировать - никуда выводить не надо))

---

транспортировать означает перенаправить в другую область какую ?

---

хотя сорь лень извращатся помочь не смогу

---

Транспонировать - значит сделать строки - столбцами.

---

Вам серьёзно 43 года ?

---

Где написано, что мне 43?..

Answer 1

Const n=4;
var f:text;
a:array[1..n,1..n] of integer;
i,j,t:integer;
begin
writeln('1:');
assign(f,'my.txt');
reset(f);
for i:=1 to n do
 begin
 for j:=1 to n do
  begin
  read(f,a[i,j]);
  write(a[i,j]:3);
  end;
 readln(f);
 writeln;
 end;
close(f);
for i:=1 to n do
 for j:= i+1 to n do
 begin
  t:=a[i,j]; a[i,j]:=a[j,i]; a[j,i]:=t;
 end;
writeln('2:');
for i:=1 to n do
 begin
 for j:=1 to n do write(a[i,j]:3);
 writeln;
 end;
end.

Пример:
Файл my.txt:
23 28 19 23
34 14 8 14
44 20 14 48
38 47 20 41

Результат:
1:
23 28 19 23
34 14  8 14
44 20 14 48
38 47 20 41
2:
23 34 44 38
28 14 20 47
19  8 14 20
 23 14 48 41  

Comments

Простите, а если размерность заранее не известна?

---

Можно использовать динамический массив в этом случае.