Exercicio de Pascal

[Cicno 0]

Eu tenho um exercício de LOG(em pascal) que não sei como resolver ele...

Aqui vai...

 

Criar um algoritmo que receba duas matrizes ACxD e BExF (C, D, E e 

F   6). Esse algoritmo deve verificar se o produto matricial de A por≤  

B é  possível (D = E). Caso seja possível, calcular o tal produto,imprimindo a matriz GCxF resultado.

 

Só entendi que envolve matriz e que o usuário deve indicar o número de linhas e colunas fora isso não sei.

[quitZAUMMM 18]

bom.. você precisa esboçar algo..

 

[]s

[Daniel1 1]

Criar um algoritmo que receba duas matrizes ACxD e BExF (C, D, E e

F 6). Esse algoritmo deve verificar se o produto matricial de A por≤

B é possível (D = E). Caso seja possível, calcular o tal produto,imprimindo a matriz GCxF resultado.

 

Criar um algoritmo que receba duas matrizes ACxD e BExF (C, D, E e

F <= 6). Esse algoritmo deve verificar se o produto matricial de A por B é possível (D = E). Caso seja possível, calcular o tal produto,imprimindo a matriz GCxF resultado.

 

Program Matrix
uses crt;
var A,B,G: array [1..100,1..100]
i,j,k,l:integer
begin
clrscr;
 Writeln('digite as dimensoes das matrizes A e B menor ou igual a 6');
     Readln(k,l);
     Writeln('digite os itens da Matriz A:');
     For i:=1 to k do Begin
        For j:=1 to l do Begin
    Read(A[i,j]);
 End;
 Readln;
     end;
     Writeln('digite os itens da matriz B:');
     For i:=1 to k do Begin
        For j:=1 to l do Begin
    Read(B[i,j]);
 End;
 Readln;
     end;
{produto de A + B}
     For i:=1 to k do Begin
        For j:=1 to l do Begin
    G[i,j]:=A[i,j]+B[i,j];
 End;
    End;
{exibir resultado}
   Writeln('O resultado do produto A+B é:');        
      For i:=1 to k do Begin
        For j:=1 to l do Begin
    Write(G[i,j],'  ');
 End;
 Writeln;
    End;
Readkey;
End.

Bom foi isso mais ou menos que entendi:

Fonte adaptada de : http://www.lsd.ic.unicamp.br/projetos/e-lane/introPascal/aula7.html

Espero ajudar

Até +