Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 12.06.2011
Сообщений: 2

Возвести матрицу в третью степень

23.12.2013, 11:21. Показов 683. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Здравствуйте, нужна помощь в написании программы.
Даны 2 матрицы A и B, нужно вычислить матрицу C. C=-B^3+A (с помощью процедур и функций);
Суть проблемы состоит в том, как возвести матрицу в 3 степень? (я знаю, что это делается с помощью перемножения матрицу на саму себя 3 раза) не знаю как это организовать.
Пожалуйста помогите доработайте код)
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
program program1;
  type Matr=array[1..4,1..4] of integer;
  var A,B,C,D,E:Matr;
procedure Matrixini(var M:Matr);
  var i,j:integer;
begin
   randomize;
   for i:=1 to 4 do
   for j:=1 to 4 do
   M[i,j]:=random(20)-10;
end;
Procedure Matrixvivod(var M:Matr);
   var i,j:integer;
begin
   for i:=1 to 4 do
    begin
     for j:=1 to 4 do
      Write(M[i,j],' ');
      Writeln();
      end;
end;
Procedure Matrixumn(A,B:Matr;var M:Matr);
  var i,j,k:integer;
  var S:integer;
begin
    for i:=1 to 4 do
     for j:=1 to 4 do
begin
   S:=0;
    for k:=1 to 4 do
     S:=S+A[i,k]*B[k,j];
     end;
      M[i,j]:=S;
 end;
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
23.12.2013, 11:21
Ответы с готовыми решениями:

Файлы. Все элементы меньшие восьми возвести в третью степень
Помогите , пожалуйста, с программой Ввести файл F . Все элементы меньшие восьми возвести в третью степень. Файл вывести до и после...

Возвести матрицу А в 15 степень
const Count = 3; var Mat1, ResMat1 : array of integer; u,e, i, j, R : integer; begin for i:=1 to count do for j:=1 to...

Возвести -1 в степень n
(-1)n na paskal?

1
Фрилансер
 Аватар для CodeR
3418 / 2815 / 3000
Регистрация: 08.02.2012
Сообщений: 8,603
Записей в блоге: 1
23.12.2013, 12:30
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
Procedure Matrixumn(A,B:Matr;var M:Matr);
  var i,j,k:integer;
  var S:integer;
begin
    for i:=1 to 4 do
     for j:=1 to 4 do
begin
   S:=0;
    for k:=1 to 4 do
     S:=S+A[j,k]*B[k,j];
     end;
      M[i,j]:=S;
 end;
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
23.12.2013, 12:30
Помогаю со студенческими работами здесь

Возвести в степень
Даны 2 числа a, b. Нужно возвести число a в степень числа b и из получившегося числа вывести цифру из скольки цифр оно получилось. Например...

Возвести в степень
Вывести на экран монитора значения вырожения 2 в степени n, где n=1..17

Возвести в квадрат отрицательные числа и в третью степень
13. Даны три целых числа. Возвести в квадрат отрицательные числа и в третью степень — положительные (число 0 не изменять). помогите...

Возвести в квадрат отрицательные числа и в третью степень — положительные
Даны три целых числа. Возвести в квадрат отрицательные числа и в третью степень — положительные (число 0 не изменять).

Операторы цикла- задача. Возвести в третью степень числа от 1 до 10
ЗАДАЧА Составить программу возведения в третью степень чисел от 1 до 10 Составить три программы на языке Паскаль для данной задачи, по...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android
8Observer8 26.01.2026
Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д.
8Observer8 25.01.2026
Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf
8Observer8 25.01.2026
Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly
8Observer8 24.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы
anaschu 24.01.2026
Решили писать научную статью с неким РОманом
http://iceja.net/ математические сервисы
iceja 20.01.2026
Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов
iceja 18.01.2026
Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru