Міністерство освіти та науки України Національний університет «Львівська політехніка» Інститут телекомунікацій, радіоелектроніки та електронної техніки Кафедра теоретичної радіотехніки та радіовимірювань Звіт з лабораторної роботи №10 Тема «Деякі задачі матричної алгебри» з дисципліни «Інформатика та обчислювальна техніка» Мета роботи — засвоїти методи створення, доступу та використання базового структурованого типу даних — масивів, програмну реалізацію операцій з матрицями. Варіант 10 ЗАВДАННЯ. Скласти програму, яка б виконувала задані операції із заданими матрицями. № Вхідні матриці Вихідна матриця  10 7 5 A*B   ВИКОНАННЯ ЗАВДАННЯ. Матриця № 7 5    |6 25 11| 
  ТЕКСТ ПРОГРАМИ. Program L10; uses Crt; const N=3;M=4;L=3;P=1; {B:array [1..3,1..4] of integer=((3,5,7,9), (1,4,6,5), (2,-1,2,1)); A:array [1..3] of integer = (6,25,11); } var f:text; B:array [1..N,1..M] of integer; A:array [1..L,1..P] of integer; I,J,K:byte; Begin assign(f,'in_b5.txt'); reset(f); for i:=1 to n do begin for j:=1 to m do Read(f,B[i,j]); Readln(f) end; close(f); assign(f,'in_a7.txt'); reset(f); for i:=1 to p do begin for j:=1 to l do Read(f,A[i,j]); Readln(f) end; close(f); Writeln(' MATRIX 5 B='); for i:=1 to n do begin for j:=1 to m do Write(B[i,j]:5); Writeln end; Writeln ; Writeln(' MATRIX 7 A='); for i:=1 to p do begin for j:=1 to l do Write(A[i,j]:5); Writeln end; Writeln ; Writeln ; Writeln('A*B'); {?/? for k:=1 to n do} for i:=1 to n do begin for j:=1 to m do Write(A[i,j]*B[i,j]:5); Writeln end; Readln; End. НАЛАГОДЖЕННЯ ТА РЕЗУЛЬТАТИ ТЕСТУВАННЯ.
Висновок: - на лабораторній роботі я засвоїв методику створення, доступу та використання базового структурованого типу даних — масивів, програмну реалізацію операцій з матрицями.