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

Описать процедуру Smooth(A,N), заменяющую элементы массива на их среднее арифметическое со своими соседями

14.11.2012, 07:46. Показов 2042. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Описать процедуру Smooth(A,N), заменяющую каждый элемент вещественного массива A размера N на его среднее арифметическое со своими соседями ("сглаживание массива"). С помощью этой процедуры выполнить пятикратное сглаживание данного массива A размера N, выводя на экран результаты каждого сглаживания.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.11.2012, 07:46
Ответы с готовыми решениями:

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

Описать процедуру Smooth(A,N), выполняющую сглаживание вещественного массива
Описать процедуру Smooth(A,N), выполняющую сглаживание вещественного массива A размера N следующим...

Описать процедуру Smooth(A,N), выполняющую сглаживание массива A размера N
Описать процедуру Smooth(A,N), выполняющую сглаживание массива A размера N следующим образом:...

Описать функцию Smooth(A,N), заменяющую элементы массива на их среднее арифметическое со своими соседями
Приветствую, скоро сессия и требуется помощь умных(не то что я) людей. Написал такое же задание, но...

1
Почетный модератор
64299 / 47594 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
14.11.2012, 10:10 2
Лучший ответ Сообщение было отмечено Vad1k как решение

Решение

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
50
51
52
uses crt;
const nmax=100;
type mas=array[1..nmax] of real;
procedure Smooth(var a:mas;n:byte);
var i:byte;
    x,y,z:real;
begin
i:=2;
x:=a[1];
y:=a[2];
z:=a[3];
repeat
a[i]:=(x+y+z)/3;
x:=y;
y:=z;
i:=i+1;
z:=a[i+1];
until i=n;
end;
procedure Print(var a:mas;n,k:byte);
var i:byte;
begin
writeln('Сглаживание ',k);
for i:=1 to n do
write(a[i]:0:2,' ');
writeln;
writeln;
end;
var a:mas;
    n,i:byte;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Массив:');
for i:=1 to n do
 begin
  a[i]:=10*random;
  write(a[i]:0:2,' ');
 end;
writeln;
writeln;
for i:=1 to 5 do
 begin
  Smooth(a,n);
  Print(a,n,i);
 end;
readln
end.
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.11.2012, 10:10
Помогаю со студенческими работами здесь

Подпрограмма: Описать процедуру, заменяющую каждый элемент массива на его среднее арифметическое со своими соседями...
Описать процедуру Smooth(A,N), заменяющую каждый элемент вещественного массива A размера N на его...

Описать процедуру Smooth(A,N), заменяющую каждый элемент вещественного массива A размера N на его
Описать процедуру Smooth(A,N), заменяющую каждый элемент вещественного массива A размера N на его...

Описать процедуру Smooth(A,N),выполняющую сглаживание вещественного массива А размера N
Описать процедуру Smooth(A,N),выполняющую сглаживание вещественного массива А размера N следующим...

Описать процедуру Mean(X, Y, AMean, GMean), вычисляющую среднее арифметическое и среднее геометрическое
Описать процедуру Mean(X, Y, AMean, GMean), вычисляющую среднее арифметическое AMean = (X + Y)/2...


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

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

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