Паскаль. Проход по файлу (сортировка типизированного файла)

[maxwelln1]

procedure sort(var f:file of TGorod);
  var
   i, j: Integer;
  g: TGorodArr;
  t: TGorod;
begin
 Rewrite(f);
  for i:=1 to n do
  with g[i] do
  begin
    Write('Город: '); ReadLn(name);
    Write('Численность: '); ReadLn(chislen);
  end;
  
  for i:=n downto 2 do
  for j:=2 to i do
    if g[j].chislen<g[j-1].chislen then
    begin
      t:=g[j-1];
      g[j-1]:=g[j];
      g[j]:=t;
    end;
  for i:=1 to n do
  Write(f,g[i]);
  Reset(f); WriteLn('Город':16,'Численность':16);
  close(f);
  end;
  
  procedure vivod (Const f:file of TGorod);
  var
   t: TGorod;
  begin
  reset(f);
  while not EOF(F) do with t do begin
    Read(f,t); WriteLn(name:16,chislen:16);
  end;
  Close(f);
  end;
  
  var
  f: file of TGorod;
  begin
  assign(f,'f:\Spisok.txt');
  sort(f);
  vivod(f);
end.

Эта программа сортирует города по их численности по возрастанию. Мне надо, чтобы она проходила как бы не по массиву а по файлу

[Аватар]

Сортировка непосредственно в типизированном файле? Примерно так

  Size:=FileSize(f);
  for i:=0 to Size - 2 do begin
    Seek(f,i);
    Read(f,t1);
    for j:=i+1 to Size - 1 do begin
      Seek(f,j);
      Read(f,t2);
      if t2.chislen<t1.chislen then begin
        t:=t1;
        t1:=t2;
        Seek(f,i);
        Write(f,t1);
        Seek(f,j);
        Write(f,t);
      end;
    end;
  end;

[Serge_Bliznykov]

сортировать напрямую в файле можно. но это чуть как не эффективно и не удобно.
чем не устраивает решение через чтение в память, сортировка в памяти, запись отсортированного списка в тот же файл?

пример сортировки в файле можете посмотреть в этой теме:
Добавить элемент в типизированный файл и его с отсортировать


упс. я опоздал с ответом!
но вопрос о том, насколько это оправдано, всё равно остался.

[maxwelln1]

Так вот в том то и дело. Я даже сейчас не могу вставить ту часть кода, которую мне написали в свой код. Препод требует такое решение, я бы никогда не стал так писать. Не могли бы вы мне немного помочь с итоговым кодом?

[Serge_Bliznykov]

Сообщение от maxwelln1

Так вот в том то и дело.

в чём дело?

Сообщение от maxwelln1

Я даже сейчас не могу вставить ту часть кода, которую мне написали в свой код.

почему?

сразу же возникают сомнения в том, что код из #1 Вы сами написали! (ну или хотя бы разобрались в нём)!

Что конкретно у Вас не получается?

[maxwelln1]

Я в своем коде все понимаю. Единственное что для меня до сих пор сложно это описание процедур, сам синтаксис. Логика решения и все действия над данными я полностью понимаю, а синтаксис не могу пока что

[Serge_Bliznykov]

procedure sort(var f:file of TGorod);
  var
   i, j, Size: Integer;
   t1, t2 : TGorod;
begin
  Rewrite(f);
  for i:=1 to n do  begin
    Write('Город: '); ReadLn(t1.name);
    Write('Численность: '); ReadLn(t1.chislen);
    Write(f, t1);
  end;
  CloseFile(f);

  Reset(f);
  Size:=FileSize(f);
  for i:=0 to Size - 2 do begin
    Seek(f,i);
    Read(f,t1);
    for j:=i+1 to Size - 1 do begin
      Seek(f,j);
      Read(f,t2);
      if t2.chislen<t1.chislen then begin
        t:=t1;
        t1:=t2;
        Seek(f,i);
        Write(f,t1);
        Seek(f,j);
        Write(f,t);
      end;
    end;
  end;
  CloseFile(f);
  
end;

Сообщение от maxwelln1

assign(f,'f:\Spisok.txt');

это не текстовый файл. я бы рекомендовал сменить ему расширение на любое другое, более адекватное.
например, на .dat

AssignFile(f,'f:\Spisok.dat');

p.s. ВНИМАНИЕ! я код писал прямо в браузере и, разумеется, НЕ ПРОВЕРЯЛ!

[Аватар]

CloseFile(f); там не надо, в конец процедуры его

[Serge_Bliznykov]

Сообщение от Аватар

CloseFile(f); там не надо, в конец процедуры его

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