Дан файл вещественных чисел с именем Name1. Создать....

[Настенька..Блонди]

Ребята помогите плиз с задачкой,она не сложная но, ни как у меня не получается((((

Дан файл вещественных чисел с именем Name1. Создать два новых файла с именами Name2 и Name3, первый из которых содержит элементы исходного файла с четными номерами (0, 2, 4, ...), а второй — с нечетными (1, 3, 5, ...).

Заранее благодарна!

[Disel]

Ваши первые наработки показывайте...

[sinj]

1. На чем нужно написать?
2. Необходимо последовательно читать значения из файла и записывать в зависимости от их четности\нечетности в тот или иной файл?

[Настенька..Блонди]

Уже не актуально справилась сама ....
Вот если вдруг у кавото похожая задача будет ....

 Program xxx;
uses
  crt;
var
  f1,f2,f3: file of real;
  size,i,n: byte;
  x: real;
begin
   clrscr;
   assign(f1,'name1');
   rewrite(f1);
   write('wwedite kol-wo elementow: ');
   read(n);
   writeln ('wwedite sami elementi: ');
for i:= 0 to n-1 do
  begin
     read(x);
     write(f1,x);
end;
   close(f1);
   assign(f1,'name1');
   assign(f2,'name2');
   assign(f3,'name3');
   reset(f1);   //ЧТЕНИЕ ИЗ ФАЙЛА
   rewrite(f2); //ЗАПИСЬ В ФАЙЛ
   rewrite(f3); //ЗАПИСЬ В ФАИЛ
   size:=filesize(f1);//ОПРЕДЕЛЕНИЕ РАЗМЕРА ФАИЛА
i:=0;
  write('Sodergimoe name2: ');
  repeat
       seek(f1,i);
       read(f1,x);
       write(f2,x);
       write(x:2:2,' ');
       inc(i,2);
  until i>=size;
    close(f2);
    writeln;
    write('Sodergimoe name2: ');
i:=1;
  repeat
      seek(f1,i);
      read(f1,x);
      write(f3,x);
      write(x:2:2,' ');
    inc(i,2);
  until i>=size;
   close(f3);
   close(f1);
  readkey;
end.

Задачка в паскале сделана.