Реферат: Пояснительная записка к курсовой работе

for i1:=1 to Ni1 do

for j1:=1 to Nj1 do m[i1,j1]:=p[i1,j1]+l[i1,j1];

end;

begin

vvod(A,'A',Nj,Ni); {ввод матриц A,B,C,D}

vvod(B,'B',Nk,Nj);

vvod(C,'C',Nj,Nk);

vvod(D,'D',Nj,Nk);

trans(At,A,Nj); {транспонирование матриц}

trans(Bt,B,Nk);

trans(Ct,C,Nk);

trans(Dt,D,Nk);

summ(CtDt,Ct,Dt,Nk,Nj);

multi(AtBt,At,Bt); {умножение матриц}

multi(S,AtBt,CtDt);

writeln ('Результирующая матрица:'); {вывод результата}

for i:=1 to Ni do

begin

for k:=1 to Nj do

write (s,’S[i,k]:7:2,’ );

writeln;

end;

readln;

end.

3.4 Результаты машинного и ручного расчетов.

В результате машинного расчета для выбранных в п.2.3. матриц A, B, C и D получаем матрицу .

Выполним ручной расчет для тех же данных.

; ;

;