Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 29.05.2017, 21:40   #1 (permalink)
Zebraya
Новичок
 
Регистрация: 28.05.2017
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Сформировать новый файл последовательного доступа

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

Условие: Записать в файл последовательного доступа 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.
Zebraya вне форума   Ответить с цитированием

Старый 29.05.2017, 21:40
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Пожалуйста, не забудьте прочитать данные темы

Delphi. Сформировать файл, в котором не менее 20 целых чисел
Считыватель последовательного кода по проводной шине
Реферат на тему АЦП последовательного уравновешивания

Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 00:09.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.