Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Кира11111
38 / 1 / 0
Регистрация: 22.11.2016
Сообщений: 74
1

Разбить матрицу на квадраты размером 3×3. В центре каждого квадрата поместить сумму остальных его элементов

15.09.2017, 17:44. Просмотров 216. Ответов 5
Метки нет (Все метки)

Дана матрица 3n×3m. Разбить матрицу на квадраты размером 3×3. В центре каждого квадрата поместить сумму остальных элементов квадрата.
0
Изображения
 
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.09.2017, 17:44
Ответы с готовыми решениями:

Разбить матрицу на квадраты размером 3х3. В центре каждого квадрата поместить сумму других элементов квадрата
Помогите, нужно написать код в паскале. Добавлено через 42 минуты Нашел на...

Разбить матрицу на квадраты размером 3х3
Разбить матрицу на квадраты размером 3х3. В центре каждого квадрата поместить...

Создать матрицу 4 на 4, для каждого четного столбца вывести сумму квадратов его элементов
что то мне подсказывает что я номера столбцов в квадрат возвел а не его...

Дано действительную матрицу размером M×N. Найти среднее арифметическое самого большого и самого маленького значений ее элементов
Дано действительную матрицу размером M×N. Найти среднее арифметическое самого...

В двухмерном массиве 3 × 6 для каждого четного столбца определить сумму элементов
не получается составить программку

5
AndrewLis
5 / 5 / 12
Регистрация: 15.12.2016
Сообщений: 23
15.09.2017, 19:04 2
Pascal
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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
program Matrix_Sum_MxN_Centers;
 
const
  n = 3;
  m = 3;
 
var
  mat: Array[1..3*n, 1..3*m] of integer;
  sum, x, y: integer;
 
begin
  // Заполнение матрицы случайными числами
  for var j := 1 to 3*m do
  begin
    for var i := 1 to 3*n do
    begin
      mat[i, j] := random(100);
    end;
  end;
  // Выолнение основного задания
  for var j := 1 to m do
  begin
    for var i := 1 to n do
    begin
      sum := 0;
      x := i * 3 - 1;
      y := j * 3 - 1;
      sum += mat[x-1, y-1];
      sum += mat[x, y-1];
      sum += mat[x+1, y-1];
      sum += mat[x-1, y];
      sum += mat[x+1, y];
      sum += mat[x-1, y+1];
      sum += mat[x, y+1];
      sum += mat[x+1, y+1];
      mat[x, y] := sum;
    end;
  end;
  // Вывод матрицы
  for var j := 1 to 3*m do
  begin
    for var i := 1 to 3*n do
    begin
      Write(mat[i, j]: 5);
      if i mod 3 = 0 then Write('|')
    end;
    WriteLn();
    if j mod 3 = 0 then WriteLn('----+-----+----+----+-----+----+----+-----+----+');
  end;
end.
0
Puporev
Модератор
55014 / 42308 / 29214
Регистрация: 18.05.2008
Сообщений: 99,972
15.09.2017, 19:14 3
Pascal
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
34
35
36
37
38
var a,b:array[1..15,1..15] of integer;
    n,m,i,j,i1,j1,s:integer;
begin
repeat
write('Введите n от 1 до 5 n=');
readln(n);
until n in [1..5];
repeat
write('Введите m от 1 до 5 m=');
readln(m);
until m in [1..5];
randomize;
for i:=1 to 3*n do
 begin
  for j:=1 to 3*m do
   begin
    a[i,j]:=1+random(9);
    write(a[i,j]:3);
   end;
  writeln;
 end;
for i:=1 to n do
for j:=1 to m do
 begin
  s:=0;
  for i1:=3*(i-1)+1 to 3*i do
  for j1:=3*(j-1)+1 to 3*j do
  s:=s+a[i1,j1];
  b[i,j]:=s-a[3*(i-1)+2,3*(j-1)+2];
 end;
writeln;
for i:=1 to n do
 begin
  for j:=1 to m do
  write(b[i,j]:3);
  writeln;
 end;
end.
0
Кира11111
38 / 1 / 0
Регистрация: 22.11.2016
Сообщений: 74
15.09.2017, 22:29  [ТС] 4
А можно ли сделать для этого задания заполнение матрицы с помощью заполнения массива с клавиатуры?
0
kotAV
28 / 26 / 13
Регистрация: 15.09.2017
Сообщений: 156
15.09.2017, 22:34 5
Конечно! Вместо
Pascal
1
mat[i,j]:=random(100);
подставь
Pascal
1
readln(mat[i,j]);
0
Кира11111
38 / 1 / 0
Регистрация: 22.11.2016
Сообщений: 74
15.09.2017, 22:35  [ТС] 6
А можно ли сделать для этого задания заполнение матрицы с помощью заполнения массива с клавиатуры?
Например:
Pascal
1
2
write('Введите размерность матрицы: ');
             readln(N, M);
0
15.09.2017, 22:35
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.09.2017, 22:35

Найти сумму элементов матрицы [A], размером N x M, находящихся над обратной диагональю. Вывести на печать исходную матрицу и сумму.
Найти сумму элементов матрицы , размером N x M, находящихся над обратной...

Найти сумму элементов матрицы [A], размером N x M, находящихся над главной диагональю. Вывести на печать исходную матрицу и сумму.
Найти сумму элементов матрицы , размером N x M, находящихся над главной...

Дана матрица размером M на N. Найти сумму элементов каждого чётного столбца
Найти сумму элементов каждого чётного столбца. Создать программу с...


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

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

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