Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
0 / 0 / 1
Регистрация: 09.09.2012
Сообщений: 33
1

Подсчет сумм значений элементов матрицы

31.03.2013, 18:46. Показов 531. Ответов 5
Метки нет (Все метки)

Подсчет сумм значений элементов матрицы, образующих квадрат по уменьшающемуся на "единицу" периметру.
У меня квадратная матрица, нужно посчитать сумму элементов по внешнему квадрату, затем на единицу ближе к центру квадрат и так до последнего значения. Никак не могу придумать что сделать. Помогите пожалуйста!!!
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
31.03.2013, 18:46
Ответы с готовыми решениями:

Структура: подсчет максимальных и минимальных значений, сумм и средних значений для числовых полей
Структура должна включать не менее 10 столбцов, в том числе – строковые, числовые и дата, всего в...

Подсчет числа положительных и отрицательных сумм элементов строк массива
составьте программу подсчёта числа положительных и отрицательных сумм элементов строк массива...

Для заданной целочисленной матрицы найти максимум среди сумм элементов диагоналей, параллельных главной диагонали матрицы
Для заданной целочисленной матрицы найти максимум среди сумм элементов диагоналей, параллельных...

Найти сумму максимальных элементов столбцов матрицы и наименьшую из сумм элементов строк
Данна вещественная матрица А (n, m). Найти сумму максимальных элементов столбцов матрицы и...

5
Модератор
63381 / 47074 / 32446
Регистрация: 18.05.2008
Сообщений: 114,106
31.03.2013, 19:25 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
uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    n,i,j,k,s:integer;
begin
clrscr;
randomize;
repeat
write('Размер матрицы до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(20);
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln('Суммы убывающих кыадратов:');
for i:=1 to n div 2 do
 begin
  s:=0;
  for j:=i to n-i+1 do
  for k:=1 to n-i+1 do
  s:=s+a[j,k];
  writeln('Квадрат ',i,'=',s);
 end;
if odd(n) then writeln('Квадрат ',i+1,'=',a[n div 2+1,n div 2+1]);
readln
end.
1
0 / 0 / 1
Регистрация: 09.09.2012
Сообщений: 33
31.03.2013, 19:38  [ТС] 3
А можно это запихнуть в процедуру?

Добавлено через 6 минут
У меня уже есть процедура по размерности матрицы и ее названию.
0
Модератор
63381 / 47074 / 32446
Регистрация: 18.05.2008
Сообщений: 114,106
01.04.2013, 07:38 4
Цитата Сообщение от vitalik1809 Посмотреть сообщение
А можно это запихнуть в процедуру?
Можно, запихни...
0
0 / 0 / 1
Регистрация: 09.09.2012
Сообщений: 33
01.04.2013, 23:13  [ТС] 5
А как это сделать?

Добавлено через 1 минуту
Из этого сделать функцию точнее
0
232 / 214 / 63
Регистрация: 01.09.2012
Сообщений: 2,103
01.04.2013, 23:36 6
Цитата Сообщение от vitalik1809 Посмотреть сообщение
А как это сделать?
Добавлено через 1 минуту
Из этого сделать функцию точнее
ручками...
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.04.2013, 23:36

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Подсчет четных и нечетных значений элементов диагоналей матрицы
Дана симметричная матрица размером 20, заполненная случайными числами от 0 до 9. Вывести на дисплей...

Определить сумму отрицательных элементов в каждой строке матрицы и упорядочить номера строк по возрастанию значений найденных сумм
Дана прямоугольная матрица размером N x M, содержащая целые числа. Определить сумму отрицательных...

Подсчет сумм элементов в матрице.
n строк-вагоны n столбцов-место в вагоне значение0-свободно значение1-мужчины значение2-женшины...

Найти наименьшую из сумм элементов строк и сумму наименьших элементов столбцов матрицы
Дана вещественная матрица A размеров 5*4. Найти наименьшую из сумм элементов строк матрицы и сумму...


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

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

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