O algoritmo abaixo foi elaborado para manipular duas matrizes. procedure Matriz; var A : array of array of Integer; I, J, N, S : Integer; begin N := 3; S := 0; SetLength(A, N); for I := Low(A) to High(A) do begin SetLength(A[I], N); for J := Low(A[I]) to High(A[I]) do begin S := S + I + J; end; end; ShowMessage (IntToStr(S)); end; A procedure Matriz irá apresentar na tela, através do método ShowMessage, o valor:
O algoritmo abaixo foi elaborado para manipular duas
matrizes.
procedure Matriz;
var
A : array of array of Integer;
I, J, N, S : Integer;
begin
N := 3;
S := 0;
SetLength(A, N);
for I := Low(A) to High(A) do
SetLength(A[I], N);
for J := Low(A[I]) to High(A[I]) do
S := S + I + J;
end;
ShowMessage (IntToStr(S));
A procedure Matriz irá apresentar na tela, através do método ShowMessage, o valor:
12
15
18
21
24
Navegue em mais questões
{TITLE}
{CONTENT}