матрица в файле, m-ный столбец Опции

[Mapина]

задача уже была решена при f:text;
а требуется чтобы f: file of integer;

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

Спасибо.

[samec]

задача уже была решена при f:text;

а можно на решение взглянуть?

[Mapина]

Сайт

Сообщение отредактировано: Mapина - 2.07.2007 9:39

[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
        for j := 1 to m do
          read(f_in );
        write(f_out);
      end;
    closefile(f_in);
    closefile(f_out);
end.

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

[Mapина]

ответьте мне пожалуйста или хотя бы натолкните на правильный ход мысли! Стараюсь решать как могу! а завтра сдать нужно!

[Mapина]

спасибо......=(

Сообщение отредактировано: Mapина - 3.07.2007 1:44