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

@Sai19 · Регистрация: 30.11.2013

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

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

@Puporev · 21.12.2013, 10:34

Pascal

uses crt;
const nmax=15;
type mas=array[1..nmax] of real;
procedure Smooth(var a:mas;n:byte);
var i:byte;
    x,y,z:real;
begin
x:=a[1];
y:=a[2];
write(a[1]:5:2);
for i:=2 to n-1 do
 begin
  z:=a[i+1];
  a[i]:=(x+y+z)/3;
  write(a[i]:5:2);
  x:=y;
  y:=z;
 end;
writeln(a[n]:5:2);
end;
var a:mas;
    n,i:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива A от 3 до ',nmax,' n=');
readln(n);
until n in [3..nmax];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=9*random;
  write(a[i]:5:2);
 end;
writeln;
writeln('Сглаживание');
for i:=1 to 5 do
Smooth(a,n);
readln
end.

@Sai19 1 / 1 / 0 Регистрация: 30.11.2013 Сообщений: 16
		1
	Описать процедуру Smooth(A,N),выполняющую сглаживание вещественного массива А размера N 20.12.2013, 21:05. Показов 1699. Ответов 1 Метки нет (Все метки) Описать процедуру Smooth(A,N),выполняющую сглаживание вещественного массива А размера N следующим образом: каждый элемент массива заменяться на его среднее арифметическое с соседними элементами (при вычисление среднего арифметического используются исходные значения соседних элементов). С помощью этой процедуры выполнить пятикратное сглаживание данного массива A размера N, выводя результаты каждого сглаживания. 0

Опции темы

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

Решение