Помогите написать код в делфи 7.

[Алексей АА]

Записать в файл f1 все чётные числа файла f, а в файл f2 все нечётные.

[digitalis]

В файле f они в бинарном - или текстовом виде ? От этого зависит.

[macomics]

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

В файле f они в бинарном - или текстовом виде ?

Разве?

while not eof(f) do begin Read(f, a); if a and 1 = 0 then Write(f1, a) else Write(f2, a); end;

[digitalis]

Ну не знаю, у кого какой D7, но мой различает типы файлов .txt и другие типизированные. Наверное, это "остаточные явления" Паскаля, но я к ним привык Во всяком случае, попытка читать и обрабатывать текстовый файл, содержащий числа, как бинарный и наоборот не приведёт не к чему хорошему.

[Алексей АА]

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

Разве?

while not eof(f) do begin Read(f, a); if a and 1 = 0 then Write(f1, a) else Write(f2, a); end;

Файл в текстовом виде

[digitalis]

Если ещё актуально:

type

  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
   private
    { Private declarations }
  public

  end ;

var
  Form1: TForm1  ;
  F1,F2,F3:Text ;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var  i: integer ;
begin
  AssignFile (F1,'F.txt') ;
  Reset (F1) ;
  AssignFile (F2,'F1.txt') ;
  Rewrite (F2) ;
  AssignFile (F3,'F2.txt') ;
  Rewrite (F3) ;
   while not Eof(F1) do
   begin
     Readln (F1,i) ;
     if (i and 1) = 0 then Writeln(F2,i)
     else Writeln(F3,i)
   end ;
   CloseFile (F1) ;
   CloseFile (F2) ;
   CloseFile (F3) ;
end ;

end.

-----------------------
Результат:
F1
12
31
966
405
33

F2
12
966

F3
31
405
33
--------------------
Мой кот Мурзик нацарапал этот код минуты за 4. Но потребовал, подлец, внеочередной Wiskas
--------------------
Кот обиделся. "Зачем я делал то, что никому не нужно?!"