0 / 0 / 0
Регистрация: 19.10.2012
Сообщений: 29
1

Найти общую сумму элементов тех столбцов матрицы, сумма элементов в каждом из которых положительна и сумму элеметов главной диагонали

16.11.2012, 20:36. Показов 3018. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Понадобилось написать программку на паскале, но совершенно забыл как это делать на нём
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.11.2012, 20:36
Ответы с готовыми решениями:

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

Матрицы. Найти общую сумму элементов только тех столбцов, которые имеют хотя бы один нулевой элемент
Здравствуйте. Очень нужна Ваша помощь в решении следующей задачи: Дана вещественная матрица...

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

Матрица. Найти сумму тех элементов, которые расположены на главной диагонали матрицы
Дана вещественная квадратная матрица. Рассмотреть лементы, расположенные в строках,...

3
2 / 2 / 0
Регистрация: 27.07.2012
Сообщений: 18
16.11.2012, 21:39 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
const {блок начальных констант}
stolb=20;
strok=20;
type{ блок описания твоих типов}
aatt=array[1..stolb] of real;{ описание строки}
bbtt=array[1..strok] of aatt;{ описание матрицы}
cctt=array[1..stolb;1..strok] of real{ описание матрицы другое}
 
var { блок описания переменных}
aa:bbtt; { переменная аа типа bbtt}
i,j,a,b:integer;{ описание целочисленных переменных}
sum1,sum2,sum:real;
 
begin { блок выполнения программы}
 
{ считывание значений элементов матрицы в переменную aa}
 
 
sum1:=0;{сумма всех положительных столбцов}
sum2:=0;{ сумма элементов главной диагонали}
for i=1 to stolb do
   begin sum:=0;
    for j=1 to strok do
begin
sum:=sum+aa[i,j];
if i=j then sum2:=sum2+aa[i,j];
end;
if sum>0 then sum1:=sum1+sum;
   end;
 
 
end.
0
0 / 0 / 0
Регистрация: 19.10.2012
Сообщений: 29
16.11.2012, 22:00  [ТС] 3
а что за тип aa:bbtt; ? Никогда такой не встречал!
0
2 / 2 / 0
Регистрация: 27.07.2012
Сообщений: 18
16.11.2012, 22:03 4
это произвольный тип. Твой, пользовательский. этот тип описан в примере в строке номер 6.
В блоке type описывается.
просто лично мне нравится в конце моих типов ставить символы tt/
Ты можешь назвать его как угодно.
1
16.11.2012, 22:03
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.11.2012, 22:03
Помогаю со студенческими работами здесь

Вычислить сумму тех элементов матрицы, номера строк и столбцов которых принадлежат множествам s1 и s2
Просьба писать простые программы, объясняя каждое действие. Вычислить сумму тех элементов...

Вычислить сумму элементов тех столбцов матрицы, первый элемент которых превосходит заданное число a
Вычислить сумму элементов тех столбцов двухмерного массива(3*4),первый элемент которых превосходит...

Найти сумму и количество элементов в каждом столбце, положительных и лежащих вне главной диагонали
Здравствуйте, решите, пожалуста, задачу Дан двумерный массив. Найти сумму и количество элементов...

Найти сумму и количество элементов в каждом столбце, положительных и лежащих вне главной диагонали
Помогите пожалуйста с задачами 1. Дан двумерный массив. Найти сумму и количество элементов в...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru