Переписать числа из одного файла в другой, чередуя отрицательные и положительные (Паскаль)

[Dekker11]

Программа должна брать числа из одного файла и записывать их в другой, чередуя отрицательные и положительные. Не могу понять что не правильно. Сейчас числа просто копируются из одного файла в другой

var f, g : file of integer; 
n : integer; 

begin 
assign(f, 'c:\f.txt');
assign(g, 'c:\g.txt');
rewrite(g);
reset(f);

while not eof(f) do begin read(f, n);
if n > 0 then write(g, n);
end;

close(f);
reset(f);

while not eof(f) do begin read(f, n);
if n < 0 then write(g, n);
end;

close(f);
close(g); 
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Stilet]

Ну... Я бы наверное создал два динамических массива. Считал в них файлы таким образом чтоб в первый массив попадали только положительные, во второй только отрицательные.
Потом поочередно вывел бы в файл эти два массива.
как это проще обьяснить не знаю...

[Dekker11]

Сообщение от Stilet

Ну... Я бы наверное создал два динамических массива. Считал в них файлы таким образом чтоб в первый массив попадали только положительные, во второй только отрицательные.
Потом поочередно вывел бы в файл эти два массива.
как это проще обьяснить не знаю...

Как бы вы мне не объясняли, я не пойму) Мне бы вот эту подправить...

[Serge_Bliznykov]

и записывать их в другой, чередуя отрицательные и положительные.

задача далеко не так проста, как кажется!
я бы поступил так - прочитал входной файл в массив, из него и брал попеременно отрицательные/положительные.

ну и ещё, что ДОЛЖНА делать программа, если, например, во входном файле такие данные
1 2 3 -5 10 20 30 40 50 -2

или, наоборот, если во входном файле:
-2 -1 -7 -1 -9 1

как будет выглядеть выходной файл?

Мне бы вот эту подправить...

вашу подправить нельзя...
с обычным массивом можно сделать. Сделать?

[Dekker11]

Сообщение от Serge_Bliznykov

задача далеко не так проста, как кажется!
я бы поступил так - прочитал входной файл в массив, из него и брал попеременно отрицательные/положительные.

ну и ещё, что ДОЛЖНА делать программа, если, например, во входном файле такие данные
1 2 3 -5 10 20 30 40 50 -2

или, наоборот, если во входном файле:
-2 -1 -7 -1 -9 1

как будет выглядеть выходной файл?



вашу подправить нельзя...
с обычным массивом можно сделать. Сделать?

Да, пожалуйста

[Serge_Bliznykov]

получите и распишитесь:

const MaxArraySize = 500;
  mtest : array[1..10] of integer = (1, 2, 3, -5, 10, -3, -19, 40, 50, -2);
var 
  f, g: file of integer;
  masPos, masNeg : array[1..MaxArraySize] of integer;
  indexPos, indexNeg, kPos, kNeg, a, i : integer;
  CurPos : boolean;

begin
  assign(f, 'c:\f.bin');
  {создадим файл для отладки }
     rewrite(f);   for i:=1 to 10 do Write(f, mtest[i]); Close(f);
  reset(f);
  WriteLn('First file content: '); Reset(f);
  while not eof(f) do begin read(f, a);  Write(a,' ');  end;
  WriteLn;   WriteLn;

  {основной цикл }

  {сначала читаем файл в два массива}
  reset(f);
  indexPos := 0; indexNeg := 0;
  while not eof(f) do begin 
    read(f, a);
    if a >= 0 then 
      if indexPos>=MaxArraySize then WriteLn('Количество положительных слишком велико')
      else begin 
        Inc( indexPos );
        masPos[ indexPos ] := a
      end
    else
      if indexNeg>=MaxArraySize then WriteLn('Количество отрицательных слишком велико')
      else begin
        Inc( indexNeg );
        masNeg[ indexNeg ] := a
      end;
  end;
  close(f);

  {а теперь массивы пишем во второй файл чередуя..}
  assign(g, 'c:\g.bin');
  rewrite(g);

  kPos := 1; kNeg := 1;
  CurPos := true;  {сначала будем писать положительные}
  while (kPos<=indexPos) or (kNeg<=indexNeg)  do begin
    if CurPos then
      begin
        if kPos<= indexPos then begin
          Write(g, masPos[ kPos ]);
          inc(kPos);
        end;
      end
    else {теперь пишем отрицательные}
      begin
        if kNeg<= indexNeg then begin
          Write(g, masNeg[ kNeg ]);
          inc(kNeg);
        end;
      end;
    CurPos := Not CurPos;
  end;
  Close(g);


  WriteLn('Write to new file completed!');

  WriteLn('Second file content: ');
  Reset(g);

  while not eof(g) do begin read(g, a);
    Write(a,' ');
  end;
  WriteLn;   WriteLn;
end.

[Dekker11]

Сообщение от Serge_Bliznykov

получите и распишитесь:

const MaxArraySize = 500;
  mtest : array[1..10] of integer = (1, 2, 3, -5, 10, -3, -19, 40, 50, -2);
var 
  f, g: file of integer;
  masPos, masNeg : array[1..MaxArraySize] of integer;
  indexPos, indexNeg, kPos, kNeg, a, i : integer;
  CurPos : boolean;

begin
  assign(f, 'c:\f.bin');
  {создадим файл для отладки }
     rewrite(f);   for i:=1 to 10 do Write(f, mtest[i]); Close(f);
  reset(f);
  WriteLn('First file content: '); Reset(f);
  while not eof(f) do begin read(f, a);  Write(a,' ');  end;
  WriteLn;   WriteLn;

  {основной цикл }

  {сначала читаем файл в два массива}
  reset(f);
  indexPos := 0; indexNeg := 0;
  while not eof(f) do begin 
    read(f, a);
    if a >= 0 then 
      if indexPos>=MaxArraySize then WriteLn('Количество положительных слишком велико')
      else begin 
        Inc( indexPos );
        masPos[ indexPos ] := a
      end
    else
      if indexNeg>=MaxArraySize then WriteLn('Количество отрицательных слишком велико')
      else begin
        Inc( indexNeg );
        masNeg[ indexNeg ] := a
      end;
  end;
  close(f);

  {а теперь массивы пишем во второй файл чередуя..}
  assign(g, 'c:\g.bin');
  rewrite(g);

  kPos := 1; kNeg := 1;
  CurPos := true;  {сначала будем писать положительные}
  while (kPos<=indexPos) or (kNeg<=indexNeg)  do begin
    if CurPos then
      begin
        if kPos<= indexPos then begin
          Write(g, masPos[ kPos ]);
          inc(kPos);
        end;
      end
    else {теперь пишем отрицательные}
      begin
        if kNeg<= indexNeg then begin
          Write(g, masNeg[ kNeg ]);
          inc(kNeg);
        end;
      end;
    CurPos := Not CurPos;
  end;
  Close(g);


  WriteLn('Write to new file completed!');

  WriteLn('Second file content: ');
  Reset(g);

  while not eof(g) do begin read(g, a);
    Write(a,' ');
  end;
  WriteLn;   WriteLn;
end.

Благодарю)

[Serge_Bliznykov]

не за что.
если будут вопросы - задавайте, отвечу...