Файлы

[xxxPascalxxx]

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

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

№2 Текстовый файл с числовой информацией.
Дан текстовый файл, каждая строка которого содержит изображения нескольких чисел, разделённые пробелами (вещественные числа имеют нулевую дробную часть). Создать файл целых чисел, содержащий все целые числа из исходного файла (в том же порядке).

Заранее спасибо.

[ADSoft]

Сколько сказано - или показывайте наработки свои, тогда помогут.... или уж сразу во фриланс за деньги

[xxxPascalxxx]

Наработка на первую задачу...

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;
var f:file of integer;
g:file of integer;
h:file of integer;
k,n,i,j:integer;
begin
AssignFile (f,'c:\f.dat');
AssignFile (g,'c:\g.dat');
AssignFile (h,'c:\h.dat');
reset(f);
for n:=0 to fileSize(f)-1 do
if n mod 2=1 then
begin
seek(f,n);
rewrite(g);
read(g,n);
end;
for n:=0 to fileSize(f)-1 do
if n mod 2=0 then
begin
seek(f,n);
rewrite(h);
read(h,n);
end;
write(g,n);
writeln(' ');
write(h,n);
readln;

closefile(f);
closefile(g);
closefile(h);
readln;
end.


{ TODO -oUser -cConsole Main : Insert code here }
end.

[xxxPascalxxx]

Наработка на вторую... В файлах я мало понимаю, по-этому получилась ерунда.

program Progect1;

{$APPTYPE CONSOLE}

uses
SysUtils;

var z,s:string;
n,j:integer;
i:real;
f,g:textfile;
begin
z:=' ';
AssignFile (f,'c:\f.txt');
AssignFile (g,'c:\g.txt');
Reset (f);
rewrite(g);
while not eof (f) do
Begin
writeln(f,'c:\f.txt');
j:=pos(z,'c:\f.txt');
delet(z,j,length('c:\f.txt'));
readln(g,'c:\f.txt');
End;
CloseFile (f);
CloseFile (g);
end.

[Шаман]

Вот мое, приблизительное решение первой задачи:
Компилировал во free paskal и Delphi

uses
  crt;
type
  TFile = file of integer; // тип файла
var
  f: Tfile;  
  g, h: text;  // в ввиде текста проще посмотреть, что в файлах
  i, j, k, n: integer;
begin
  clrscr;
  randomize;  // инициализация генератора случайных чисел
  assign(f, 'f.dat');
  assign(h, 'h.dat');
  assign(g, 'g.dat');
  rewrite(f);
  for i := 1 to 10 do            //заполнение файла "F.dat" случайными 
  begin                               значениями, уберешь потом
    Write(f, random(10));
  end;
  reset(f);
  rewrite(g);
  rewrite(h);
  for i := 1 to 10 do
  begin
    read(f, k);                   //читаю из файла f.dat
    if odd(k) = true then      // сравниваю на четность (true= нечетные) 
    begin
      j := k;
      write(g, j);         // записываю в файл

    end;
    if odd(k) = false then         // если четное тогда, записываю в другой 
                                           файл.
    begin
      n := k;
      write(h, n);
    end;
  end;
  close(f);              // закрываю файлы...
  close(g);               
  close(h);
  readln;
end.

код писался почти в лоб, так что проверь...