Решаем задачи Абрамян на Паскале. Param6

Param6. Описать процедуру Smooth_2($$A$$, $$N$$), выполняющую сглаживание вещественного массива $$A$$ размера $$N$$ следующим образом: элемент $$A_1$$ не изменяется, элемент $$A_K$$ $$(K=2,…, $$N$$)$$ заменяется на полусумму исходных элементов $$A_{K-1}$$ и $$A_K$$. Массив $$A$$ является входным и выходным параметром. С помощью этой процедуры выполнить пятикратное сглаживание данного массива $$A$$ размера $$N$$, выводя результаты каждого сглаживания.

Решение:

program Param6;
type
 RArray = array[1..10] of real;

var
 A:RArray;
 Na,i:integer;

Procedure Smooth_2(var A:RArray; N:integer);
 var k:integer;
     TempA:RArray;
begin
 TempA[1]:=A[1];
 for k:=2 to N do TempA[k]:=(A[k-1]+A[k])/2;
 A:=TempA;
end;

Procedure EnterArray(var A:RArray; var N:integer);
var i:integer;
begin
 Write('Size:');
 Readln(N);
 for i:=1 to N do
  begin
   Write(i,': ');
   Readln(A[i]);
  end;
end;

Procedure InputArray(var A:RArray; var N:integer);
var i:integer;
begin
 Writeln('---');
 for i:=1 to N do Writeln(i,': ',A[i]);
 Writeln('---');
end;


begin
 EnterArray(A,Na);
 for i:=1 to 5 do
  begin
   Smooth_2(A,Na);
   InputArray(A,Na);
  end;
end.

program Param6;

type

RArray = array[1..10] of real;

var

A:RArray;

Na,i:integer;

Procedure Smooth_2(var A:RArray; N:integer);

var k:integer;

TempA:RArray;

begin

TempA[1]:=A[1];

for k:=2 to N do TempA[k]:=(A[k-1]+A[k])/2;

A:=TempA;

end;

Procedure EnterArray(var A:RArray; var N:integer);

var i:integer;

begin

Write('Size:');

Readln(N);

for i:=1 to N do

begin

Write(i,': ');

Readln(A[i]);

end;

Procedure InputArray(var A:RArray; var N:integer);

var i:integer;

begin

Writeln('---');

for i:=1 to N do Writeln(i,': ',A[i]);

Writeln('---');

end;

begin

EnterArray(A,Na);

for i:=1 to 5 do

begin

Smooth_2(A,Na);

InputArray(A,Na);

end;

end.

Другие задачи из раздела Param можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Param6

Комментарии:

Добавить комментарий Отменить ответ