Multiplicação de Matrizes, Pascal

Multiplicação de Matrizes

program multMatriz;
uses crt;
var
   vend : array[1..8,1..4] of integer;
   prod : array[1..6,1..8] of integer;
   comp : array[1..6,1..4] of integer;
   mp   : array[1..6] of string;
   mes  : array[1..4] of string;
   pa   : array[1..8] of string;
   acumula, linha, colun, i : integer;
begin
     // Inicializando as matrízes.
     vend[1][1]:=40; vend[1][2]:=50; vend[1][3]:= 30; vend[1][4]:=20;
     vend[2][1]:=18; vend[2][2]:=30; vend[2][3]:= 20; vend[2][4]:=5;
     vend[3][1]:=70; vend[3][2]:=80; vend[3][3]:= 90; vend[3][4]:=80;
     vend[4][1]:=10; vend[4][2]:=20; vend[4][3]:= 10; vend[4][4]:=20;
     vend[5][1]:=50; vend[5][2]:=30; vend[5][3]:= 60; vend[5][4]:=70;
     vend[6][1]:=0;  vend[6][2]:= 0; vend[6][3]:= 20; vend[6][4]:=20;
     vend[7][1]:=4;  vend[7][2]:=12; vend[7][3]:= 12; vend[7][4]:=20;
     vend[8][1]:=18; vend[8][2]:=20; vend[8][3]:= 30; vend[8][4]:=40;

prod[1][1]:=5;  prod[1][2]:=2;  prod[1][3]:= 0;  prod[1][4]:=3;
     prod[1][5]:=4;  prod[1][6]:=8;  prod[1][7]:= 0;  prod[1][8]:=0;

prod[2][1]:=10; prod[2][2]:=20; prod[2][3]:= 6;  prod[2][4]:=0;
     prod[2][5]:=0;  prod[2][6]:=0;  prod[2][7]:= 0;  prod[2][8]:=0;

prod[3][1]:=3;  prod[3][2]:=4;  prod[3][3]:=10;  prod[3][4]:=8;
     prod[3][5]:=9;  prod[3][6]:=6;  prod[3][7]:= 5;  prod[3][8]:=0;

prod[4][1]:=0;  prod[4][2]:=0;  prod[4][3]:= 0;  prod[4][4]:=4;
     prod[4][5]:=8;  prod[4][6]:=8;  prod[4][7]:=10;  prod[4][8]:=5;

prod[5][1]:=3;  prod[5][2]:=4;  prod[5][3]:= 5;  prod[5][4]:=6;
     prod[5][5]:=6;  prod[5][6]:=6;  prod[5][7]:=10;  prod[5][8]:=1;

prod[6][1]:=4;  prod[6][2]:=4;  prod[6][3]:= 4;  prod[6][4]:=5;
     prod[6][5]:=6;  prod[6][6]:=7;  prod[6][7]:= 8;  prod[6][8]:=8;

mes[1]:= 'Maio'; mes[2]:= 'Jun'; mes[3]:= 'Jul'; mes[4]:= 'Ago';

mp[1]:='S1';     mp[2]:='S2';      mp[3]:='S3';
     mp[4]:='S4';     mp[5]:='S5';      mp[6]:='S6';

pa[1]:='A';      pa[2]:='B';       pa[3]:='C';       pa[4]:='D';
     pa[5]:='E';      pa[6]:='F';       pa[7]:='G';       pa[8]:='Y';

// Calculando o resultado

for linha := 1 to 6 do begin
         for colun := 1 to  4 do begin
             acumula := 0;
             for i := 1 to 8 do begin
                 acumula := acumula + prod[linha][i]*vend[i][colun];
             end;
             comp[linha][colun]:= acumula;
         end;
     end;

// Imprimindo todas planilhas.
     writeln('####### P A D R A O ########');
     writeln;
     write('Comp.');
     for i := 1 to 8 do write(pa[i],'  -  ');
     writeln;
     for i := 1 to 6 do begin
         write(mp[i],' : ');
         for colun := 1 to 8 do begin
             write(prod[i][colun],'  -  ');
         end;
         writeln;
     end;
     writeln;
     writeln('####### V E N D A S ########');
     writeln;
     write('Prod.');
     for i := 1 to 4 do write(mes[i],'  -  ');
     writeln;
     for i := 1 to 8 do begin
         write(pa[i],' : ');
         for colun := 1 to 4 do begin
             write(vend[i][colun],'  -  ');
         end;
         writeln;
     end;

writeln('####### C O M P R A S ########');
     writeln;
     write('Mat.');
     for i := 1 to 4 do write(mes[i],'  -  ');
     writeln;
     for i := 1 to 6 do begin
         write(mp[i],' : ');
         for colun := 1 to 4 do begin
             write(comp[i][colun],'  -  ');
         end;
         writeln;
     end;
     
end.


run \| edit \| history \| help	0

λ

                                      .NET NoSQL database for rapid development