Страница 1 из 1
[Pascal] Файлы
Добавлено: 12 май 2007, 20:38
AXE
помогите с задачкой плиз:
дан файл,каждая строка которого - целое число.упорядочить строки этого файла по возрастающей.
Re: [Pascal] Файлы
Добавлено: 12 май 2007, 21:32
juden
с начало запиши все строки в массив, а потом от сортируй его
Re: [Pascal] Файлы
Добавлено: 12 май 2007, 22:44
AXE
можно немного поподробней,а то плохо в паскале разбираюсь.
Re: [Pascal] Файлы
Добавлено: 12 май 2007, 23:24
Колядин Максим
Да, недавно аналогичная задачка была.... В общем, правильно, записывай все числа из файла в массив и сортируй его по возрастанию.
Код: Выделить всё
var a: array [1..100] of integer;
f: text;
i,c,buf: integer;
done: boolean;
begin
assign(f, 'text.txt'); reset(f);
while not eof(f) do begin
inc(c);
readln(f,a[c]);
end;
repeat
done:=true;
for i:= 1 to (c-1) do if a[i]<a[i+1] then begin
buf:=a[i];
a[i]:=a[i+1];
a[i+1]:=buf;
done:=false;
end;
until done;
for i:= 1 to c do write(a[i]:3);
readln;
end.
Re: [Pascal] Файлы
Добавлено: 13 май 2007, 00:13
AXE
Спасибо за помощь)))