Сортировка в текстовом файле

[Isthmus]

Ситуация такая. Пишу прогу без динамики. Использую списки, которые загоняються в файл методом:

while not eof(f) do
writeln('Имя :'); readln(st.Imya);
writeln('Номер: '); readln(st.Nomer);
write(f,st);

Короче говоря основа базы данных. Вопрос следующий, как сделать сортировку по имени???

Спасибо заранее всем за идеи и помощь.

[alexBlack]

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

Вопрос следующий, как сделать сортировку по имени???

Нужно делать ввод данных в память. Например, хранение списка в массиве. В процессе ввода можно сразу сортировать - вставлять новый элемент в нужное место списка. Только после этого сохранять в файл.

Надеюсь, приведенный код только схема, потому как условие окончания цикла не соответствует условию задачи и нет begin/end;

[nikleb]

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

[puporev]

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

for i:=1 to n-1 do
for j:=1 to n-1 do
if st[j].Imya<st[j+1].Imya then
    begin
      x:=st[j].Imya;
      st[j].Imya:=st[j+1].Imya;
      st[j+1].Imya:=x;
    end;

где х - буфер,переменная строкового типа.
Если по имени нужно отсортировать весь массив записей, то пишем:

for i:=1 to n-1 do
for j:=1 to n-1 do
if st[j].Imya<st[j+1].Imya then
    begin
      x:=st[j];
      st[j]:=st[j+1];
      st[j+1]:=x;
    end;

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

[Isthmus]

Хмм... у меня была идея так попробовать, но будет это работать, если при вводе данных в файл я не использовал циклы i и j. Или прога всё равно будет брать по одному элементу и сравнивать?

Вечером попробую, просто сейчас в универ ухожу.

[Isthmus]

В общем ничего не получилось.

Вот мой тип, который рекорд:

Type ykazatel=record

Termin:string[30];
Straniza:integer;
End;

А вот сама процедура:

Procedure Sortirovka;
Var
  i,j:integer;
  x:string;
  st:ykazatel;
Begin
  clrscr;
  assign(f,filename);
  reset(f);
  writeln('Сортировка по названию термина');
  readln;
  while not eof(f) do
    Begin
      for i:=1 to n-1 do   
      for j:=1 to n-1 do   
        if st[j].Termin<st[j+1].Termin then   
           begin   
             x:=st[j].Termin;   
             st[j].Termin:=st[j+1].Termin;   
             st[j+1].Termin:=x;   
           end; 
    end;
End;

Компилятор выдаёт ошибку на месте где встречаеться st[j].Termin : Error 121: Invalid qualifier.

[puporev]

Ну Вы даете. Прежде чем сортировать МАССИВ записей, его не плохо было бы сначала объявить, например
st:array[1..50] of ykazatel;
потом наполнить содержимым, типа
n:=1;
while not eof(f) do
Begin
readln(f,st[n]);
n:=n+1;
end;

А вот потом, благословлясь, можно этот массив и посортировать слегка.

[MusicMan]

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

[Isthmus]

2 MusicMan: нет, спасиб. Я лучше без указателей помучаюсь

[Isthmus]

Всё равно не пашет. Может есть у кого ещё предложения???

Procedure Sortirovka;
var
  n,i,j:integer;
  st:array[1..5] of ykazatel;
  x:string;
Begin
  clrscr;
  assign(f,filename);
  reset(f);
  writeln('Сортировка');
  readln;
  n:=1;
  while not eof(f) do
    Begin
      read(f,st[n]);
      n:=n+1;
    End;

    Begin
      For i:=1 to 5 do
        Begin
          For j:=1 to 5 do
            If st[j].Termin>st[j+1].Termin then
              Begin
                x:=st[j].Termin;
                st[j].Termin:=st[j+1].Termin;
                st[j+1].Termin:=x;
              End;
        End;
    End;
  rewrite(f);
  For j:=1 to 5 do
    write(f,st[j]);
End;