Den1995
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Необходима помощь в решении задачи на подпрограммы с действиями над матрицами, решение задачи просто уже есть, нужно просто заменить все действия, а также подпрограмму которая будет вводить и выводить значения, которые мы написали в головной программе, вот задача и если что условие (2,5*A+B"2)*(A-B^2):
Program abc;
type
matr = array[1..10,1..10] of real;
var
a,b,c,b2,c1,c2: matr;
i,j,k,n: byte;
begin
write('n = ');
read(n);
for i:=1 to n do for j:=1 to n do
begin
write('Vedite a[',i,',',j,']=');
readln(a[i,j]);
end;
for i:=1 to n do for j:=1 to n do
begin
write('Vedite b[',i,',',j,']=');
readln(b[i,j]);
end;
for i:=1 to n do for j:=1 to n do
begin
b2[i,j]:=0;
for k:=1 to n do b2[i,j]:=b2[i,j]+b[i,k]*b[k,j];
end;
for i:=1 to n do for j:=1 to n do
begin
c1[i,j]:=2.5*a[i,j]+b2[i,j];
c2[i,j]:=a[i,j]-b2[i,j];
end;
for i:=1 to n do for j:=1 to n do
begin
c[i,j]:=0;
for k:=1 to n do c[i,j]:=c[i,j]+c1[i,k]*c2[k,j];
end;
for i:=1 to n do
begin
for j:=1 to n do write(c[i,j]:10:3);
writeln;
end;
readln;
end.
|
