Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
nikitakucherenk
05.06.2022 13:18 •
Информатика
1. решить матричное уравнение ах=в, где матрица а имеет размерность 6*6 и задается по правилу 1, i> j aij= 2*sin(i+cos( i< =j а столбец свободных членов в имеет размерность 6х1 и задается по правилу bi = 6*ln(1+i). x=a-1*b
Показать ответ
Ответ:
ivahinzeha475
08.10.2020 20:36
PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018
Внимание! Если программа не работает, обновите версию!
uses NumLibABC;
begin
Writeln('Матрица А');
var A:=new Matrix(MatrGen(6,6,(i,j)->i>j?1.0:2*Sin(i+1+Cos(j+1))));
A.Println(12,8);
Writeln('Матрица B');
var B:=new Matrix(MatrGen(6,1,(i,j)->6*Ln(2+i)));
B.Println(12,8);
Writeln('Матрица X'); // X:=A^(-1)xB
var X:=A.Inv*B;
X.Println(12,8)
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
mama791
20.03.2022 08:43
VBA Составьте программу VBA для нахождения из трех произвольных чисел A, B, C, задающих длины сторон треугольника, площади треугольника, если треугольник существует,...
vevgrafov
05.09.2020 14:52
Ребят, как это решать? Сделайте хоть одну задачу, чтоб я немного имела представление, как это делать...
bahahas
04.08.2021 04:59
4. Различают три вида чисел: целые, вещественные (дробные) и комплексные, но при составлении простых программ обычно используют целые и вещественные. Приведите примеры...
Shagovikova08
01.03.2023 22:05
с информатикой. Дана программа. Определить результат выполнения. program N02; const A: array [1..10] of integer=( 1,36,2,18,3,12,4,9,6,6); var i, k: integer; begin...
Лиза2005111111111
28.08.2022 03:46
Из лагеря на станцию расстояние между которыми 12 км, вышел турист. если турист увеличит cвою скорость на 1 км/ч то за 3 Часа он пройдёт больше 12 км если он уменьшил...
49583
13.09.2022 13:09
Надо упаковать 86 кубиков коробки,10 штук в каждую. Сколько потребуется такихкоробок? Сколько кубиков останется?С краткой записью решением и ответом...
шоколадказнаний
12.01.2021 18:22
К каким последствия может привести несоблюдение этих правил...
shkolnig2013
21.06.2020 10:46
Жусан иісі Авторға хат жазу...
raremani
05.03.2020 13:52
Запишите математические выражения в виде предложений с тематических терминов «сумма», «разность», «произведение», «частноеa) a+b+ 12;б) (2 +a)(b-с);в)100 - (х+у);г)...
панда267
06.03.2020 10:00
По рисункам и тексту определите типы азональных ландшафтов,распространненых в регионах Азербайджана,и заполните таблицу ОЧЕНЬ НУЖНООО ДАБ ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Внимание! Если программа не работает, обновите версию!
uses NumLibABC;
begin
Writeln('Матрица А');
var A:=new Matrix(MatrGen(6,6,(i,j)->i>j?1.0:2*Sin(i+1+Cos(j+1))));
A.Println(12,8);
Writeln('Матрица B');
var B:=new Matrix(MatrGen(6,1,(i,j)->6*Ln(2+i)));
B.Println(12,8);
Writeln('Матрица X'); // X:=A^(-1)xB
var X:=A.Inv*B;
X.Println(12,8)
end.