Всем Привет!1. В текстовом файле хранятся квадратные целочисленные матрицы порядка n. Преобразовать файл, удалив из каждой матрицы элементы побочной диагонали.
Всем Привет!1. В текстовом файле хранятся квадратные целочисленные матрицы
порядка n. Преобразовать
файл, удалив из каждой матрицы элементы побочной диагонали.
Гость
Ответ(ы) на вопрос:
Гостьconst
n = 3;
type
M = array[1..3, 1..3] of integer;
var
i, j: integer;
f: Text;
a, b: M;
s:string;
begin
Assign(f, 'input.dat');
Reset(f);
writeln('Считываемые данные');
for i := 1 to n do
begin
for j := 1 to n do
begin
read(f, a[i, j]);
write(a[i, j]:4)
end;
writeln
end;
writeln;
for i := 1 to n do
begin
for j := 1 to n do
begin
read(f, b[i, j]);
write(b[i, j]:4)
end;
writeln
end;
Close(f);
Rewrite(f);
for i := 1 to n do
for j := 1 to n do
if j <> n + 1 - i then
write(f, a[i, j], ' ');
writeln(f);
for i := 1 to n do
for j := 1 to n do
if j <> n + 1 - i then
write(f, b[i, j], ' ');
writeln(f);
Close(f);
Reset(f);
writeln('Данные, перезаписанные в файл');
while not eof(f) do
begin
readln(f,s);
writeln(s)
end;
Close(f);
writeln
end.
Тестовое решение:
Считываемые данные
2 3 7
4 3 1
8 9 6
14 3 12
5 -2 8
6 0 13
Данные, перезаписанные в файл
2 3 4 1 9 6
14 3 5 8 0 13
Не нашли ответ?
Похожие вопросы