[Pascal] Dodawanie macierzy

[Natasha]

Jak zadeklarować dodawanie macierzy w pascalu?

Napisalam taki program, ale nie liczy poprawnie. Proszę o poprawienie.

Ukryta treść:    

Kod: Zaznacz cały

program dodawaniemacierzy;
var
i,j,m,n:integer;
suma:real;
A,B,C:array[1..10,1..10] of real;

begin
writeln('podaj liczbe wierszy macierzy: ');
readln(n);
writeln('podaj liczbe kolumn macierzy: ');
readln(m);

begin
for i:=1 to n do begin
for j:=1 to m do begin
write('A[',i,',',j,']: ');
readln(A[i][j]);
end;
end;
end;

begin
for i:=1 to n do begin
for j:=1 to m do begin
write('B[',i,',',j,']: ');
readln(B[i][j]);
end;
end;
end;

suma:=0;
suma:=suma+A[i][j]+B[i][j];
C[i][j]:=suma;
write('A+B=C');
write('macierz C');
begin
for i:=1 to n do
begin
for j:=1 to m do
begin
write(C[i][j]:0:0, '  ');
end;
writeln;
end;
end;
readln;
end.

[bartek118]

Jeszcze musisz to ubrać w pętlę:

Kod: Zaznacz cały

suma:=0;
suma:=suma+A[i][j]+B[i][j];
C[i][j]:=suma;

W taki sposób:

Kod: Zaznacz cały

for i:=1 to 10 do begin
for j:=1 to 10 do begin
         suma:=0;
         suma:=suma+A[i][j]+B[i][j];
         C[i][j]:=suma
end
end;

[KamilLW]

Gotowy program:

Kod: Zaznacz cały

uses crt;
var
tablica1:array[1..5,1..5] of integer;
tablica2:array[1..5,1..5] of integer;
i,j,x,y:integer;

BEGIN
clrscr;
randomize;
for i:=1 to 5 do begin
for j:=1 to 5 do begin
tablica1[i,j]:=random(100);
write(tablica1[i,j],);
end;
writeln;
end;
writeln;

for x:=1 to 5 do begin
for y:=1 to 5 do begin
tablica2[x,y],);
end;
writeln;
end;
writeln;

for i:=1 to 5 do begin
for j:=1 to 5 do begin
write(tablica1[i,j]+tablica2[i,j],);
end;
writeln;
end;
readln;

END.