(Есть файл с матрицей, но загрузить его, к сожелению, не могу.)
Пусть матрица А целых чисел размером10х10(а не 100х100 как в решении задачи) записана по строкам в файле. Перенесите в новый файл m ный столбец матрицы(m задаётся вводом).
Код
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils, windows;
type
Tmatr = array[1..10, 1..10] of integer;
var
A : Tmatr;
procedure Input(var A : Tmatr);
var
i, j : integer;
filename : string;
f : text;
begin
Write('Введи имя исходного файла : ');
readln(filename);
AssignFile(f, filename);
reset(f);
for i := 1 to 10 do
begin
for j := 1 to 10 do
read(f, a[i,j]);
readln(f);
end;
closefile(f);
end;
procedure Output(A : Tmatr);
var
i, m : integer;
filename : string;
f : text;
begin
write('Столбец для копирования : ');
readln(m);
Write('Введи имя результирующего файла : ');
readln(filename);
AssignFile(f, filename);
rewrite(f);
for i := 1 to 10 do
writeln(f, a[i,m]);
closefile(f);
end;
begin
SetConsoleCp(1251);
SetConsoleOutputCP(1251);
Input(a);
Output(a);
readln;
end.
{$APPTYPE CONSOLE}
uses
SysUtils, windows;
type
Tmatr = array[1..10, 1..10] of integer;
var
A : Tmatr;
procedure Input(var A : Tmatr);
var
i, j : integer;
filename : string;
f : text;
begin
Write('Введи имя исходного файла : ');
readln(filename);
AssignFile(f, filename);
reset(f);
for i := 1 to 10 do
begin
for j := 1 to 10 do
read(f, a[i,j]);
readln(f);
end;
closefile(f);
end;
procedure Output(A : Tmatr);
var
i, m : integer;
filename : string;
f : text;
begin
write('Столбец для копирования : ');
readln(m);
Write('Введи имя результирующего файла : ');
readln(filename);
AssignFile(f, filename);
rewrite(f);
for i := 1 to 10 do
writeln(f, a[i,m]);
closefile(f);
end;
begin
SetConsoleCp(1251);
SetConsoleOutputCP(1251);
Input(a);
Output(a);
readln;
end.