Переписать компоненты файла f в файл g - PascalABC.NET

Формулировка задачи:

1. Дано файл целых чисел f . Переписать компоненты файла f в файл g так , чтобы сначала были записаны все положительные числа , а затем - все отрицательные .

Код к задаче: «Переписать компоненты файла f в файл g - PascalABC.NET»

textual
const
  fName = 'f.dat';
  gName = 'g.dat';
  
begin
  var f, g : File of Integer;
  var n : Integer;
  
  Rewrite(g, gName);
  
  Reset(f, fName);
  while Not EOF(f) do
    begin
      Read(f, n);
      if n > 0 then Write(g, n);
    end;
  Close(f);
  
  Reset(f, fName);
  while Not EOF(f) do
    begin
      Read(f, n);
      if n < 0 then Write(g, n);
    end;
  Close(f);
 
  Close(g);
end.

13   голосов, оценка 4.154 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы