Паскаль. Отладка программы.

[dimastyi]

Паскаль. Отладка программы.

ПОМОГИТЕ
программа вроде счиатет, но преподаватель говорит не правильно. якобы необходимо накопление суммы.
Условие A[i,j]*B[j,k]+A[i,j]*C[j,k]

Program laba3;
uses crt;
Const m=3;n=4;p=5;
Var A:array [1..m,1..n] of integer;
B:array [1..n,1..p] of integer;
C,AC,AB,R:array [1..m,1..p] of integer;
i,j,k:integer;
begin
clrscr;
writeln('matrica A');
for i:=1 to m do
for j:=1 to n do
begin
write ('A[',i,',',j,']=');
readln (A[i,j]);
end;
writeln('matrica B');
for j:=1 to n do
for k:=1 to p do
begin
write ('B[',j,',',k,']=');
readln (B[j,k]);
end;
writeln('Matrica C');
for j:=1 to n do
for k:=1 to p do
begin
write ('C[',j,',',k,']=');
readln (C[j,k]);
end;
CLRSCR;
writeln('ishodnaya matrica A');
for i:=1 to m do
BEGIN
for j:=1 to n do
WRITE(A[i,j]:3);
WRITELN;
end;
readln;
writeln('ishodnaya matrica B');
for j:=1 to n do
BEGIN
for k:=1 to p do
WRITE(B[j,k]:3);
WRITELN;
end;
readln;
writeln('ishodnaya matrica C');
for j:=1 to n do
BEGIN
for k:=1 to p do
WRITE(c[i,j]:3);
WRITELN;
end;
readln;
writeln('martica A[i,j]*B[j,k]');
for i:=1 to m do
for j:=1 to n do
for k:=1 to p do
begin
AB[i,j]:=A[i,j]*B[j,k];
end;

for i:=1 to m do
BEGIN
for j:=1 to n do
WRITE(AB[i,j]:3);
WRITELN;
end;

writeln('matrica A[i,j]*C[j,k]');
for k:=1 to p do
for i:=1 to m do
for j:=1 to n do

begin
AC[i,j]:=A[i,j]*C[j,k];
end;
for i:=1 to m do
BEGIN
for j:=1 to n do
WRITE (AC[i,j]:5);
WRITELN;
end;
writeln('rezult matrica');

for i:=1 to m do
begin
for j:=1 to n do
begin
R[i,j]:=AB[i,j]+AC[i,j];
write(R[i,j]:3);
end;
writeln;
end;
readln;
end.

 

[Vladimir_S]

Во-первых, размещая сообщение с новой задачей, создайте свою новую тему, а не цепляйтесь к старым чужим. Это - на будущее, сейчас я открыл Вашу тему за Вас.
Во-вторых, будьте так любезны: дайте, пожалуйста, ясную, полную и четкую формулировку задачи. Тогда будем разбираться.
P.S. Если в задаче речь идет о перемножении матриц, то Ваш преподаватель абсолютно прав.