Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Fiz esse algoritmo e não estou conseguindo fazer a soma das transpostas :x... já tentei de n e n maneiras, mas...nem dá certo :S... alguém pode me ajudar? ;)
algoritmo "semnome"
// Função :
// Autor :
// Data : 29/6/2009
// Seção de Declarações
var
A,B:vetor[1..5,1..5] de inteiro
AT,BT: vetor[1..5,1..5] de inteiro
soma,somat: vetor[1..5,1..5] de inteiro
opcao: caractere
i,j,n: inteiro
procedimento MatrizA
inicio
para i de 1 ate n faca
para j de 1 ate n faca
leia(A[i,j])
fimpara
fimpara
limpatela
para i de 1 ate n faca
para j de 1 ate n faca
escreva(A[i,j])
fimpara
escreval(" ")
fimpara
fimprocedimento
procedimento MatrizB
inicio
para i de 1 ate n faca
para j de 1 ate n faca
leia(B[i,j])
fimpara
fimpara
limpatela
para i de 1 ate n faca
para j de 1 ate n faca
escreva(B[i,j])
fimpara
escreval(" ")
fimpara
fimprocedimento
procedimento somaM
inicio
MatrizA
MatrizB
para i de 1 ate n faca
para j de 1 ate n faca
soma[i,j]<-A[i,j]+B[i,j]
fimpara
fimpara
para i de 1 ate n faca
para j de 1 ate n faca
escreva(soma[i,j])
fimpara
escreval(" ")
fimpara
fimprocedimento
procedimento somaTransposta
inicio
para i de 1 ate n faca
para j de 1 ate n faca
leia(A[i,j])
fimpara
fimpara
para i de 1 ate n faca
para j de 1 ate n faca
escreva(A[i,j])
fimpara
escreval(" ")
fimpara
escreval(" ")
escreval(" ")
para i de 1 ate n faca
para j de 1 ate n faca
leia(B[i,j])
fimpara
fimpara
para i de 1 ate n faca
para j de 1 ate n faca
escreva(B[i,j])
fimpara
escreval(" ")
fimpara
escreval(" ")
escreval(" ")
para i de 1 ate n faca
para j de 1 ate n faca
somat[i,j]<-A[i,j]+B[j,i]
fimpara
fimpara
para i de 1 ate n faca
para j de 1 ate n faca
escreva(somat[i,j])
fimpara
escreval(" ")
fimpara
fimprocedimento
procedimento tela
inicio
escreval("Escolha as opções a,b,c,d ou e")
escreval("-----------------------------")
escreval("|a)Matriz A-----------------|")
escreval("|b)Matriz B-----------------|")
escreval("|C)Soma---------------------|")
escreval("|d)Soma das transpostas-----|")
escreval("|e)Sair---------------------|")
escreval("-----------------------------")
fimprocedimento
procedimento erro
inicio
escreval("|-----------------------------------------------------|")
escreval("| Você escolheu uma opção inválida, escolha a, b ou c |")
escreval("|-----------------------------------------------------|")
fimprocedimento
inicio
// Seção de Comandos
n<-3
repita
tela
leia(opcao)
escolha opcao
caso "a"
limpatela
MatrizA
caso "b"
limpatela
MatrizB
timer 5000
limpatela
timer 0
caso "c"
somaM
timer 5000
limpatela
timer 0
caso "d"
limpatela
somaTransposta //chamada do procedimento obrigado
timer 5000
limpatela
timer 0
outrocaso
limpatela
erro //chamada do procedimento erro
timer 5000
limpatela
timer 0
fimescolha
//chamada do procedimento resultado
ate (opcao="e")
fimalgoritmo
Carregando comentários...
