|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
28.12.2008, 13:28 | #1 |
Пользователь
Регистрация: 23.09.2008
Сообщений: 16
|
Записать в файл последовательного доступа N натуральных чисел: a1, a2, …, an
Задача:Записать в файл последовательного доступа N натуральных чисел: a1, a2, …, an (числа, получить с помощью датчика случайных чисел). Сформировать но-вый файл последовательного доступа, элементами которого являются числа: a1, a1*a2, a1*a2*a3, …, a1*a2*a3*…*an.
Подскажите кто может, в чем ошибка в моем коде.Заранее спасибо Вот примерный код. Код:
|
28.12.2008, 14:37 | #2 |
Форумчанин
Регистрация: 22.12.2008
Сообщений: 104
|
Вот код
uses crt;
var fil:file of integer; f:file of longint; a,i,j,n,k:integer; pr:longint; begin clrscr; randomize; assign(fil,'c:\file1'); rewrite(fil); write(' Kolichestvo chisel -> '); readln(n); for i:=1 to n do begin a:=random(10)+1; write(fil,a); end; close(fil); assign(fil,'c:\file1'); reset(fil); assign(f,'c:\file2'); rewrite(f); for i:=1 to n do begin pr:=1; for j:=1 to i do begin read(fil,a); pr:=pr*a; end; write(f,pr); seek(fil,0); end; close(fil); close(f); readln; end.
@(o_0)@
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Дана непустая последовательность различных натуральных чисел, за которой следует 0. | lider24816 | Помощь студентам | 1 | 22.12.2008 13:28 |
Последовательность натуральных чисел | 777UFO777 | Общие вопросы Delphi | 23 | 03.12.2008 20:42 |
Генерация последовательности псевдослучайных натуральных чисел с требуемым распределением вероятности | elsin | Фриланс | 4 | 19.11.2008 08:57 |
Из двух натуральных чисел, составить наибольшее число, сохраняя первоначальную последовательность.Паскаль | Omedus | Помощь студентам | 8 | 19.11.2007 22:02 |