Вопрос по информатике:
Дана вещественная матрица B(m*m). вычислить произведение суммы всех элементов данной и их разность.
Нужно сделать программу на языке Паскаль через размерность.
Среда разработки Pascal ABCNET
Пожаловаться
- 24.12.2017 08:31
- Информатика
- remove_red_eye 17379
- thumb_up 44
Ответы и объяснения 1
PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var m:=ReadInteger('Количество строк/столбцов в матрице:');
Writeln('*** Исходная матрица ***');
var b:=MatrRandom(m,m,-99,99);
b.Println(4); Writeln(4*m*'-');
var (s,s1):=(Sqr(b[0,0]),0);
for var i:=0 to m-1 do
for var j:=0 to m-1 do
if i+j0 then s1+=b[i,j];
s-=Sqr(s1);
Writeln('Результат: ',s)
end.
Пример
Количество строк/столбцов в матрице: 5
*** Исходная матрица ***
48 -33 4 -66 28
91 -46 58 11 92
37 -42 8 -12 39
25 65 91 -30 83
-31 -53 36 28 49
--------------------
Результат: -184320
Внимание! Если программа не работает, обновите версию!
begin
var m:=ReadInteger('Количество строк/столбцов в матрице:');
Writeln('*** Исходная матрица ***');
var b:=MatrRandom(m,m,-99,99);
b.Println(4); Writeln(4*m*'-');
var (s,s1):=(Sqr(b[0,0]),0);
for var i:=0 to m-1 do
for var j:=0 to m-1 do
if i+j0 then s1+=b[i,j];
s-=Sqr(s1);
Writeln('Результат: ',s)
end.
Пример
Количество строк/столбцов в матрице: 5
*** Исходная матрица ***
48 -33 4 -66 28
91 -46 58 11 92
37 -42 8 -12 39
25 65 91 -30 83
-31 -53 36 28 49
--------------------
Результат: -184320
Пожаловаться
- 25.12.2017 18:57
- thumb_up 22
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы