Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
flextron
0 / 0 / 0
Регистрация: 26.04.2013
Сообщений: 3
#1

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

26.04.2013, 17:44. Просмотров 768. Ответов 2
Метки нет (Все метки)

Дана матрица A(2*N, 2*N). Подсчитать сумму значений элементов в каждой четверти матрицы.
Блин помогите решить

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

0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.04.2013, 17:44
Ответы с готовыми решениями:

Найти сумму элементов : верхней четверти , правой четверти , нижней четверти ,левой четверти квадратного массива
В квадратном массиве выделим четыре четверти , ограниченые главной и побочной...

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

В каждом третьем столбце элементы матрицы заменить на 0, подсчитать сумму элементов в каждой чётной строке
Дана матрица размером MxN. В каждом 3-м столбце элементы матрицы заменить на 0,...

Найти сумму элементов левой четверти матрицы
в квадратном массиве выделим четыре четверти, ограниченные главной и побочной...

Найти сумму элементов верхней четверти матрицы.
здравствуйте, ребята! Решаю вот эту задачу: И не получается что-то. Скажите,...

2
ildwine
Супер-модератор
2980 / 1855 / 1224
Регистрация: 04.03.2013
Сообщений: 4,564
Записей в блоге: 1
26.04.2013, 19:42 #2
Лучший ответ Сообщение было отмечено flextron как решение

Решение

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
uses CRT;
const n=5;
var matr : array[1..2*n, 1..2*n] of Integer;
i,j:Byte;
s1, s2, s3, s4 : Integer;
 
begin
clrscr;
randomize;
{Заполняем матрицу случ числами}
for i:=1 to 2*n Do
 for j:=1 to 2*n Do
    matr[i,j]:=Random(100);
{Выводим ее}
for i:=1 to 2*n Do Begin
 for j:=1 to 2*n Do
   write(matr[i,j]:5);
   writeln
end;
s1:=0; s2:=0; s3:=0; s4:=0;
{Сумма первой четверти}
for i:=1 to n Do
 for j:=1 to n Do
   s1:=s1+matr[i,j];
{2ой}
for i:=n+1 to 2*n Do
 for j:=1 to n Do
   s2:=s2+matr[i,j];
{3ей}
for i:=1 to n Do
 for j:=n+1 to 2*n Do
   s3:=s3+matr[i,j];
{4ой}
for i:=n+1 to 2*n Do
 for j:=n+1 to 2*n Do
   s4:=s4+matr[i,j];
{результаты}
Writeln('Сумма 1 четверти равна ', s1);
Writeln('Сумма 2 четверти равна ', s2);
Writeln('Сумма 3 четверти равна ', s3);
Writeln('Сумма 4 четверти равна ', s4);
Repeat Until KeyPressed
end.
Добавлено через 9 минут
Работает 100%, но можно конечно сократить количество циклов двойной вложенности. Я сделал так чтобы было нагляднее. В одном цикле заполнение, в другом вывод и т.д. Расчет сумм можно следать в одном цикле проверяя границы четверти оператором if-then.
0
flextron
0 / 0 / 0
Регистрация: 26.04.2013
Сообщений: 3
26.04.2013, 20:35  [ТС] #3
Спасибо огромное

 Комментарий модератора 
Если какой-либо пост на форуме показался вам полезным, нажмите кнопку "Спасибо" внизу самого поста
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.04.2013, 20:35

Найти сумму элементов левой четверти матрицы.двумерный массив
в квадратном массиве выделим четыре четверти, ограниченные главной и побочной...

Подсчитать сумму элементов каждой строки и сумму элементов каждого столбца
Сама задача: Дан двумерный массив. Найти: а)Суму элементов каждой строки;...

В каждом 3-ем столбце заменить элементы на сумму цифр в элементе и подсчитать сумму элементов в каждой в 3-ей строке
Дана матрица M x N. В каждом 3-ем столбце заменить элементы на сумму цифр в...


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

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

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