Міністерство освіти та науки України
Національний університет «Львівська політехніка»
Інститут телекомунікацій, радіоелектроніки та електронної техніки
Кафедра теоретичної радіотехніки та радіовимірювань
Звіт з лабораторної роботи №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.
НАЛАГОДЖЕННЯ ТА РЕЗУЛЬТАТИ ТЕСТУВАННЯ.
Висновок: - на лабораторній роботі я засвоїв методику створення, доступу та використання базового структурованого типу даних — масивів, програмну реалізацію операцій з матрицями.