решенная задача в универе лежит, скоро принесуДобавлено (27.11.2009, 20:44)
---------------------------------------------
var fSrc, fDst : File of Integer;
i : integer;
begin
{открываем исходный файл}
Assign(fsrc, 'Source.dat');
Reset(fsrc);
{открываем файл в который будем писать результат}
Assign(fdst, 'Temp.dat');
Rewrite(fdst);
{ обрабатываем нули }
while not eof(fsrc) do
begin
Read(fsrc, i);
if i=0 then Write(fdst, i);
end;
{ обрабатываем положительные }
Seek(fsrc, 0);
while not eof(fsrc) do
begin
Read(fsrc, i);
if i>0 then Write(fdst, i);
end;
{ обрабатываем отрицательные }
Seek(fsrc, 0);
while not eof(fsrc) do
begin
Read(fsrc, i);
if i<0 then Write(fdst, i);
end;
Close(fsrc);
Close(fdst);
{
теперь, в Temp.dat переставленные по условию задачи
числа, как вариант, можно переименовать его в имя
исходного файла, предварительно удалив исходный файл
}
end.
