|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
умножать, складывать и вычитать две матрицы
Написать программу, которая будет умножать ,складывать и вычитать две матрицы,
Результат выводить в третью матрицу. помогите кто нибудь потому что в delphi я 0. |
#2
|
|||
|
|||
тебе матрицы 3*3 пойдут
|
#3
|
|||
|
|||
А почему именно 3х3???
Примерно так будет сложение: Код:
procedure MatrixCheckSize(A, B, C : Array Of Integer); var I : Integer; begin // Простая проверка по первой размерности If (Length(A) <> Length(B)) Or (Length(B) <> Length(C)) Then Raise Exception.Create('Матрицы разного размера.'); // Проверка по второму размеру For I := Low(A) To High(A) Do If (Length(A[i]) <> Length(B[i])) Or (Length(B[i]) <> Length(C[i])) Then Raise Exception.Create('Матрицы разного размера.'); end; procedure MatrixAdd(A, B : Array Of Integer; var C : Array Of Integer); var I, J : Integer; begin MatrixCheckSize(A,B,C); For I := Low(A) To High(A) Do For J := Low(A[i]) To High(A[i]) Do C[I,J] := A[I,J] + B[I,J]; end; |