Построить матрицу B, элемент bij которой равен сумме элементов данной матрицы

indahazzard · Регистрация: 03.10.2014

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

Дана квадратная матрица А n-го порядка. Построить матрицу B, элемент bij которой равен сумме элементов данной матрицы, расположенных в области, определяемой индексами i, j так, как показано на рисунке (область заштрихована).
помогите исправить код

Delphi

uses
  SysUtils;
 
const m = 3;
  const n = 3;
var a: array[1..n,1..m] of Integer;
    i,j: Integer;
begin
   for i:= 1 to n do
   for j:= 1 to m do
   Readln(a[i,j]);
   a[i,j]:= [i,j] + [i-1,j] + [i,j-1] - [i-1,j-1];
   for i:= 1 to n do
   begin
   for j:= 1 to m do
   write (a[i,j],' ');
   end;
   readln;
end.

@Puporev · 30.11.2014, 23:37

Delphi

uses  SysUtils;
const n = 3;
var a,b: array[1..n,1..n] of Integer;
    i,j,p,q: Integer;
begin
writeln('Vvedite elementy matrcy A');
for i:= 1 to n do
for j:= 1 to n do
Readln(a[i,j]);
writeln('Matrica A');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln
 end;
for i:=1 to n do
for j:=1 to n do
 begin
  b[i,j]:=0;
  for p:=1 to i do
  for q:=j to n do
  b[i,j]:=b[i,j]+a[p,q];
 end;
writeln('Matrica B');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(b[i,j]:4);
  writeln
 end;
readln
end.

indahazzard · 01.12.2014, 02:50 **[ТС]**

а можно немного обьяснить?

Delphi

for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln
 end;
for i:=1 to n do
for j:=1 to n do
 begin
  b[i,j]:=0;
  for p:=1 to i do
  for q:=j to n do
  b[i,j]:=b[i,j]+a[p,q];
 end;

@Puporev · 01.12.2014, 08:07

Pascal

for i:=1 to n do //выводим матрицу А на экран построчно
 begin
  for j:=1 to n do
  write(a[i,j]:4);//выводим строку с выделением 4 позиций под число
  writeln //переходим к следующей строке
 end;
for i:=1 to n do //для каждого элемента матрицы А
for j:=1 to n do
 begin
  b[i,j]:=0;//считаем сумму элементов в прямоугольнике
  for p:=1 to i do //от 1 до номера строки
  for q:=j to n do //от номера столбца до n как на картинке
  b[i,j]:=b[i,j]+a[p,q];//и записываем в матрицу В
 end;

indahazzard · 01.12.2014, 16:18 **[ТС]**

огромное спасибо

indahazzard 0 / 0 / 0 Регистрация: 03.10.2014 Сообщений: 29
	01.12.2014, 16:18 [ТС]	5
	огромное спасибо 0

Опции темы