Matriz quadrada

Escreva um subalgoritmo que verifica se uma matriz é ou não simétrica.
Eu não sei como fazer esse algoritmo

O que seria subalgoritmo? Sub-rotina?

Eu tambêm não sei o que e subalgoritmo
Mais esquecendo este conceito de subalgoritmo como eu faria para verificar se a matriz e simétrica e quadrada?

Conceito de matriz transposta: as linhas se transformam em colunas e as colunas se transformam em linhas. Logo, se na matriz normal é M[a,i]...na transposta será M[i,a] sabendo disso podemos fazer um Se comparando cada elemento da matriz com ele transposto, algo como:

Se (M[a,i] = M[i,a]) entao
PosicoesIguais <- PosicoesIguais + 1

Agora você terá em um acumulador o número de posições iguais, e você sabe que essa matriz será simétrica se TODAS as posições forem iguais, então é só comparar esse acumulador com o número de posições da matriz, se for igual (ou seja, se todas as posições forem iguais), então é simétrica.

Lembre-se que o número de posições da matriz é
Linhas * Coluna

Por exemplo: uma matriz [1..3,1..3] tem 9 posições.

Não entendi bem o que você quis dizer.
Mais uma Matriz e simetrica quando todos os elementos são iguais não é?

Matriz simétrica é quando uma matriz é igual à ela mesma transposta (invertida).

Ta vou tentar fazer

Guga, se voce fizer esse algoritmo declarando duas matrizes ficara muito facil de resolver.


--Faca a declaracao de duas matriz, por exemplo: A e B

--Gere a matriz a Matriz A, e em seguida, faca a matriz B receber a transposta de A, ou seja, o elemento A[i,j] vai ser igual ao elemento B[j,i]. Por exemplo:
+ Suponha que o elemento A[2,1] seja igual a 3, logo o elemento B[1,2] sera igual a 3. Como fazer isso?
+ Simples, faca a leitura do elemento, Leia (A[i,j]), e em seguida faca B[j,i] <- A[i,j], pronto, ao terminar o looping de leitura a matriz B, transposta de A, ja estara formada.

--Depois de a matriz A ja ter sido toda lida e a matriz B ter recebido a transposta de A basta comparar a matriz A com a matriz B. Para ser simetrica a matriz A tem que ser igual a sua transposta, nesse caso B. Logo, A e B tem que ser iguais. Use uma variavel com um valor fixo, que so sera alterado caso seja encontrado algum elemento A[i,j] diferente do elemento B[i,j] correspondente.

Não entendi esta parte aqui daria para explicar melhor?

Depois de a matriz A ja ter sido toda lida e a matriz B ter recebido a transposta de A basta comparar a matriz A com a matriz B. Para ser simetrica a matriz A tem que ser igual a sua transposta, nesse caso B. Logo, A e B tem que ser iguais. Use uma variavel com um valor fixo, que so sera alterado caso seja encontrado algum elemento A[i,j] diferente do elemento B[i,j] correspondente.

O começo do meu algoritmo esta assim:

algoritmo "Matriz transposta"
//Função:
// Data : 28/11/07
// Seção de Declarações
var
matA : vetor [1..2,1..4] de real
matB : vetor [1..4,1..2] de real
i, j, p : inteiro //os índice sempre inteiro
inicio
// Seção de Comandos
p <- 1
enquanto (p=1) faca

Para i de 1 ate 2 passo 1 faca
Para j de 1 ate 4 passo 1 faca
escreva("Digite um valor do elemento da linha" , i, ", coluna ",j, " da matriz A: ")
leia (matA[i,j])
matB[j,i] <- matA[i,j]
fimpara
fimpara
escreval

escreva("A matriz A é:")
escreval
para i de 1 ate 2 passo 1 faca
escreval
para j de 1 ate 4 passo 1 faca
escreva (matA[i,j], " ")
fimpara
fimpara
escreval

Escreva("A matriz B é:")
escreval
Para i de 1 ate 4 passo 1 faca
escreval
para j de 1 ate 2 passo 1 faca
escreva (matB[i,j]," ")
fimpara
fimpara
escreval

escreval("Deseja continuar (1)Sim (2)Não")
leia(p)
fimenquanto

fimalgoritmo

Citação :

Não entendi esta parte aqui daria para explicar melhor?

Depois de a matriz A ja ter sido toda lida e a matriz B ter recebido a transposta de A basta comparar a matriz A com a matriz B. Para ser simetrica a matriz A tem que ser igual a sua transposta, nesse caso B. Logo, A e B tem que ser iguais. Use uma variavel com um valor fixo, que so sera alterado caso seja encontrado algum elemento A[i,j] diferente do elemento B[i,j] correspondente.

´

Isso e o metodo da contradicao. Tipo, apos a matriz B ja ter recebido todos os valores de A, ou seja, apos B ser a transposta de A, voce pode usar o metodo da contradicao, exemplo:

simetrica <- 1
para i de 1 ate 4 faca
para j de 1 ate 4 faca
se (A[i,j]<>B[j,i]) entao
simetrica <- 0
fimse
fimpara
fimpara
Se (simetrica=1) entao
escreva ("a matriz e simetrica")
senao
escreva ("a matriz nao e simetrica")
fimse


--VIu?? voce procurar algo que possa provar que a matriz nao e simetrica, neste caso seria A[i,j]<>B[j,i]

Vou tentar fazer depois eu volto a postar aqui