Multiplicação de Matrizes
Publicado por Perfil removido (última atualização em 03/07/2011)
[ Hits: 11.032 ]
Programa que exibe o produto de duas matrizes em que as dimensões são informadas pelo usuário.
program matriz; var matriz_a : array[1..10, 1..10]of integer; matriz_b : array[1..10, 1..10]of integer; matriz_c : array[1..10, 1..10]of integer; i, j, k, nlin_a, nlin_b, ncol_a, ncol_b : integer; begin writeln('-Ordem da 1ª matriz-'); write('Nº de linhas: '); readln(nlin_a); write('Nº de colunas: '); readln(ncol_a); {=======================================} writeln('-Ordem da 2ª matriz-'); write('Nº de linhas: '); readln(nlin_b); write('Nº de colunas: '); readln(ncol_b); if(ncol_a<>nlin_b)then begin writeln('Não existe a matriz produto!'); end else begin writeln('Valores da 1ª matriz:'); for i:=1 to nlin_a do begin for j:=1 to ncol_a do begin write(i, j, ': '); readln(matriz_a[i, j]); end; end; {=================================================} writeln('Valores da 2ª matriz:'); for i:=1 to nlin_b do begin for j:=1 to ncol_b do begin write(i, j, ': '); readln(matriz_b[i, j]); end; end; {===============================================} for i:=1 to nlin_a do begin for j:=1 to ncol_b do begin matriz_c[i, j]:=0; for k:=1 to ncol_a do matriz_c[i, j]:=matriz_a[i, k]*matriz_b[k, j]+matriz_c[i, j]; end; end; {===============================================} writeln('-Resultado-'); for i:=1 to nlin_a do begin for j:=1 to ncol_b do write(matriz_c[i, j]:5); writeln; end; end; writeln; end.
Cálculadora de décimo terceiro
Nenhum comentário foi encontrado.
Criar entrada (menuentry) ISO no Grub
Como gerar qualquer emoji ou símbolo unicode a partir do seu teclado
Instalar o VIM 9.1 no Debian 12
Como saber o range de um IP público?
Muitas dificuldades ao instalar distro Linux em Notebook Sony Vaio PCG-6131L (VPCEA24FM)
Slackpkg+ (Slackpkg Plus) está de volta!
Como dividir duas janelas igualmente e lado-a-lado na sua tela
Ocomon 6.0.1 - Problemas ao editar configurações estendidas (7)
instalar o Linux em computadores Acer novos (7)
Será possível instalar Linux Mint LMDE em Sony Vaio? (19)
O livro "Linux - Guia do Administrador do Sistema (Rubem E. Ferre... (1)