Сортировка

[Андрюха_ЕШКО]

Мне нужно составить программу на Паскале для сортировки типизированного файла...

кто поможет?

[Serge_Bliznykov]

прежде всего, Вам нужно решить, есть ли ограничения на размер этого самого файла. Если допустить, что содержимое файла полностью помещается в оперативную память, тогда грузите файл в переменную (либо статическую - обычный массив, либо динамическую - динамический массив или связный список) и сортируете любым удобным способом - хоть банальным "пузырьком", хоть QuickSort'ом.

Если же по условиям задачи содержимое файла не может быть полностью прочитано в память компьютера, тогда сложнее - либо использовать достаточно эффективные алгоритмы внешней сортировки, либо придумывать что-то попроще - но ОЧЕНЬ неэффективное.

p.s. и поищите по форуму. Такие задачи здесь уже решались...

[Андрюха_ЕШКО]

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

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

Любое решение мне надо... Без разницы...
Спасибо!

[Stilet]

Считать файл сможешь?

[Serge_Bliznykov]

Считать файл сможешь?

Виталий, это Вы мне?! Смогу!

Андрюха_ЕШКО, на, лови, пользуйся, пока я добренький..

program SrtTyped;

Const MaxN = 1000;
   FileName = 'fInput.int';
 
var
  A : array[1..MaxN] of integer;
  n : integer;
  fInt : file of integer;

procedure CreateIntegerFile;
var i, k1 : integer;
begin
  WriteLn('Введите N: '); 
  Readln(n);

  if (n<1) or (n>MaxN) then begin
     WriteLn('N неверное! Должно быть от 1 до ',MaxN);
     WriteLn;
     WriteLn('Для завершения программы нажмите Enter...');
     readln;
     Halt(1);
  end;

  Assign(fInt, FileName);
  Rewrite(fInt);
  Randomize;

  for i:=1 to N do begin
    k1 := Random(5000);
    Write(fInt, k1);
  end;

  Close(fInt); 

end;


procedure LoadData;
var  i  : integer;
begin
  Assign(fInt, FileName);
  Reset(fInt);

  N := FileSize(fInt);
  WriteLn('В исходном файле обнаружено записей: ',N);
  if N>MaxN then begin
     WriteLn('Файл слишком большой - обрабатывать не будем!');
     WriteLn;
     WriteLn('Для завершения программы нажмите Enter...');
     readln;
     Halt(1);
  end;
  
  for i := 1 to N do 
    Read(fInt, A[i]);

  Close(fInt);
end;

procedure Sort;
var  i, j, OneS, IndexMin : integer;
begin
  {а вот теперь начинаем сортировку.
     методом "пузырька" - как самым простым}
     

  {Выбирается минимальный элемент массива
  и меняется местами с первым элементом массива.
  Затем процесс повторяется с оставшимися элементами и т. д. }

  for i:=1 to N-1 do begin
    IndexMin := i; {предварительно считаем, что первый элемент наименьший}
    {ищем индекс максимального элемента}
    for j:=i+1 to N do
      if A[j]<A[IndexMin] then IndexMin := j;

    {меняем местами элементы массива с индексами i и IndexMin
    (ну, если они не равны, конечно) }
    if i<>IndexMin then begin
      OneS := A[IndexMin];
      A[IndexMin] := A[i];
      A[i] := OneS;
    end;
  end;
end;

procedure PrintArray;
var i : integer;
begin
  writeln('Массив: ');
  for i := 1 to N do write(A[i]:5, ' ');
  WriteLn;
  WriteLn('Для продолжения нажмите Enter...');
  readln;
end;

procedure SaveIntegerFile;
var i  : integer;
begin
  Assign(fInt, FileName); 
  Rewrite(fInt);  
  for i:=1 to N do
      write(fInt,A[i]); 
  close(fInt); 
end;


begin
  { убрать комментарий для создания файла!
     CreateIntegerFile; }
  LoadData;
  PrintArray;
  Sort;
  PrintArray;
  SaveIntegerFile;
end.

[Stilet]

Смогу!

ШутникЪЪЪ )))
а жаль таки что автор не ответил...

[Андрюха_ЕШКО]

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

Считать файл сможешь?

Непонял??

Serge_Bliznykov Спасибо огромное!