Интересная задачка

[KRIK]

Тут решил другу помочь, у него есть задачка, но при решении в своеобразный ступр зашёл. Думаю тут люди умные, смогут помочь.
Задача решается в Colnsole Application
Задание:Составить программу, которая создает новый файл, записывает в него 50 целых случайных чисел, затем упорядочивает их по возрастанию непосредственно в файле. Массив использовать не разрешается.

[Eddy]

Можно поизвращаться и использовать этот файл как массив, т.е. записывать данные после этих 50 символов, как всё отсортируется, лишнее удалить.
Но может тут имелось ввиду, что надо юзать списки?

[IGR]

как вариант, можно получать псевдослучайные числа в порядке возростания и по очереди записывать их в файл !!

[KRIK]

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

  Assignfile(file1,'res.dat');
  rewrite(file1);
  RANDOMIZE;
  for i:=0 to 49 do begin
    buf:=random(50)+1;
    write(file1,buf);
  end;
  closefile(file1);

[Magus]

Насколько я знаю, для сотртировки данных подобного рода в файлах используют сортировку слиянием.

[KRIK]

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

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

[KRIK]

Вообщет про способ "в тупую делать" я писал выше. Там я этим алгоритмом и имел ввиду, только он мутноватый какой-то.. вообщем если посидеть сделать можно, но думаю должен способ проще быть

[KRIK]

Народ, чтоль не кто с такой задачкой не встречался ранее?? Принципе задача то не сложная, если б не одно но - массив использовать не разрешается.

[johnk]

А почему бы не описать свою структуру данных? Аля простой список.

[KRIK]

Условие задачи не позволяет использовать список

[KRIK]

Ладно, вообщем кому интересно - протестите плиз, вроде работает как надо.

uses
  SysUtils;

var
  i,j,k,max,buf:integer;
  file1:file of integer;
  v,t_var:integer;
begin
  Assignfile(file1,'res.dat');
  rewrite(file1);
  RANDOMIZE;
  for i:=0 to 5 do begin
    buf:=random(50)+1;
    write(file1,buf);
    writeln(inttostr(buf));
  end;
  closefile(file1);



  reset(file1);
  i:=0;
  //while not eof(file1) do begin
  For k:=0 to 5 do begin
    seek(file1,i);
    read(file1,max);
    t_var:=i;

    for j:=i to 5 do begin
        seek(file1,j);
        read(file1,v);    ///
        if max<v then begin
          max:=v;
          t_var:=j;
        end;
    end;

  seek(file1,i);
  read(file1,buf);
  seek(file1,i);
  write(file1,max);
  seek(file1,t_var);
  write(file1,buf);

  inc(i);
  end;
  closefile(file1);

  reset(file1);
  writeln('');
  for i:=0 to 5 do begin
    read(file1,buf);
    writeln(buf);
  end;
  closefile(file1);

  readln;
end.

[Fla]

А про связные списки никто ничего не говорил! Так что можно на них сделать. Это будет не често, но работать будет быстрее.

[Alex_90]

Можно использовать файл (integer например) как массив. В каждую строчку записываешь одно число. Потом сравниваешь (как методом Пузырька) первую строчку со второй, и если, первая строчка больше второй, то меняешь местами. Вместо индека массива используй параметр процедуры seec. Там можно.

[KRIK]

2Alex_90 Массив использовать не разрешается Из условия