0 / 0 / 0
Регистрация: 10.11.2012
Сообщений: 39
1

Организовать файл последовательного доступа, элементы которого вычисляются по формуле

27.01.2013, 15:51. Показов 2346. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Записать в файл последовательного доступа n вещественных чисел a1,a2,...,an. Организовать новый файл последовательного доступа, элементы которого вычисляются по формуле(формула на рисунке). Вывести полученный файл на печать.
Миниатюры
Организовать файл последовательного доступа, элементы которого вычисляются по формуле  
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.01.2013, 15:51
Ответы с готовыми решениями:

Организовать новый файл последовательного доступа, элементы которого вычисляются по формуле
Записать в файл последовательного доступа N действитель- ных чисел а1, а2, ..., аn. Организовать...

Создать файл F, элементы которого вычисляются по формуле
Я новичок в программировании,помогите решить задачку на Паскале! Оч. надо зачет! Создать файл F,...

Создать типизированный файл, элементы которого вычисляются по формуле
Program tipizfail; var M: file of integer; i,F,Fi,n:integer; Begin ...

Организовать новый файл, элементы которого вычисляются по формуле
Записать в файл N действительных чисел a1,a2,...an. Организовать новый файл, элементы которого...

1
3030 / 1916 / 1649
Регистрация: 30.04.2011
Сообщений: 3,060
27.01.2013, 17:08 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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Var
  f1,f2: File of Real;
  i,n,k: Integer;
  x,s: Real;
BEGIN
Write('Введите кол-во чисел: ');
Readln(n);
Assign(f1,'1.dat');
Rewrite(f1);
Randomize;
For i:=1 to n do
begin
  x:=10*Random;
  Write(f1,x);
end;
Assign(f2,'2.dat');
Rewrite(f2);
Reset(f1);
Writeln('Содержимое 1 файла:');
For i:=0 to Filesize(f1)-1 do
begin
  Seek(f1,i);
  Read(f1,x);
  For k:=1 to i+1 do
  s:=s+x;
  s:=s/(i+1);
  Write(f2,s);
  Write(x:7:2);
end;
Reset(f2);
Writeln;
Writeln('Содержимое 2 файла:');
For i:=0 to Filesize(f2)-1 do
begin
  Seek(f2,i);
  Read(f2,x);
  Write(x:7:2);
end;
Close(f1);
Close(f2);
END.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.01.2013, 17:08
Помогаю со студенческими работами здесь

Организовать новый файл, элементы которого вычисляются по формуле
Записать в файл N действительных чисел a1,a2,...an. Организовать новый файл, элементы которого...

Создать файл f3, элементы которого вычисляются по формуле
Создать файл f3, элементы которого вычисляются по формуле m:=3*i*i, определить число элементов...

Сформировать массив, элементы которого вычисляются по формуле
сформировать массив P eлементы которого вычисляются по формуле Нужно вивести етот...

Получить вектор, элементы которого вычисляются по формуле
62. Дана квадратная матрица A порядка n. Получить вектор , где b - вектор, элементы которого...

Сформировать массив В, элементы которого вычисляются по формуле
Дан массив А. Сформировать массив В, элементы которого вычисляются по формуле Bi=(i+1)*Ai Массив...

Создать массив, элементы которого вычисляются по формуле
двумерные массивы


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru