Multiplicação de Matrizes
Publicado por Perfil removido (última atualização em 03/07/2011)
[ Hits: 11.029 ]
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.
Calculadora completa com porcentagem(Lazarus)
Função Fatorial Recursiva em Ada 95
mais um modelo de programa com vetor
Nenhum comentário foi encontrado.
Como gerar qualquer emoji ou símbolo unicode a partir do seu teclado
Instalar e Configurar o Slackware Linux em 2025
Como configurar os repositórios do apt no Debian 12 em 2025
Passkeys: A Evolução da Autenticação Digital
Instalação de distro Linux em computadores, netbooks, etc, em rede com o Clonezilla
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
Configurando o Conky para iniciar corretamente no sistema
3 configurações básicas que podem melhorar muito a sua edição pelo editor nano
Minha rede tem um espaço invisível que não dá pra digitar o nome da re... (1)
Pedagogia no brasil não passa de alfabetização por m4sturbação mental ... (2)
compilação samba 4.22 rock linux 9.5 (3)
Erro de segmentação «Segmentation fault (core dumped)» ao retornar obj... (7)