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

[CristobaL]

Господа, прошу оказать мне посильную помощь. Первое задание по файлам в ВУЗе.
Есть файл. Условно: "input.txt" , содержащий n-строк из трех цифр от 1 до 9.
Пример:

222
555
333

нужно отсортировать эти строки по возрастанию чисел в строках и записать результат в файл: "output.txt"
Я начинающий. Поиск использовал, но подобного не обнаружил. Сдавать уже надо. Помогите с кодом.

[мисс_граффити]

как-то так пойдет?

var f: text;
num: array[1..9] of integer;
curr,i: integer;

begin
assign(f,'fail.txt');
{$I-}
reset(f);
{$I+}
if IOResult<>0 then
  begin
  writeln('error!');
  readln;
  exit;
  end;
for curr:=1 to 9 do
  num[curr]:=0;
while not eof(f) do
  begin
  readln(f,curr);
  inc(num[curr div 100]);
  end;
close(f);
rewrite(f);
for curr:=1 to 9 do
  for i:=1 to num[curr] do
    writeln(f,curr*100+curr*10+curr); {writeln(f,curr,curr,curr)}
close(f);
end.

(набирала здесь, не проверяла)
пишется в один и тот же файл.
если хочешь, чтобы в разные - перед записью сделай assign(f,'имя второго файла')

Сообщение отредактировано: мисс_граффити - 22.05.2007 1:28