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

Между каждой парой рядом стоящих элементов файла поместить среднее арифметическое этих элементов

19.10.2016, 17:07. Показов 1164. Ответов 1
Метки нет (Все метки)

Дан файл действительных чисел. Между каждой парой рядом стоящих элементов поместить среднее арифметическое этих элементов. Например для файла 1, 2, 3, 4, 5 получаем результат 1, 1.5 ,2, 2.5, 3, 3.5, 4, 4.5, 5. Дополнительных файлов и массивов не использовать
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.10.2016, 17:07
Ответы с готовыми решениями:

Если среднее арифметическое элементов стоящих над главной диагональю больше суммы элементов стоящих под побочной
Если среднее арифметическое элементов стоящих над главной диагональю больше суммы элементов...

В списке найти первую пару стоящих рядом элементов, которые в сумме дают следующий за парой элемент
в списке найти первую пару стоящих рядом элементов, которые в сумме дают следующий за парой элемент...

Найти среднее арифметическое значение четных элементов и среднее арифметическое нечетных элементов и сравнить их между собой
Найти среднее арифметическое значение четных элементов и среднее арифметическое нечетных элементов...

Найти максимальное значение модуля разности между каждой парой элементов, т.е. между D1 и D2, D3 и D4.
1)Создать одномерный целочисленный массив из 20 значений. Найти максимальное значение модуля...

1
Почетный модератор
64254 / 47554 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
19.10.2016, 17:42 2
Лучший ответ Сообщение было отмечено legenda32 как решение

Решение

Это типизированный файл file of real?

Добавлено через 24 минуты
Например так.
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
var f:file of real;
    a,b,s:real;
    i,j:integer;
begin
//создадим исходный файл
assign(f,'chisla');
rewrite(f);
randomize;
for i:=1  to 15 do
 begin
  a:=9*random;
  write(f,a);
 end;
 writeln('Содержание исходного файла');
 reset(f);
 while not eof(f) do
  begin
   read(f,a);
   write(a:5:2);
  end;
writeln;
reset(f);
i:=0;
repeat
seek(f,i);
read(f,a);
seek(f,i+1);
read(f,b);
s:=(a+b)/2;
for j:=filesize(f) downto i+2 do
 begin
  seek(f,j-1);
  read(f,a);
  seek(f,j);
  write(f,a);
 end;
seek(f,i+1);
write(f,s);
if i<filesize(f)-1 then i:=i+2;
until i=filesize(f)-1;
reset(f);
writeln('Измененный файл');
while not eof(f) do
 begin
  read(f,a);
  write(a:5:2);
 end;
close(f);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.10.2016, 17:42
Помогаю со студенческими работами здесь

Ввести одномерный массив A из 14 элементов. Определить в нём среднее арифметическое элементов, стоящих на позициях не кр
Ввести одномерный массив A из 14 элементов. Определить в нём среднее арифметическое элементов,...

Ввод элементов массива с клавиатуры и среднее арифметическое этих элементов
как сделать так, чтобы человек сам вводил данные для массива, после нажатия на кнопку. А дальше...

Найти среднее арифметическое элементов каждого столбца и упорядочить столбцы по возрастанию этих элементов
Дана целая прямоугольная матрица размерности NxM. Найти среднее арифметическое элементов каждого...

Если среднее арифметическое элементов стоящих над главной диагональю больше суммы элементов побочной диагонали
Ребят, помогите, пожалуйста. Дана действительная матрица размерности (n*n). Если среднее...

Найти среднее арифметическое элементов, стоящих на нечётных местах
Дан массив A(4), В(6). Найти среднее арифметическое элементов, стоящих на нечётных местах ...

Найти среднее арифметическое элементов, стоящих на нечетных местах
Помогите можалуйста :( написать программу на qbasic и блок схему: Найти среднее арифметическое...


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

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

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