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

20.12.2013, 18:56. **Показов** 2278. **Ответов** 1

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

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

Добавлено через 14 минут
число совершенно,если она равна сумме всех своих делителей кроме самого себя. Пример: 6=1+2+3 найдите все совершенные числа от 1 до 1000 и выведите их на экран

@Пытливый · 20.12.2013, 18:58

Pascal

Const
 N = 10;
 
Type
 TArray = array[1..N] of real;
 
procedure Smotch(var A: TArray; N: Integer);
Var
  B: TArray;
  i: Integer;
begin
 B := A;
 for i := 2 to N - 1
 do A[i] := (B[i-1] + B[i] + B[i+1])/3;
end;
 
Var
 A: TArray;
 i: Integer;
begin
 for i := 1 to N
 do begin
    A[i] := Random * 10;
    Write(A[i]:5:2);
    end;
 Smotch(A, N);
 WriteLn;
 for i := 1 to N
 do Write(A[i]:5:2);
 ReadLn;
end.

Одна тема один ответ.

MiiiiiiiiiiiiiM
		1
	Описать процедуру Smooth(A,N), выполняющую сглаживание вещественного массива 20.12.2013, 18:56. Показов 2278. Ответов 1 Метки нет (Все метки) Описать процедуру Smooth(A,N), выполняющую сглаживание вещественного массива A размера N следующим образом:каждый элемент массива заменяется на его среднее арифметическое с соседними элементами (при вычислении среднего арифметического используются исходные значения соседних элементов). С помощью этой процедуры выполнить пятикратное сглаживание данного массива A размера N, выводя результаты каждого сглаживания. Добавлено через 14 минут число совершенно,если она равна сумме всех своих делителей кроме самого себя. Пример: 6=1+2+3 найдите все совершенные числа от 1 до 1000 и выведите их на экран

Опции темы

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

Решение