Exercício 04 Matriz - Pascal

4) Ler duas matrizes, A 4x6 e B 4x6, e criar:

a) uma matriz S que seja a soma de A e B (A+B)

b) uma matriz D que seja a diferença de A e B (A-B)

Escrever as matrizes S e D.

Program matriz4;
uses crt;
var
S,D,A,B:array[1..4,1..6] of integer;
i,j:integer;
Begin
    for i := 1 to 4 do
        Begin
            for j:= 1 to 6 do
                Begin
                    A[i,j]:=random(4);
                    B[i,j]:=random(2);                    
                    Write('A [',i,',',j,'] Informe Valor: ',A[i,j]);
                    Write(' ## ');
                    Write('B [',i,',',j,'] Informe Valor: ',B[i,j]);
                    Writeln;
                    delay(200);                    
                End;
        End;            
    Writeln('S O M A');
    for i := 1 to 4 do
        Begin
            for j:= 1 to 6 do
                Begin
                    S[i,j]:=A[i,j]+B[i,j];                    
                    Write(S[i,j],' ');
                End;
            Writeln;    
        End;        
    Writeln;
    Writeln('S U B T R A C A O');
    for i := 1 to 4 do
        Begin
            for j:= 1 to 6 do
                Begin                    
                    D[i,j]:=A[i,j]-B[i,j];
                    Write(D[i,j],' ');
                End;
            Writeln;    
        End;        
    
    Writeln('           by Marcus Vinicius');            
End.

Categories: Pascal , Programação