|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
29.05.2017, 21:40 | #1 (permalink) |
Новичок
Регистрация: 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. |
29.05.2017, 21:40 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Пожалуйста, не забудьте прочитать данные темы Delphi. Сформировать файл, в котором не менее 20 целых чисел Считыватель последовательного кода по проводной шине Реферат на тему АЦП последовательного уравновешивания |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|