Multiplicação de Matrizes
Publicado por Perfil removido (última atualização em 03/07/2011)
[ Hits: 11.138 ]
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.
Contador de números (Pascal) - efeito Matrix
intercalar dois arrays (vetores)
Nenhum coment�rio foi encontrado.
O que é o THP na configuração de RAM do Linux e quando desabilitá-lo
Comparação entre os escalonadores BFQ e MQ-Deadline (acesso a disco) no Arch e Debian
Conciliando o uso da ZRAM e SWAP em disco na sua máquina
Servidor de Backup com Ubuntu Server 24.04 LTS, RAID e Duplicati (Dell PowerEdge T420)
Como unir duas coleções de ROMs preservando as versões traduzidas (sem duplicatas)
Como instalar o Telegram Desktop no Ubuntu 24.04
Overclocking Permanente para Drastic no Miyoo Mini Plus
Problemas de chaves (/usr/share/keyrings) no Debian
Converter os repositórios Debian para o novo formato com as chaves
Problema com audio apos upgrade (1)
Programa simples pra cortar vídeos [RESOLVIDO] (7)
Instalação automatizada do Debian 12 em UEFI (1)