файлы

[Lemo]

задачка с файлами:
Дан файл f, компоненты которого являются целыми числами. Записать в файл g все парные числа файла f, а в файл h-все непарные. Порядок прохождения чисел сохраняются!

[Lemo]

Все?_________

[Stepler]

#include<stdio.h>
void main(void)
 {
   FILE *f,*f1,*f2;
   int n;
   f=fopen("c:\\f.txt","r");
   f1=fopen("c:\\g.txt","w");
   f2=fopen("c:\\h.txt","w");
   while(!feof(f))
    {
     fscanf(f,"%d",&n);
     if(n%2==0)
     fprintf(f1,"%d ",n);
     else
     fprintf(f2,"%d ",n);

    }
  fclose(f);
  fclose(f1);
  fclose(f2);
 }

[Serge_Bliznykov]

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

Все?

Где? :-)
А что сделано? Алгоритм придумали? И что именно у Вас не получается?...

2 Stepler
а Вы уверены, что "парные числа файла f" - это ЧЁТНЫЕ числа? а не те, которые имеют пару (т.е. точно такое же число)?... я лично совсем в этом не уверен...

[Stepler]

to Serge_Bliznykov
Да полностю уверен что речь идет об именно чётным числам )
А впрочем когда автор обявится видно будет )

[Serge_Bliznykov]

мне бы Вашу уверенность... ;-)
"А впрочем когда автор обявится видно будет )"
а вот на это я бы не расчитывал, как на аргумент...
я не уверен, что топикстартер вообще представляет о чём речь идёт... ;-) впрочем... я могу и ошибаться...
Подождём...

[Stepler]

Что автор появится я уверен на 100% , так как он из числа жутких любителей халявы
А то что автор и сам не знает о чём речь идёт, то тогда без экстрасексов не обойтись :-D

[A_r_r_a_y]

ну топикстартер вообще отжигает))), с чего вы вообще взяли, что программу нужно было на C++ писать, а не на паскале или скажем на асме?

[Lemo]

Любитель халявы, да это ты слабоумный!!!!!!ты только на словах, а на деле 000000000. Это я к тебе Stepler!
Вот коД, сам догадался написать! пишеться в Делфи!

program Project2;
{$APPTYPE CONSOLE}
uses
  SysUtils;

var
  f,h,g: textfile;
  x:integer;
begin
  Assignfile(f,'f.txt');
  reset(f);

  assignfile(g,'g.txt');
  rewrite(g);
  assignfile(h,'h.txt');
  rewrite(h);

  while not eof(f) do
    begin
      read(f,x);
      if odd(x) then
        writeln(h,x)
      else
        writeln(g,x);
    end;
close(f);
close(h);
close(g);
end.

[Alter]

close(f);
close(h);
close(g);

Close(var F) => поддерживается для совместимости со старым видом кода, при написании новых заявлений в Delphi, используйте CloseFile вместо этого.