Выполнить пятикратное сглаживание данного массива A размера N, выводя на экран результаты каждого сглаживания.

@alexxxxx · Регистрация: 12.04.2011

Author24 — интернет-сервис помощи студентам

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

@Puporev · 14.05.2011, 15:24

Pascal

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.

@Ильяяяя · 27.05.2011, 20:46

Puporev, а как сделать такую же программу,но чтоб элемент a[k] заменяся на ср.арифм первых к элементов массива....

@Puporev · 27.05.2011, 20:53

Pascal

for k:=n downto 2 do
 begin
  s:=0;
  for j:=1 to k do
  s:=s+a[j];
  a[k]:=s/k;
 end;

@Ильяяяя · 27.05.2011, 21:28

а что такое к и куда этот кусок вставлять?

@Puporev · 27.05.2011, 21:37

Сообщение от Ильяяяя

а что такое к

Так вроде это ты писал...

Сообщение от Ильяяяя

а как сделать такую же программу,но чтоб элемент a[k] заменяся на ср.арифм первых к элементов

Сообщение от Ильяяяя

и куда этот кусок вставлять?

Понятия не имею, ты спросил, я ответил....

@Ильяяяя · 27.05.2011, 21:40

@alexxxxx 0 / 0 / 0 Регистрация: 12.04.2011 Сообщений: 5
		1
	Выполнить пятикратное сглаживание данного массива A размера N, выводя на экран результаты каждого сглаживания. 14.05.2011, 14:59. Показов 882. Ответов 6 Метки нет (Все метки) Описать процедуру Smooth (A,N) заменяюшую каждый элемент вещественного массива A размера N на его среднее арифметическое со своими соседями("сглаживание массива"). С помощью этой процедуры выполнить пятикратное сглаживание данного массива A размера N, выводя на экран результаты каждого сглаживания. Помогите пожалуйста, очень нужно!! 0

@Ильяяяя 0 / 0 / 0 Регистрация: 27.05.2011 Сообщений: 4
	27.05.2011, 20:46	3
	Puporev, а как сделать такую же программу,но чтоб элемент a[k] заменяся на ср.арифм первых к элементов массива.... 0

@Ильяяяя 0 / 0 / 0 Регистрация: 27.05.2011 Сообщений: 4
	27.05.2011, 21:28	5
	а что такое к и куда этот кусок вставлять? 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	27.05.2011, 21:37	6
	Сообщение от Ильяяяя а что такое к Так вроде это ты писал... Сообщение от Ильяяяя а как сделать такую же программу,но чтоб элемент a[k] заменяся на ср.арифм первых к элементов Сообщение от Ильяяяя и куда этот кусок вставлять? Понятия не имею, ты спросил, я ответил.... 0

@Ильяяяя 0 / 0 / 0 Регистрация: 27.05.2011 Сообщений: 4
	27.05.2011, 21:40	7
	всё..."кретинизм не искоренить" © )) спасибо большое) 0