Сортировка элементов файла с записью в другой файл.

@temp1234567 · Регистрация: 06.08.2010

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

@Puporev · 09.08.2010, 09:51

Например так по возрастанию.

Pascal

var f:file of integer;
    a,b,i,j,x:integer;
begin
...............................
reset(f);
for i:=0 to filesize(f)-2 do
for j:=i+1 to filesize(f)-1 do
  begin
    seek(f,i);
    read(f,a);
    seek(f,j);
    read(f,b);
    if a>b then
      begin
       x:=a;
       a:=b;
       b:=x;
       seek(f,i);
       write(f,a);
       seek(f,j);
       write(f,x);
      end;
   end;
close(f);

@temp1234567 0 / 0 / 0 Регистрация: 06.08.2010 Сообщений: 4
		1
	Сортировка элементов файла с записью в другой файл. 09.08.2010, 09:44. Показов 1935. Ответов 1 Метки нет (Все метки) Есть файл с целыми числами. Нужно отсортировать значения (не используя массив) в порядке убывания и записать значения в текстовый файл. Как можно организовать сортировку? __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Сортировка элементов файла с записью в другой файл.

Решение