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

@Максим_Лост · Регистрация: 22.01.2010

Author24 — интернет-сервис помощи студентам

Дан текстовый файл, в котором числа положительные и отрицательные. Программа должна записать положительные числа в один файл, а отрицательные числа в другой файл.
Очень нуждаюсь в помощи.
Заранее благодарен.

Добавлено через 53 минуты
часть программы накатал, помогите доделать:

Pascal

Program files;
uses crt;
var f:file of integer;
    n,i,a,j,k:integer;
begin
clrscr;
randomize;
assign(f,'file1');
rewrite(f);
write('Êîëè÷åñòâî ÷èñåë n=');
readln(n);
      for i:=1 to n do
begin
a:=random (10)-5;
write (f,a);
end;
writeln('Èñõîäíûé ôàéë ñ ÷èñëàìè:');
reset(f);
      while not eof(f) do
      begin
      read(f,a);
      write(a,' ');
      end;
 
end.

@unick12345 · 03.05.2010, 15:11

добавь еще пару файлов типа integer на запись.
при чтении из f делай проверку если число положительное то к примеру в f1 иначе в f2

Pascal

reset(f);
assign(f1,'filepol');
rewrite(f1);
assign(f2,'fileotr');
rewrite(f2);
      while not eof(f) do
      begin
      read(f,a);
      if a>=0 then write(f1,a) else write(f2,a);
      write(a,' ');
      end;

@Максим_Лост · 03.05.2010, 16:27 **[ТС]**

Так что ли?

Pascal

Program files;
uses crt;
var f,f1,f2:file of integer;
    n,i,a,j,k:integer;
begin
clrscr;
randomize;
assign(f,'file1');
rewrite(f);
write('Êîëè÷åñòâî ÷èñåë n=');
readln(n);
      for i:=1 to n do
begin
a:=random (10)-5;
write (f,a);
end;
writeln('Èñõîäíûé ôàéë ñ ÷èñëàìè:');
reset(f);
      while not eof(f) do
      begin
      read(f,a);
      write(a,' ');
      end;
writeln;
close(f);
reset(f);
assign(f1,'filepol.txt');
rewrite(f1);
assign(f2,'fileotr.txt');
rewrite(f2);
      while not eof(f) do
      begin
      read(f,a);
      if a>=0 then write(f1,a) else write(f2,a);
      write(a,' ');
      end;
 
end.

правильно??

Добавлено через 13 минут
У меня ещё вопрос. Как вывести результат в типизированном виде (потому что если выводить в текстовом, то получится ерунда)???

Добавлено через 58 минут
никто не поможет?

	03.05.2010, 16:27

Опции темы