Перенос в новый файл столбца матрицы

Категория: Delphi/Pascal
2011-09-02 23:33:45

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

code: #delphi
  1. program Project2;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. uses
  6.   SysUtils,
  7.   windows;
  8.  
  9. const
  10.     n=10;
  11. var
  12.     i, j, m, t : integer;
  13.     filename_in, filename_out : string;
  14.     f_in, f_out : file of integer;
  15. begin
  16.     Write('Исходный: ');
  17.     readln(filename_in);
  18.     Write('результат : ');
  19.     readln(filename_out);
  20.     write('столбец: ');
  21.     readln(m);
  22.     AssignFile(f_in, filename_in);
  23.     reset(f_in);
  24.     AssignFile(f_out, filename_out);
  25.     rewrite(f_out);
  26.     for i := 1 to n do
  27.       begin
  28.         seek(f_in, (i-1)*n+m-1);
  29.           read(f_in, t);
  30.         write(f_out, t);
  31.       end;
  32.     closefile(f_in);
  33.     closefile(f_out);
  34. end.
Поделиться:

Похожие статьи:

теги: студенты, массив, двумерный массив, консольное приложение, файлы, матрица, работа с файлами