Дан файл целых чисел.Переупорядочить его по неубыванию с помощью списка.Оформить в виде процедуры
Вот что я написала:
procedure Upor (var tsl;f);
var x,min:integer;
begin repeat begin reset(f); min:=0; while not eof(f) do begin
read(f,x); if x<min then min:=x end;
in-list(p,min,q);
reset(f);
while not eof(f) do begin
read(f,x); if x<min then min:=x end;
{здесь оператор(станд. процедура или функция),который удаляет найденное число}
end
until filesize(f)<>nil
Close(f)
end;
Теперь поясню то,что я хотела этим сказать:1.Ищем в файле мин.число,включаем его в список
2.Удаляем из файла минимум
3.Опять ищем в файле минимум,включаем его в список и удаляем из файла...Получается цикл,который заканчивается,когда файл станет пустым.
Моя ошибка,на которую указал преподаватель в том,что я минимуму присваиваю 0. Т.е. я не предуссматриваю случаи с отрицательными числами.И вообще она не эффективная...Укажите на ошибки,пожалуйста,если они здесь ещё есть.И как можно было решить эту задачу по-другому?Очень интересно...
Сообщение отредактировано: Svetlana -