Запись в типизированный файл по строкам

procedure TForm1.Button1Click(Sender: TObject);
const
  Fn = 'file.dat';
  //Величина приращения длины динамического массива по строкам.
  Capacity = 10;
var
  F : file of Extended;
  Arr : array of array of Extended;
  Num : Extended;
  i, j, M : Integer;
  FileName : String;
begin
  FileName := ExtractFilePath(ParamStr(0)) + Fn;
  if not FileExists(FileName) then begin
    ShowMessage('Файл с данными не найден. Действие отменено.');
    Exit;
  end;
 
  AssignFile(F, FileName);
  Reset(F);
  //Читем и анализируем сведения о количестве столбцов.
  Num := 0;
  if not Eof(F) then Read(F, Num);
  M := Trunc(Num);
  if M <= 0 then begin
    ShowMessage('Неверный формат файла. Действие отменено.');
    CloseFile(F);
    Exit;
  end;
 
  //Теперь читаем из файла следующие элементы и записываем их построчно в массив.
  i := 0;
  while not Eof(F) do begin
    //Если требуется, увеличиваем размер динамического массива.
    if i = Length(Arr) then SetLength(Arr, i + Capacity, M);
    //Читаем данные очередной строки.
    j := 0;
    while not Eof(F) do begin
      Read(F, Arr[i, j]);
      //Количество прочитанных элементов строки (столбцов).
      Inc(j);
      //Если прочитали М элементов - значит надо перейти к следующей строке.
      if j = M then Break;
    end;
    //Количество прочитанных строк.
    Inc(i);
  end;
  CloseFile(F);
  //Корректируем размер массива.
  if i < Length(Arr) then SetLength(Arr, i);
 
  //Теперь в массив Arr записаны элементы из файла F.
  //Сейчас в переменной i записано количество прочитанных строк,
  //а в переменной j - количество прочитанных элементов в последней строке массива.
  //...
end;

Arr : array[1..N, 1..M] of Extended;

procedure TForm1.Button1Click(Sender: TObject);
const
  Fn = 'file.dat';
  N = 100;
  M = 20;
var
  F : file of Extended;
  Arr : array[1..N, 1..M] of Extended;
  Num : Extended;
  i, j, Mf : Integer;
  FileName : String;
begin
  FileName := ExtractFilePath(ParamStr(0)) + Fn;
  if not FileExists(FileName) then begin
    ShowMessage('Файл с данными не найден. Действие отменено.');
    Exit;
  end;
 
  AssignFile(F, FileName);
  Reset(F);
  //Читем и анализируем сведения о количестве столбцов.
  Num := 0;
  if not Eof(F) then Read(F, Num);
  Mf := Trunc(Num);
  if Mf <= 0 then begin
    ShowMessage('Неверный формат файла. Действие отменено.');
    CloseFile(F);
    Exit;
  end;
  if Mf > M then begin
    ShowMessage('Количество столбцов в массиве меньше, чем в файле. Данные будут усечены.');
    Mf := M;
  end;
 
  //Теперь читаем из файла следующие элементы и записываем их построчно в массив.
  i := 0;
  while not Eof(F) do begin
    //Количество прочитанных строк.
    Inc(i);
    //Читаем данные очередной строки.
    j := 0;
    while not Eof(F) do begin
      //Количество прочитанных элементов строки (столбцов).
      Inc(j);
      Read(F, Arr[i, j]);
      //Если прочитали Мf элементов - значит надо перейти к следующей строке.
      if j = Mf then Break;
    end;
    //Если это последняя строка массива, то прерываем чтение из файла.
    if i = N then Break;
  end;
  CloseFile(F);
 
  //Теперь в массив Arr записаны элементы из файла F.
  //Сейчас в переменной i записано количество прочитанных строк,
  //а в переменной j - количество прочитанных элементов в строке i.
  //...
end;

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,windows;
const
  nmax = 100;
  mmax = 100;
type
  tfile = file of Real;
var
  f,g:tfile;
  f_mas:array[1..nmax,1..mmax] of Real;
  i,j,n,m,kol:integer;
  q:real;
begin
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
  AssignFile(f,'data.dat');
  Rewrite(f);
  Writeln('Сколько чисел хотите записать в файл? (первый элемент - есть колво столбцов матрицы');
  Readln(kol);
  for i:=0 to kol-1 do
    begin
      Read(q);
      write(f,q);
    end;
  CloseFile(f);
 
  Reset(f);
  read(f,q);
  CloseFile(f);
  m:=Trunc(q);
  if (kol mod m)=0 then n:=Round(kol/m)
  else n:=Round(kol/m)+1;
 
 
  Reset(f);
  for i:=0 to kol-1 do
    begin
      Read(f,q);
      Writeln(q);
    end;
 
 
  CloseFile(f);
  Writeln('n=',n);
  Writeln('m=',m);
  Readln;
  Readln;
end.

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils, Windows;
 
const
  Fn = 'file.dat';
  N = 100;
  M = 20;
var
  F : file of Extended;
  Arr : array[1..N, 1..M] of Extended;
  Num : Extended;
  i, j, Mf : Integer;
  S, FileName : String;
begin
  //Переключение окна консоли на кодовую страницу CP1251 (Win-1251).
  //Если после переключения русские буквы показываются неверно,
  //следует открыть системное меню консольного окна - щелчком мыши в левом
  //верхнем углу окна консоли и выбрать:
  //Свойства - закладка "Шрифт" - выбрать шрифт: "Lucida Console".
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
 
  FileName := ExtractFilePath(ParamStr(0)) + Fn;
  AssignFile(F, FileName);
  repeat
    Writeln('Файл данных: ', FileName);
    if not FileExists(FileName) then begin
      Writeln('Файл с данными не найден. Действие отменено.');
      Writeln('Повторить - Enter. Выход - любой символ + Enter.');
      Readln(S);
      Continue;
    end;
 
    Reset(F);
    //Читем и анализируем сведения о количестве столбцов.
    Num := 0;
    if not Eof(F) then Read(F, Num);
    Mf := Trunc(Num);
    if Mf <= 0 then begin
      Writeln('Неверный формат файла. Действие отменено.');
      CloseFile(F);
      Writeln('Повторить - Enter. Выход - любой символ + Enter.');
      Readln(S);
      Continue;
    end;
    if Mf > M then begin
      Writeln('Количество столбцов в массиве меньше, чем в файле. Данные будут усечены.');
      Mf := M;
    end;
 
    //Теперь читаем из файла следующие элементы и записываем их построчно в массив.
    i := 0;
    while not Eof(F) do begin
      //Количество прочитанных строк.
      Inc(i);
      //Читаем данные очередной строки.
      j := 0;
      while not Eof(F) do begin
        //Количество прочитанных элементов строки (столбцов).
        Inc(j);
        Read(F, Arr[i, j]);
        //Если прочитали Мf элементов - значит надо перейти к следующей строке.
        if j = Mf then Break;
      end;
      //Если это последняя строка массива, то прерываем чтение из файла.
      if i = N then Break;
    end;
    CloseFile(F);
 
    //Теперь в массив Arr записаны элементы из файла F.
    //Сейчас в переменной i записано количество прочитанных строк,
    //а в переменной j - количество прочитанных элементов в строке i.
    //...
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,windows;
const
  nmax = 100;
  mmax = 100;
type
  tfile = file of Real;
var
  f,g:tfile;
  f_mas:array[0..nmax,0..mmax] of Real;
  i,j,n,m,kol:integer;
  q:real;
begin
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
  AssignFile(f,'data.dat');
  Rewrite(f);
  Writeln('Сколько чисел хотите записать в файл? (первый элемент - есть колво столбцов матрицы');
  Readln(kol);
  {записываем числа в файл}
  for i:=0 to kol-1 do
    begin
      Read(q);
      write(f,q);
    end;
  CloseFile(f);
 
  Reset(f);
  read(f,q); {считываем первый эдемент. тип нужно преобразовать, т.к. в данный момент тип реал
  защиту от дурака напишу позже}
  CloseFile(f);
  m:=Trunc(q); {преобразовываем тип и получам, чтколько у нас ттолбиков}
  {узнаем, сколько нужно взять строк, чтобы пометились все элементы их файла}
  if (kol mod m)=0 then n:=Round(kol/m)
  else n:=Round(kol/m)+1;
 
 
  {инициализируем массив}
  for i:=0 to n-1 do
  for j:=0 to m-1 do
  f_mas[i,j]:=0;
 
  {теперь построчно записываем из файла в наш массив}
  Reset(f);
  i:=0;
  while not eof(f) and (i<n) do
  begin
    j:=0;
    while (not eof(f)) and (j<m) do
      begin
        read(f,f_mas[i,j]);
        inc(j);
      end;
    inc(i);
   end;
  for i:=0 to n-1 do
  begin
    for j:=0 to m-1 do write(f_mas[i,j]:6:0);
    Writeln;
  end;
 
  CloseFile(f);
 
  Readln;
  Readln;
end.

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils, Windows;
 
const
  Fn = 'file.dat';
  N = 100;
  M = 20;
var
  F : file of Extended;
  Arr : array[1..N, 1..M] of Extended;
  Num : Extended;
  i, j, Mf : Integer;
  S, FileName : String;
begin
  //Переключение окна консоли на кодовую страницу CP1251 (Win-1251).
  //Если после переключения русские буквы показываются неверно,
  //следует открыть системное меню консольного окна - щелчком мыши в левом
  //верхнем углу окна консоли и выбрать:
  //Свойства - закладка "Шрифт" - выбрать шрифт: "Lucida Console".
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
 
  FileName := ExtractFilePath(ParamStr(0)) + Fn;
  AssignFile(F, FileName);
  repeat
    Writeln('Файл данных: ', FileName);
    if not FileExists(FileName) then begin
      Writeln('Файл с данными не найден. Действие отменено.');
      Writeln('Повторить - Enter. Выход - любой символ + Enter.');
      Readln(S);
      Continue;
    end;
 
    Reset(F);
    //Читем и анализируем сведения о количестве столбцов.
    Num := 0;
    if not Eof(F) then Read(F, Num);
    Mf := Trunc(Num);
    if (Mf <= 0) or (Mf > M) then begin
      Writeln('Неверный формат файла. Действие отменено.');
      CloseFile(F);
      Writeln('Повторить - Enter. Выход - любой символ + Enter.');
      Readln(S);
      Continue;
    end;
 
    //Теперь читаем из файла следующие элементы и записываем их построчно в массив.
    i := 0;
    while not Eof(F) do begin
      //Количество прочитанных строк.
      Inc(i);
      //Читаем данные очередной строки.
      j := 0;
      while not Eof(F) do begin
        //Количество прочитанных элементов строки (столбцов).
        Inc(j);
        Read(F, Arr[i, j]);
        //Если прочитали Мf элементов - значит надо перейти к следующей строке.
        if j = Mf then Break;
      end;
      //Если это последняя строка массива, то прерываем чтение из файла.
      if i = N then Break;
    end;
    CloseFile(F);
 
    //Теперь в массив Arr записаны элементы из файла F.
    //Сейчас в переменной i записано количество прочитанных строк,
    //а в переменной j - количество прочитанных элементов в строке i.
    //...
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  windows;
 
const
  nmax = 100;
  mmax = 100;
type
  tfile = file of Real;
var
  f,g:tfile;
  f_mas:array[1..nmax,1..mmax] of Real;
  g_mas:array[1..mmax,1..nmax] of Real;
  i,j,n,m,kol:integer;
  q:real;
begin
  Randomize;
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
  AssignFile(f,'matrix.dat');
  AssignFile(g,'matrix_trans.dat');
 
  {запишем числа в файл}
  Rewrite(f);
  Writeln('Сколько чисел хотите записать в файл?');
  repeat
    Readln(kol);
    if kol>nmax*mmax
    then
      begin
        Writeln('На столько чисел программа не расчитана. Максимум ',nmax*mmax,' элементов');
        writeln('Повторите ввод');
      end;
  until kol<=nmax*mmax;
  Writeln('Введите нулевой элемент - это кол-во столбцов матрицы');
  Readln(q);
  write(f,q);
  Writeln('Остальные элементы зададутся рандомно');
  for i:=1 to kol do
      begin
      q:=Random(15)-6;
      write(q:3:2); write(' ');
      write(f,q);
      end;
  CloseFile(f);
 
  {прочтем первый элемент. нам нужно узнать, сколько столбцов}
  Reset(f);
  read(f,q);
  CloseFile(f);
  Writeln;
  {кол-во столбцов сейчас в переменной q. она у нас типа real}
  m:=Trunc(q); {преобразуем тип}
  if (m<=0) or (m>mmax)
  then
    begin
      Writeln('Неправильный файл. Программа завершает работу');
      Exit;
    end;
 
  {теперь посчитаем,
  во сколько строк влезут все данные}
  if (kol mod m)=0
  then n:=Round((kol)/m)
  else n:=Round((kol+1)/m);
  Writeln;
 
  {выведем содержимое файла с исходной матрицу}
  Reset(f);
  Writeln('Содержимое файла с исходной матрицей:');
  while not Eof(f) do
    begin
      read(f,q);
      Writeln(q:6:2);
    end;
  CloseFile(f);
 
  {инициализируем массив, в который мы будем вставлять числа из файла}
  for i:=0 to n-1 do
  for j:=0 to m-1 do
  f_mas[i,j]:=0;
 
  {теперь построчно записываем из файла в наш массив}
  Reset(f);
  Seek(f,1); {указатель в положение 1, т.к. в 0 месте у нас находится кол-во столбцов}
  i:=1;
  while not eof(f) and (i<=n) do
  begin
    j:=1;
    while (not eof(f)) and (j<=m) do
      begin
        {читаем и записываем в массив}
        read(f,f_mas[i,j]);
        inc(j);
      end;
    inc(i);
   end;
 
  {выведем наш массив}
  Writeln('Сформированный массив из исходного файла:');
  for i:=1 to n do
  begin
    for j:=1 to m do write(f_mas[i,j]:6:2);
    Writeln;
  end;
  CloseFile(f);
 
  q:=n/1;
  Rewrite(g);
  write(g,q); {на первое место пишем кол-во столбцов транспонированной матрицы
  это число строк исходной матрицы}
  {сначала бежим по строкам, а потом уже по столбцам
  в итоге в файл запишется мастрица транспонированная}
  for j:=1 to m do
    for i:=1 to n do write(g,f_mas[i,j]);
  CloseFile(g);
 
  {выведем содержимое выходного файла}
  Writeln('Файл с транспонированной матрицей:');
  Reset(g);
  while not eof(g) do
    begin
      read(g,q);
      Writeln(q:6:2);
    end;
  CloseFile(g);
  {сформируем из этого файла матрицу
  если все норм, тогда матрица должна быть транспонирована относительно исходной}
  Writeln('Матрица из выходного файла:');
  Reset(g);
  Seek(g,1);
  i:=1;
  while not eof(g) and (i<=m) do
  begin
    j:=1;
    while (not eof(g)) and (j<=n) do
      begin
        read(g,g_mas[i,j]);
        inc(j);
      end;
    inc(i);
   end;
  for i:=1 to m do
    begin
      for j:=1 to n do
        begin
          write(g_mas[i,j]:6:2);
          write(' ');
        end;
      writeln;
    end;  
  Readln;
  Readln;
end.

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  windows;
 
type
  tfile = file of Real;
var
  f,g:tfile;
  i,j,n,m,kol:integer;
  q:real;
 
procedure print_matrix(var f:tfile);
var
  n_loc,m_loc,i,j:Integer;
  q:Real;
begin
  Reset(f);
  read(f,q);
  {кол-во столбцов сейчас в переменной q. она у нас типа real}
  m_loc:=Trunc(q); {преобразуем тип}
  n_loc:=1;
  {теперь посчитаем,
  во сколько строк влезут все данные}
  repeat
    n_loc:=n_loc+1;
  until m_loc*n_loc>=kol;
  Seek(f,1); {указатель в положение 1, т.к. в 0 месте у нас находится кол-во столбцов}
  i:=1;
  while not eof(f) and (i<=n_loc) do
  begin
    j:=1;
    while (not eof(f)) and (j<=m_loc) do
      begin
        read(f,q);
        write(q:5:1);
        Inc(j);
      end;
    Writeln;
    inc(i);
   end;
 
end;
begin
  Randomize;
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
  AssignFile(f,'files\matrix.dat');
  AssignFile(g,'files\matrix_trans.dat');
 
  {запишем числа в файл}
  Rewrite(f);
  Writeln('Сколько чисел хотите записать в файл?');
  Readln(kol);
 
  Writeln('Введите нулевой элемент - это кол-во столбцов матрицы');
  Readln(q);
  write(f,q);
  Writeln('Остальные элементы зададутся рандомно');
  for i:=1 to kol do
    begin
      q:=Random(15)-6;
      write(q:3:2); write(' ');
      write(f,q);
    end;
  CloseFile(f);
 
  {прочтем первый элемент. нам нужно узнать, сколько столбцов}
  Reset(f);
  read(f,q);
  CloseFile(f);
  Writeln;
 
  {кол-во столбцов сейчас в переменной q. она у нас типа real}
  m:=Trunc(q); {преобразуем тип}
  if (m<=0)
  then
    begin
      Writeln('Неправильный файл. Программа завершает работу');
      Exit;
    end;
 
   n:=1;
  {теперь посчитаем,
  во сколько строк влезут все данные}
  n:=1;
  repeat
    n:=n+1;
  until m*n>=kol;
  Writeln ('Кол-во столбцов ',m);
  Writeln('Достаточно ',n,' строк(и)');
  Writeln;
 
  Reset(f);
  Writeln('Содержимое файла с исходной матрицей:');
  while not Eof(f) do
    begin
      read(f,q);
      Write(q:5:1);
      write(' ');
    end;
  CloseFile(f);
 
  {Допределим наш файл, чтобы можно было корректно создать из него матрицу
  для этого нужно дописать в конец столько элементов, чтобы их количество было равно n*m}
  if n*m<>kol
  then
    begin
      reset(f);
      Seek(f,kol+1);
      repeat
        q:=0;
        write(f,q);
        Inc(kol);
      until n*m=kol;
      CloseFile(f);
    end;
 
  Reset(f);
  Rewrite(g);
  q:=n/1;
  write(g,q); //записали колво столбиков транспонированной матрицы - это есть кол-во строк исходной
 
  for j:=1 to m do
    begin
      i:=j;
      while not Eof(f) and (i<=kol) do
        begin
          Seek(f,i);
          read(f,q);
          write(g,q);
          i:=i+m ;
        end;
     end;
  CloseFile(f);
  CloseFile(g);
  Writeln;
 
  Reset(g);
  Writeln('Содержимое файла с транспонированной матрицей:');
  while not Eof(g) do
    begin
      read(g,q);
      Write(q:5:1);
      write(' ');
    end;
  CloseFile(g);
  Writeln;
 
  writeln('Матрица, сконструированная из исходного файла');
  print_matrix(f);
  Writeln;
 
  Writeln('Транспонированная матрица из файла');
  print_matrix(g);
  Readln;
end.