Доброго времени суток господа .. в общем необходимо составить программу вычисления и преобразования матрицы P=f(A,B,C), где P=f(A,B,C) – матричное выражение; A, B, C – исходные матрицы, размер и значения элементов которых выбираются произвольно.(A^T+B^2\2) - C
В общем получилось возвести в квадрат матрицу B и поделить на 2, но вот возник вопрос как транспортировать матрицу A?Помогите пожалуйста кто знает ибо в ассемблере я нуб
Вот текст:
program kursach;
const
maxn=10;
var
matrA,matrB,matrC:array[1..maxn,1..maxn] of shortint;
matrP,tempmatrP:array[1..maxn,1..maxn] of shortint;
i,j,k,n,m,p,f:integer;
s:shortint;
baseA,baseB,baseC,baseP:integer;
begin
write('Vvedite kolichestvo strok matrici A:');
readln(m);
write('Vvedite kolichestvo stolbcov matrici A:');
readln(p);
writeln('Vvedite elementi matrici A:');
for i:=1 to m do
for j:=1 to p do
begin
write('matrA[',i,',',j,']=');
readln(matrA[i,j]);
end;
begin
write('Vvedite kolichestvo strok matrici B:');
readln(m);
write('Vvedite kolichestvo stolbcov matrici B:');
readln(p);
writeln('Vvedite elementi matrici B:');
for i:=1 to m do
for j:=1 to p do
begin
write('matrB[',i,',',j,']=');
readln(matrB[i,j]);
end;
end;
asm
mov i,0
mov baseP,0
@@cicli:
mov j,0
@@ciclj:
mov s,0
mov k,0
mov baseB,0
@@ciclk:
mov dl,2
mov bx,baseP
mov si,j
mov al,byte ptr matrB[bx+si]
mov ah,0
imul byte ptr matrB[bx+si]
div dl
add s,al
add al,byte ptr matrB[bx+si]
mov bx,baseP
mov si,j
mov al,s
mov byte ptr matrP[bx+si],al
inc j
mov ax,p
cmp j,ax
jl @@ciclj
inc i
add baseP,maxn
mov ax, m
cmp i,ax
jl @@cicli
mov i,0
mov j,0
mov bx,i
mov si,j
mov al, byte ptr matrA[bx+si]
end;
writeln('ASM result Matrica P:');
for i:=1 to m do
begin
for j:=1 to p do
write(matrP[i,j],' ');
writeln;
end;
writeln('ASM result Matrica A:');
for i:=1 to m do
begin
for j:=1 to n do
write(matrA[i,j],' ');
writeln;
end;
end.
