матрица в файле

[Mapина]

требуется чтобы f: file of integer;

Пусть матрица А целых чисел размером10х10 записана по строкам в файле. Перенесите в новый файл m ный столбец матрицы(m задаётся вводом).

Спасибо.

что-то такое должно как я понимаю получится?

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  windows;
 
const
    n=10;
var
    i, j, m, t : integer;
    filename_in, filename_out : string;
    f_in, f_out : file of integer;
begin
    Write('Исходный: ');
    readln(filename_in);
    Write('результат : ');
    readln(filename_out);
    write('столбец: ');
    readln(m);
    AssignFile(f_in, filename_in);
    reset(f_in);
    AssignFile(f_out, filename_out);
    rewrite(f_out);
    for i := 1 to n do
      begin
        for j := 1 to m do
          read(f_in );
        write(f_out);
      end;
    closefile(f_in);
    closefile(f_out);
end.

не пойму как можно задействовать тут (m-1), а преподователь требует!

[Carbon]

var f_in,f_out:textfile;
     m,item,i,j:integer;

begin
  assignfile(f_in,'matrix.txt');
  assignfile(f_out,'column.txt');
  reset(f_in);
  rewrite(f_out);
  writeln('Input m');
  readln(m);
  for i:=1 to 10 do
    for j:=1 to 10 do
    begin
      read(f_in,item);
      if j=m then write(f_out,item,' ')
    end; 
  closefile(f_out);
  closefile(f_in);
end.

[Mapина]

подобным способом я уже решала...

Но требуется чтобы f_in: file of integer;

[Mapина]

вот ещё вариант:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  windows;

const
    n=10;
var
    i, j, m, t : integer;
    filename_in, filename_out : string;
    f_in, f_out : file of integer;
begin
    Write('Исходный: ');
    readln(filename_in);
    Write('результат : ');
    readln(filename_out);
    write('столбец: ');
    readln(m);
    AssignFile(f_in, filename_in);
    reset(f_in);
    AssignFile(f_out, filename_out);
    rewrite(f_out);
    for i := 1 to n do
      begin
        seek(f_in, (i-1)*n+m-1);
          read(f_in, t);
        write(f_out, t);
      end;
    closefile(f_in);
    closefile(f_out);
end.

[Carbon]

По идее в моём примере можно просто заменить textfile на file of integer, убрав пробел в write.

(Хотя уже лет 100 не работал с типизированными файлами)

[Mapина]

но тогда и

assignfile(f_in,'matrix.txt');
assignfile(f_out,'column.txt');

f_in не *.txt...

[Mapина]

вот решила, только теперь необходима программа, которая создаёт типизированный файл(*.dat), содержащий матрицу 10х10!

1 2 3 4 5 6 7 8 9 0
1 2 3 4 5 6 7 8 9 0
1 2 3 4 5 6 7 8 9 0
1 2 3 4 5 6 7 8 9 0
1 2 3 4 5 6 7 8 9 0
1 2 3 4 5 6 7 8 9 0
1 2 3 4 5 6 7 8 9 0
1 2 3 4 5 6 7 8 9 0
1 2 3 4 5 6 7 8 9 0
1 2 3 4 5 6 7 8 9 0

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  windows;

const
    n=10;
var
    i, j, m, t : integer;
    filename_in, filename_out : string;
    f_in, f_out : file of integer;
begin
    Write('Исходный: ');
    readln(filename_in);
    Write('результат : ');
    readln(filename_out);
    write('столбец: ');
    readln(m);
    AssignFile(f_in, filename_in);
    reset(f_in);
    AssignFile(f_out, filename_out);
    rewrite(f_out);
    for i := 1 to n do
      begin
        seek(f_in, (i-1)*n+m-1);
          read(f_in, t);
        write(f_out, t);
      end;
    closefile(f_in);
    closefile(f_out);
end.

[Carbon]

f_in не *.txt...

Какая разница, какое расширение?

[Mapина]

так требует преподователь!
f: file of integer;

[zetrix]

только теперь необходима программа, которая создаёт типизированный файл(*.dat), содержащий матрицу 10х10!

for i:=1 to 100 do write(f,random(100));

В типизированном файле всё последовательно хранится, так что заморочек нет.