Помощь - Поиск - Пользователи - Календарь
Полная версия: Сумматор по периметру
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Po1son
вводится матрица А(n,n)
составить программу подсчета сумм значений элементов этой матрицы, образующих квадрат по уменьшению на единицу периметра
исходную матрицу и суммы вывести
klem4
Что-то вроде этого:


const
  n = 6;

type
  TMatrix = array [1..n, 1..n] of Integer;

procedure Create(var mx: TMatrix);
var
  i, j: Integer;
begin
  randomize;

  for i := 1 to n do
   for j := 1 to n do
    mx[i, j] := random(10);
end;

procedure Print(const mx: TMatrix);
var
  i, j: Integer;
begin
  for i := 1 to n do begin
    writeln;
    for j := 1 to n do write(mx[i, j]:2);
  end;
  writeln;writeln;
end;

function SquareSum(const mx: TMatrix; const deep: Integer): Integer;
var
  s, i: Integer;
begin
  s := 0;

  for i := deep to n - deep + 1 do
   s := s + mx[deep, i] + mx[n - deep + 1, i];

  for i := deep + 1 to n - deep do
   s := s + mx[i, deep] + mx[i, n - deep + 1];

  SquareSum := s;
end;

var
  mx: TMatrix;
  i: Integer;

begin
  Create(mx);
  Print(mx);

  for i := 1 to n div 2 do
   writeln('deep = ', i, ' square_sum = ', SquareSum(mx, i));
end.
Po1son
почему то у меня сумма периметра не соответствует значению элементов
klem4
пример матрицы, на которой программа выдает не верный результат привести не догадался ?
Po1son
прошу прощния, это у меня небольшие глюки - программа работает правильно

а можно как нибудь её упростить, например без процедур и функций? (просто мы их ещё не прошли)
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.