Сортировка записей в типизированом файле по алфавиту.

@blinds · Регистрация: 22.02.2009

Студворк — интернет-сервис помощи студентам

Доброго времени всем.
Ситуация такая: есть файл, елементом которого есть запись. Запись состоит из 5 полей, одним из которых являеться назавание. Вот относительно етого поля я хочу остортировать файл. Т.е. что бы при считывании файла, после его сотрировки, на екран выводились записи и имена ишли в алфавитом порядке. (Пусть сотрировка будет идти только по первой букве, так будет легче.)
Вот в чем вопрос: немогу придумать нормальный алгоритм. Решил для начала узнать какая самамя последняя буква есть. Сделал ето для того, что бы ганять не по всему алфавиту, а до последней нужной буквы. А реализовать етот самый прогон и сортировку не получаеться. Что-бы придумать, что бы поочерно каждая первая буква поля имени сравнивалась с алфавитом и так целый файл?

@sheka · 07.06.2009, 22:04

используй сравнение строк:
'a'<'b';
'abc'<'afa';
итд.

@Puporev · 07.06.2009, 22:09

Pascal

type zap=record
              name:string[20];
              .....................
              ..........................
              end;
var z:array[1..50] of zap;
      bf:zap;
.............................................
for i:=1 to n-1 do
for j:=i+1 to n do
if z[i].name>z[j].name then
 begin
  bf:=z[i];
  z[i]:=z[j[;
  z[j]:=bf;
 end;

@blinds · 07.06.2009, 23:32 **[ТС]**

У меня файл пишеться без масива. Хотя... думаю файлсайз решит ету проблему.) Спасибо за наводки.

@Puporev · 08.06.2009, 05:39

У меня файл пишеться без масива.

Тогда сортировка будет чуть сложней, при помощи seek, но суть от этого не меняется.
Если нужно, могу начеркать пример такой сортировки. Главное, что сортировать только по первой букве нет никакого смысла, ибо строки автоматом сортируются по правилам языка, т.е. сначалала по первой букве, потом по второй и т.д.

@blinds · 08.06.2009, 18:43 **[ТС]**

Ну я предполагаю так:
Хотя, чувствую, что бредово.)

Pascal

type zap=record
              name:string[20];
              .....................
              ..........................
              end;
var 
f:file of zap;      
a,b,g:zap;
.............................................
for i:=1 to  filesize(f) do
begin
 for j:=1 to filesize(f) do
 begin
  seek(f,i-1);
  read(f,a);
  seek(f,j-1);
  if b.name>a.name then
  begin
   a:=g; a:=b; b:=g;
  end;
 eng;
eng;

@Puporev · 08.06.2009, 18:55

Вот пример сортировки в типизированном файле, поле роли не играет.

Pascal

reset(g);
for i:=0 to filesize(g)-2 do
for j:=i+1 to filesize(g)-1 do
  begin
    seek(g,i);
    read(g,x);
    seek(g,j);
    read(g,y);
    if x.kol>y.kol then
      begin
       sp:=x;
       x:=y;
       y:=sp;
       seek(g,i);
       write(g,x);
       seek(g,j);
       write(g,sp);
      end;
   end;
close(g);

@blinds · 08.06.2009, 20:01 **[ТС]**

Спасибо большое, а я забыл позаписывать файлы.) Адаптировал к своей проге - все великолепно.

@tinager2011 · 09.04.2014, 15:42

А можно этот код использовать для сортировки именно слов ? Смысле в алфавитном порядке ?

@blinds 4 / 4 / 1 Регистрация: 22.02.2009 Сообщений: 35
		1
	Сортировка записей в типизированом файле по алфавиту. 07.06.2009, 21:51. Показов 8277. Ответов 8 Метки нет (Все метки) Доброго времени всем. Ситуация такая: есть файл, елементом которого есть запись. Запись состоит из 5 полей, одним из которых являеться назавание. Вот относительно етого поля я хочу остортировать файл. Т.е. что бы при считывании файла, после его сотрировки, на екран выводились записи и имена ишли в алфавитом порядке. (Пусть сотрировка будет идти только по первой букве, так будет легче.) Вот в чем вопрос: немогу придумать нормальный алгоритм. Решил для начала узнать какая самамя последняя буква есть. Сделал ето для того, что бы ганять не по всему алфавиту, а до последней нужной буквы. А реализовать етот самый прогон и сортировку не получаеться. Что-бы придумать, что бы поочерно каждая первая буква поля имени сравнивалась с алфавитом и так целый файл? 0

@sheka Босс 161 / 126 / 10 Регистрация: 03.06.2009 Сообщений: 750
	07.06.2009, 22:04	2
	используй сравнение строк: 'a'<'b'; 'abc'<'afa'; итд. 1

@blinds 4 / 4 / 1 Регистрация: 22.02.2009 Сообщений: 35
	07.06.2009, 23:32 [ТС]	4
	У меня файл пишеться без масива. Хотя... думаю файлсайз решит ету проблему.) Спасибо за наводки. 0

@Puporev Почетный модератор 64279 / 47578 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	08.06.2009, 05:39	5
	У меня файл пишеться без масива. Тогда сортировка будет чуть сложней, при помощи seek, но суть от этого не меняется. Если нужно, могу начеркать пример такой сортировки. Главное, что сортировать только по первой букве нет никакого смысла, ибо строки автоматом сортируются по правилам языка, т.е. сначалала по первой букве, потом по второй и т.д. 0

@blinds 4 / 4 / 1 Регистрация: 22.02.2009 Сообщений: 35
	08.06.2009, 20:01 [ТС]	8
	Спасибо большое, а я забыл позаписывать файлы.) Адаптировал к своей проге - все великолепно. 0

@tinager2011 1 / 1 / 3 Регистрация: 26.10.2013 Сообщений: 51
	09.04.2014, 15:42	9
	А можно этот код использовать для сортировки именно слов ? Смысле в алфавитном порядке ? 0

Опции темы