Технический форум - Сформировать новый файл последовательного доступа

Здравствуйте. Помогите пожалуйста переписать прогу на с++. Никак не пойму как там манипулировать файлами.

Условие: Записать в файл последовательного доступа n натуральных чисел: а1, а2,...,an (числа получить с помощью датчика случайных чисел). Сформировать новый файл последовательного доступа, элементами которого являются числа a1, a1*a2, a1*a2*a3...
Есть эта прога на паскале:

Код:

Program n1;

//Const n=10;

Var f1,f2:file of real;

    x,y:real;

    i,n:integer;

Begin

    assign(f1,'file1.txt');

    rewrite(f1);

    randomize;

    writeln('Vvedite kolichestvo elementov: ');

    readln(n);

    for i:=1 to n do

        begin

        x:=random(1000)/10;

        write(f1,x);

        end;

    close(f1);{zapisali perviy fayl}

    assign(f2,'file2.txt');

    rewrite(f2);

    reset(f1);

    read(f1,y);

    write(f2,y);

    for i:=1 to n-1 do

        begin

        read(f1,x);

        y:=y*x;

        write(f2,y);

        end;

    close(f1);

    close(f2);//zapisali vtoroy fayl

    reset(f1);

    writeln('1 fail: ');

    for i:=1 to n do

    begin

    read(f1,x);

    write(x:5:2,' ');

    end;

    close(f1);

    reset(f2);

    writeln;

    writeln('2 fail: ');

    for i:=1 to n do

        begin

        read(f2,x);

        write(x:5:2,' ');

        end;

    close(f2);//viveli oba fayla

End.