D, Q, L; drmv; M: integer);
Var i, j, n1: integer;
Begin
for i:= 1 to n do
for j:= 1 to m do
begin
S:= 0;
for k:= 1to n do
S:= S+Q[i ,k]*D[j ,k];
d [i ,j]:= S
end
End.
5. Опис програмних модулів.
5.1. Опис основної програми.
В основній програмі, я за допомогою write вводив матриці B, K. Потім звертався до підпрограми яка обчислює добуток матриць.
5.2. Опис розробленої підпрограми.
Підпрограмі я обчислив добуток двох матриць. Матрицю L я вивів за допомогою оператора write.
Список літератури
Руденко В. Д.; Макарчук О. М.
“Практичний курс інформатики”.
2. Гаменський Я. М. “Основи інформатики та обчислювальна техніка” (частина ІІІ Бейсік).
3. Власов В. К., Корольов Я. Н. “Елементи інформатики”.
4. Розрахунково-лаболаторний практикум з курсу “Математичні модулі, та методи в розрахунках на ЕОМ”.
5. Гринюк Ю. І. “Обчислювальна техніка алгоритмів і програмування мовою Pascal”.