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

@Vad1k · Регистрация: 25.09.2012

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

@Puporev · 14.11.2012, 10:10

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.

@Vad1k 0 / 0 / 1 Регистрация: 25.09.2012 Сообщений: 191
		1
	Описать процедуру Smooth(A,N), заменяющую элементы массива на их среднее арифметическое со своими соседями 14.11.2012, 07:46. Показов 1978. Ответов 1 Метки нет (Все метки) Описать процедуру Smooth(A,N), заменяющую каждый элемент вещественного массива A размера N на его среднее арифметическое со своими соседями ("сглаживание массива"). С помощью этой процедуры выполнить пятикратное сглаживание данного массива A размера N, выводя на экран результаты каждого сглаживания. 0

Опции темы

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

Решение