Учеба и наука
Нужно написать программу с процедурами и оптимизировать . Программа по этой матрице K=N+3*(A^T*B-C). - вопрос №2262610
program M1;
type T=array[1..10,1..10]of real;
var k,i,j:integer;S:real;
Q,A,AT,B,C,E,F,N:T;
Begin
for i:=1 to 4 do
begin
for j:=1 to 4 do Read(N[i,j]);
Readln;
end;
for i:=1 to 4 do
begin
for j:=1 to 4 do Read(A[i,j]);
Readln;
end;
for i:=1 to 4 do
for j:=1 to 4 do AT[i,j]:=A[j,i];
for i:=1 to 4 do
begin
for j:=1 to 4 do Read(B[i,j]);
ReadLn;
end;
for i:=1 to 4 do
begin
for j:=1 to 4 do Read(C[i,j]);
Readln;
end;
for i:=1 to 4 do
for j:=1 to 4 do
begin
S:=0;
for k:=1 to 4 do
S:=S+AT[i,k]*B[k,j];
F[i,j]:=S
end;
for i:=1 to 4 do
for j:=1 to 4 do E[i,j]:=F[i,j]-C[i,j];
for i:=1 to 4 do
for j:=1 to 4 do Q[i,j]:=N[i,j]+3*E[i,j];
for i:=1 to 4 do
begin
for j:=1 to 4 do write(Q[i,j]);
writeln
end;
end.
декабрь 26, 2016 г.
-
Всего ответов: 0
Похожие вопросы
диаметр шара равен 4m. через конец диаметра проведена плоскость под углом 30 градусов к нему. найдите площадь сечения шара этой плоскостью
февраль 8, 2016 г.
В одном городе любая улица соединяет либо две различные площади, либо площадь тупиком, либо два тупика. с любой площади выходит ровно пять улиц. всего в городе 49 улиц. какое наименьшее количество
декабрь 2, 2016 г.
Закрыт
В треугольнике ABC известно, что AC=6, BC=8, угол C равен 90°. Найдите радиус описанной около этого треугольника окружность. На пишите пожалуйста решение
декабрь 8, 2015 г.