Версия для печати темы

Автор: Mapина 2.07.2007 5:18

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

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

Спасибо.

Автор: samec 2.07.2007 13:10

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

Автор: Mapина 2.07.2007 13:38

http://forum.pascal.net.ru/index.php?showtopic=18375

Автор: Mapина 2.07.2007 14:16

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

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ина 3.07.2007 1:49

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

Автор: Mapина 3.07.2007 5:43

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