Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
indahazzard
0 / 0 / 0
Регистрация: 03.10.2014
Сообщений: 29
#1

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

30.11.2014, 19:17. Просмотров 493. Ответов 4
Метки нет (Все метки)

Дана квадратная матрица А n-го порядка. Построить матрицу B, элемент bij которой равен сумме элементов данной матрицы, расположенных в области, определяемой индексами i, j так, как показано на рисунке (область заштрихована).
помогите исправить код
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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.
0
Изображения
 
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.11.2014, 19:17
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Построить матрицу B, элемент bij которой равен сумме элементов данной матрицы (Delphi):

Получить новую матрицу {b ij} n, n, элемент bij которой равен сумме элементов данной матрицы - Delphi
Данная Действительная квадратная матрица {a ij} n, n. Получить новую матрицу {b ij} n, n, элемент bij которой равен сумме элементов данной...

Получить новую матрицу путем деления всех элементов данной матрицы на ее наибольший по модулю элемент - Delphi
Дана действительная матрица размера n*m. в которой не все элементы равны нулю. Получить новую матрицу путем деления всех элементов данной...

Получить новую матрицу путем деления всех элементов данной матрицы на её наибольший по модулю элемент. - Delphi
Дана действительная матрица размером n×m, в которой не все элементы равны 0. Получить новую матрицу путем деления всех элементов данной...

Заполнение матрицы: элемент равен сумме номера строки и столбца - Delphi
Записать алгоритм и составить программу заполнения прямоугольной таблицы C числами, которые равны сумме рядка и столбика, в которых...

Получить целочисленную квадратную матрицу того же порядка, в которой элемент равен единице - Delphi
дана квадратная матрица порядка 5 . получить целочисленную квадратную матрицу того же порядка, в которой элемент равен единице, если...

Постройте массив S, каждый элемент которого равен сумме соответствующих элементов массивов A и B - Delphi
Даны динамические массивы A и B, состоящие из n элементов. Постройте массив S, каждый элемент которого равен сумме соответствующих...

4
Puporev
Модератор
54035 / 41668 / 14745
Регистрация: 18.05.2008
Сообщений: 97,980
30.11.2014, 23:37 #2
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
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.
0
indahazzard
0 / 0 / 0
Регистрация: 03.10.2014
Сообщений: 29
01.12.2014, 02:50  [ТС] #3
а можно немного обьяснить?
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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;
0
Puporev
Модератор
54035 / 41668 / 14745
Регистрация: 18.05.2008
Сообщений: 97,980
01.12.2014, 08:07 #4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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;
0
indahazzard
0 / 0 / 0
Регистрация: 03.10.2014
Сообщений: 29
01.12.2014, 16:18  [ТС] #5
огромное спасибо
0
01.12.2014, 16:18
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.12.2014, 16:18
Привет! Вот еще темы с ответами:

Изменить все столбцы матрицы, в которой равен нулю элемент главной диагонали - Delphi
Помогите Горю на зачетной недели!!напишите пожалуйста программный код В Дельфине!! 2.Задан массив С1 С2...Сn . Нужно изменить все...

Найти сумму элементов строки матрицы, в которой расположен элемент с наибольшим значением - Delphi
10. Дана действительная матрица порядка M*N. Найти: сумму элементов строки, в которой расположен элемент с наибольшим значением...

Найти сумму элементов строки матрицы, в которой расположен элемент с наименьшим значением - Delphi
В данной действительной квадратной матрице порядка n найти сумму элементов строки, в которой расположен элемент с наименьшим значением....

Составить программу для вычесления элементов матрицы С={cij}, являющейся суммой матриц A={aij} и B={bij} - Delphi
Помогите дописать программу,пожалуйта! Буду очень блогодарен! Сама задача: Составить программу для вычесления элементов матрицы...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru