Programa que exibe o produto de duas matrizes em que as dimensões são informadas pelo usuário.

• Download matriz.pas
• Enviar nova versão

Esconder código-fonte

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.

Extenso em dll, com parâmetros adicionais

média dos numeros informados em posiçoes pares em um vetor

Registro

mais um modelo de programa com vetor

Calculadora Empresarial Lazarus

Nenhum comentário foi encontrado.