Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
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
test27
Задача №3549. Замечательные числа - 5
Random_1
Kelipatan
Matrix
5
BubbleSor (slimst)
pdp32
Data fb Akanshapanchal2000@gmail.com
test06