Multiplicação de Matrizes
Publicado por Perfil removido (última atualização em 03/07/2011)
[ Hits: 11.171 ]
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.
Tocador de vídeo no Lazarus (Delphi 7 para Linux).
Nenhum comentário foi encontrado.
Como extrair chaves TOTP 2FA a partir de QRCODE (Google Authenticator)
Linux em 2025: Segurança prática para o usuário
Desktop Linux em alta: novos apps, distros e privacidade marcam o sábado
IA chega ao desktop e impulsiona produtividade no mundo Linux
Novos apps de produtividade, avanços em IA e distros em ebulição agitam o universo Linux
Como instalar o repositório do DBeaver no Ubuntu
Como instalar o Plex Media Server no Ubuntu
Digitando underscore com "shift" + "barra de espaços"
Como ativar a lixeira e recuperar aquivos deletados em um servidor Linux
Como mudar o nome de dispositivos Bluetooth via linha de comando
Programa fora de escala na tela do pc (28)
Linux é a solução para o fim do Windows10? (0)
converter algoritmo C++ em C? (1)
Problemas com Driver NVIDIA (1)
Fedora KDE plasma 42 X Módulo de segurança BB (Warsaw-2) (1)









