Прочитать из файла числа, отсортировать их по возрастанию, результат записать в новый файл.

[lika1129970]

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

вот программа:

program DFG;
var file1,file2:file of integer;
    n,i,num:integer;
begin
    writeln('Введите кол-во чисел:'); readln(n);
    writeln('Введите ',n,' целых чисел:');
    assign(file1,'D:\числа1.txt');
    rewrite(file1);
    for i:=1 to n do
    begin
         read(num);
         write(file1,num);
    end;
    close(file1);
    assign(file2,'D:\числа2.txt');
    rewrite(file2);
    reset(file1); //для чтения
    while not eof(file1) do      //используется для проверки, достигнут ли конец файла.
    begin
    
          read(file1,n);          //записывает в перем n
          if n>0 then
             begin write(file2,n); end;
    end;
    close(file1); close(file2);   //закрывает
    reset(file2);       //открывает файл
    writeln('Во втором файле: ');
    while not eof(file2) do
    begin
         read(file2,n);            //записывает в перем n
         write(n,' ');
    end;
    close(file2);
end.

[Stilet]

Опиши тип:

type arr=^integer

Фукцию считывания:

function rread:arr;
var i:integer; p,v:arr;
begin
Получаем размер файла
 i:=FileSize(file1);
Резервируем для него память
 GetMem(p,(i+1)*sizeof(integer));
Считываем файл в массив. Первый элемент - размер массива
 p^:=i;v:=p;inc(v);
 while not eof(file1) do begin
  read(file1,v^);
  inc(v);
 end;
Возвращаем массив
rread:=p;
end;

Далее сортировка:

procedure sort(a:arr);
var q,w:arr;i,j,k:integer;
begin
Обычная сортировка пузырьком, но используя указатели.
 w:=a; inc(w);
 for i:=0 to a^ do begin
  q:=a; inc(q);
  for j:=0 to a^ do begin
   if q^<w^ then begin k:=q^;q^:=w^;w^:=k;end;
   inc(q);
  end; inc(w);
 end;
end;

Ну и допустим запись в файл:

 procedure tofile(a:arr);
 var p:arr;
 begin
Получаем размер массива
  p:=a; inc(p);
Пишем массив в файл целиком
  blockwrite(file2,p,a^);
 end;

Соответственно вызова такие:

    writeln('Введите кол-во чисел:'); readln(n);
    writeln('Введите ',n,' целых чисел:');
    assign(file1,'D:\числа1.txt');
    rewrite(file1);
    for i:=1 to n do
    begin
         read(num);
         write(file1,num);
    end;
    close(file1);
    assign(file2,'D:\числа2.txt');
    rewrite(file2);
    reset(file1); //для чтения

Считываем в массив
farr:=rread;
Сортируем
sort(farr);
Пишем во второй файл
tofile(farr);
close(file1);close(file2);
Dispose(farr);

Где farr:arr - т.е. типа массива, что считываем из файла.
Все это писал с потолка, не проверял.

Идея понятна?

[lika1129970]

inc(v);
пишет что процедура с параметрами указанных типов не найдена

а можно просто в мою программу добавить сортировку и все? и что б так ее не усложнять?!

[UaKot]

зачем в паскале такие сложности? это же не С++.. по моему никакие указатели не нужны для создания функций для массивов ибо из program они все глобальные...

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

Отсортировать массив:

for i:=1 to n do
  for j:=1 to n-1 do
    if a[j]>a[j+1] then
         begin
           temp:=a[j]
           a[j]:=a[j+1];
           a[j+1]:=temp;
         end;

[Stilet]

зачем в паскале такие сложности?

Предложи свой вариант )

процедура с параметрами указанных типов не найдена

Всмысле?

а можно просто в мою программу добавить сортировку и все? и что б так ее не усложнять?!

Врядли получится, потому что ты не знаешь заранее размер обрабатываемых данных.

[lika1129970]

а если тогда программу без процедур??

[Serge_Bliznykov]

без процедур - это очень легко - весь код, который находится внутри процедуры запишите в основной программе (только не забывайте формальные параметры менять на фактическое значение) и всё. Это просто.

теперь по поводу указателей.
Лика, какой у Вас Паскаль? в некоторых версиях паскаля есть нормальные динамические массивы.
Можно использовать их.

А, возможно, что вас устроит и такой вариант. использовать статический массив.
Этот вариант намного проще того, что предложил Stilet, но недостаток в том, что этот способ имеет ограничение на количество обрабатываемых записей.

Примерно вот так:

program DFG;
const
   MaxCount = 1000; {максимальное количество записей, которое может отсортировать программа}

var file1,file2:file of integer;
    n,i,j,num:integer;
    A : array[1..MaxCount] of integer;

begin
    repeat
      writeln('Введите кол-во чисел:'); readln(n);
      if (n<=0) or (n>MaxCount) then WriteLn('#Ошибка: число n должно быть от 1 до ',MaxCount);
    until (n>0) and (n<=MaxCount);

    writeln('Введите ',n,' целых чисел:');
    assign(file1,'D:\числа1.txt');
    rewrite(file1);
    for i:=1 to n do
    begin
         read(num);
         write(file1,num);
    end;
    close(file1);


    {прочитаем исходный файл в массив}
    reset(file1); //для чтения
    n := 0; {считаем, что записей во входном файле НЕТ}
    while not eof(file1) do      //используется для проверки, достигнут ли конец файла.
    begin
          Inc(n);
          read(file1, A[n]);          //читаем в переменную A[n] - т.е. в массив A
    end;
    close(file1);


    {отсортируем массив}
    {сортировка массива методом простых обменов}
    for i:=1 to n-1 do
      for j:=i+1 to n do
      if A[i] > A[j]then
        begin
          num := A[i];
          A[i]:= A[j];
          A[j]:= num
        end;


    {сохраним результат во второй файл}
    assign(file2,'D:\числа2.txt');
    rewrite(file2);
    for i:=1 to n do Write(file2, A[i]);
    Close(file2);

    {выведем содержимое второго файла на экран}
    assign(file2,'D:\числа2.txt');
    reset(file2);       //открывает файл
    writeln('Во втором файле: ');
    while not eof(file2) do
    begin
         read(file2, num);            //записывает в перем num
         write(num,' ');
    end;
    close(file2);

    Readln;
end.

[lika1129970]

спасибо) работает!