Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
1 / 1 / 0
Регистрация: 19.01.2011
Сообщений: 15
1

Сформировать файл последовательного доступа, элементами которого являются числа a1, a1*a2, a1*a2*a3,........,a1*a2*a3*......an

14.02.2011, 16:38. Просмотров 1306. Ответов 3
Метки нет (Все метки)

Записать в файл последовательность доступа N натуральных чисел: a1, a2,a3....an (числа получить с помощью датчика случайных чисел). Сформировать новый файл последовательного доступа, элементами которого являются числа a1, a1*a2, a1*a2*a3,........,a1*a2*a3*......an
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.02.2011, 16:38
Ответы с готовыми решениями:

Сформировать новый файл последовательного доступа,элементами котороого является числа а1,а1*а2,а1*а3,...,а1*а2*а3*...*аn
запустить в файл последовательного доступа N натуральных чисел:а1,а2,...аn(числа получить с помощью...

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

Файл: Сформировать файл, элементами которого являются числа а1, а1 * а2, а1 * а2 *а3, ..., а1 *а2 * а3 * ... * аN.
Записать в файл последовательность натуральных чисел: а1, а2, ..., аn (числа получить с помощью...

Сформировать массив IM( 50 ) ,элементами которого являются числа 1,3,5,…,49,50,48,46 ,…,2
Сформировать массив IM( 50 ) , элементами которого являются числа ...

3
3 / 3 / 1
Регистрация: 24.01.2011
Сообщений: 61
14.02.2011, 19:20 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
var
a:array[1..n]of integer;
s:array[1..n]of integer;
i,j,n:integer;
output1,output2:text;
begin
assign(output1, 'output1.txt');
rewrite(output2);
assign(output2, 'output2.txt');
rewrite(output2);
 
write('Введите размер массива: ', n);
read(n);
for i:=1 to n do
a[i]:=random;
write(output1, a[i]);
 
s[1]:=a[1];
for i:=1 to n do
  for j:=1 to n do
    s[j]:=s[j]*i;
write(output2, s[j]);
close(output1);
close(output2);
end.
0
1 / 1 / 0
Регистрация: 19.01.2011
Сообщений: 15
15.02.2011, 14:09  [ТС] 3
мне нельзя использовать массивы. только файл
0
Модератор
62242 / 46530 / 32077
Регистрация: 18.05.2008
Сообщений: 112,486
15.02.2011, 14:36 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
uses crt;
var f,g:file of longint;
    n,a,i,j,p:longint;
begin
clrscr;
randomize;
assign(f,'file1');
rewrite(f);
assign(g,'file2');
rewrite(g);
write('Сколько чисел ввести в файл n=');
readln(n);{условие поганое, поэтому большое n вводить не нужно}
for i:=1 to n do
 begin
  a:=random(5)+1;{числа тоже поменьше возьмем}
  write(f,a);
 end;
writeln('Содержание исходного файла:');
reset(f);
for i:=0 to filesize(f)-1 do
 begin
  read(f,a);
  write(a,' ');
 end;
close(f);
writeln;
reset(f);
for i:=0 to filesize(f)-1 do
 begin
  p:=1;
  for j:=0 to i do
   begin
    seek(f,j);
    read(f,a);
    p:=p*a;
   end;
  write(g,p);
 end;
close(f);
writeln('Новый файл:');
reset(g);
for i:=0 to filesize(g)-1 do
 begin
  read(g,a);
  write(a,' ');
 end;
close(g);
readln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.02.2011, 14:36

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Сформировать массив ИМ (100), элементами которого являются числа...
Всем привет! от не могу никак решить задачку, помогите плиз:) Вот она: Сформировать массив ИМ...

Сформировать массив, элементами которого являются числа 2,1,4,3,6,5,...,100,99
Как написать в турбо си Сформировать массив IM(100) элементами которого являются числа...

Сформировать массив, элементами которого являются цифры числа N
Народ помогите пожалуйста решить контрольную работу..... Она состоит из 7 вопросов...4 я...

Сформировать целочисленный массив A(75), элементами которого являются случайные числа из диапазона [-5, 20]
помогите решить плз,прост сам препод много задал,а этот номер я как то не одупляю!!! "Сформировать...

Сформировать файл, элементами которого являются двенадцать первых членов последовательности Фибоначчи
Кто может решити задачи я не разбираюсь в этом языке программирования 1. Сформировать файл,...

Сформировать файл, элементами которого являются массивы вещественных чисел, введенных с клавиатуры
Составить программы, с помощью которых: -софрмировать файл, элементами которого являются массивы...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.