Сформировать и вывести матрицу - Pascal ABC

Формулировка задачи:

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

Код к задаче: «Сформировать и вывести матрицу - Pascal ABC»

textual
program For_seregaPovar;
 
uses
   crt;
 
var
   a: array[1..12, 1..12] of integer;
   b: array[1..12, 1..12] of real;
   i, j, n, m: integer;
   avg: real;
 
procedure main(ip, jp: integer);
var
   i, j: integer;
begin
   for i := ip - 1 to 3 do
      for j := jp - 1 to 3 do
         avg := avg + a[i, j];
   
   avg := avg / 9;
end;
 
begin
   Write('Введите кол-во столбцов: ');Readln(n);
   Write('Введите кол-во строк: ');Readln(m);
   Writeln('Вводите значения:');
   for i := 2 to m + 1 do
   begin
      writeln();
      for j := 2 to n + 1 do
         Read(a[i, j]);
   end;
   
   for i := 2 to m + 1 do
      for j := 2 to n + 1 do
      begin
         main(i, j);
         b[i - 1, j - 1] := avg;
         avg := 0;
      end;
   
   for i := 1 to m do
   begin
      for j := 1 to n  do
         Write(b[i, j]:1:3, ' ');
      writeln();
   end;
   
   
   
   
   
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

11   голосов, оценка 3.818 из 5


СДЕЛАЙТЕ РЕПОСТ