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

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

Решение:

program Param5;

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

var
 A:RArray;
 Na,i:integer;

Procedure Smooth_1(var A:RArray; N:integer);
 var i,k:integer;
     TempA:RArray;
begin
 for k:=1 to N do
  begin
   for i:=1 to k do TempA[k]:=TempA[k]+A[i];
   TempA[k]:=TempA[k]/k;
  end;
 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_1(A,Na);
   InputArray(A,Na);
  end;
 Readln;
end.

program Param5;

type

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

var

A:RArray;

Na,i:integer;

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

var i,k:integer;

TempA:RArray;

begin

for k:=1 to N do

begin

for i:=1 to k do TempA[k]:=TempA[k]+A[i];

TempA[k]:=TempA[k]/k;

end;

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_1(A,Na);

InputArray(A,Na);

end;

Readln;

end.

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

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

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

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

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