Trabalho de logica de prog.

Prévia do material em texto

Lógica de Programação
 
Uriel Felipe Chervinski Boscolo, Matrícula: 201201235464, Turma:3003 ;
Felipe Eduardo de Faria, Matrícula: 201201344786, Turmas:3006;
Olavo Cristiano da Silva, Matrícula 201201594022, Turma:3003;
Patrick Fernando Rosa, Matrícula: 201201581711, Turma:3006.
	algoritmo "semnome"
// Função :
// Autor :
// Data : 12/11/2012
// Seção de Declarações
var
matrizA, matrizB,matrizC,matrizD: vetor[1..10,1..10] de inteiro
la,ca,lb,cb,ia,ja,ib,jb,ic,jc,i,j,x,y,re:inteiro
operacao:caractere
inicio
// Seção de Comandos
escreva ("insira o numero de linha matriz A")
repita
 leia (la)
 se la > 10 entao
 escreval("Maximo de linha da matriz,insira novamente")
 fimse
ate (la <=10)
escreva ("insira o numero de coluna matriz A")
repita
 leia (ca)
 se ca >10 entao
 escreval("Maximo de linha da matriz,insira novamente")
 fimse
ate (ca<=10)
escreva ("insira o numero de linha matriz B")
repita
 leia (lb)
 se lb >10 entao
 escreval("Maximo de linha da matriz,insira novamente")
 fimse
ate(lb<=10)
escreva ("insira o numero de coluna matriz B")
repita
 leia (cb)
 se cb >10 entao
 escreval("Maximo de linha da matriz,insira novamente")
 fimse
ate (cb<= 10 )
para ia de 1 ate la faca
 para ja de 1 ate ca faca
 leia (matrizA [ia,ja])
 fimpara
fimpara
para ib de 1 ate lb faca
 para jb de 1 ate cb faca
 leia (matrizB [ib,jb])
 fimpara
fimpara
para ia de 1 ate la faca
 para ja de 1 ate ca faca
 escreva (matrizA[ia,ja]:4)
 fimpara
 escreval ( " " )
fimpara
escreval (" ")
para ib de 1 ate lb faca
 para jb de 1 ate cb faca
 escreva (matrizB[ib,jb]:4)
 fimpara
 escreval ( " " )
fimpara
escreval ("Digite a operacao desejada")
escreval (" ")
escreval ("A para soma")
escreval ("B para subtração matrizA - matrizB")
escreval ("C para subtração matrizB - matrizA")
escreval ("D para transposta matrizA")
escreval ("E para transposta matrizB")
escreval ("F para oposta matrizA")
escreval ("G para oposta matrizB")
escreval ("H para multiplicação matrizA*matrizB")
escreval ("I para multiplicação matrizB*matrizA")
escreval ("J para multiplicação matrizA* Nº")
escreval ("K para multiplicação matrizB* Nº")
escreval(" ")
leia (operacao)
escolha operacao
caso "A"
 se (la=lb) e (ca=cb) entao
 para i de 1 ate la faca
 para j de 1 ate ca faca
 matrizC [i,j] <- matrizA [i,j] + matrizB [i,j]
 fimpara
 fimpara
 escreval ("O resultado da soma é")
 para i de 1 ate la faca
 para j de 1 ate ca faca
 escreva (matrizC [i,j]:4)
 fimpara
 escreval
 fimpara
 senao
 escreva("matriz fora do padrão, para operação")
 fimse
caso "B"
 se (la=lb) e (ca=cb) entao
 para i de 1 ate la faca
 para j de 1 ate ca faca
 matrizD [i,j] <- matrizA [i,j] - matrizB [i,j]
 fimpara
 fimpara
 escreval ("O resultado da subtração de A - B é")
 para i de 1 ate la faca
 para j de 1 ate ca faca
 escreva (matrizD [i,j]:4)
 fimpara
 escreval
 fimpara
 senao
 escreva("matriz fora do padrão, para operação")
 fimse
caso "C"
 se (la=lb) e (ca=cb) entao
 para i de 1 ate la faca
 para j de 1 ate ca faca
 matrizC [i,j] <- matrizB [i,j] - matrizA [i,j]
 fimpara
 fimpara
 escreval ("O resultado da subtração de B - A é")
 para i de 1 ate la faca
 para j de 1 ate ca faca
 escreva (matrizC [i,j]:4)
 fimpara
 escreval
 fimpara
 senao
 escreva("matriz fora do padrão, para operação")
 fimse
caso "D"
 para i de 1 ate ca faca
 para j de 1 ate la faca
 matrizC [i,j] <- matrizA [j,i]
 fimpara
 fimpara
 escreval ("A matriz transposta A")
 para i de 1 ate ca faca
 para j de 1 ate la faca
 escreva (matrizC [i,j]:4)
 fimpara
 escreval
 fimpara
caso "E"
 para i de 1 ate cb faca
 para j de 1 ate lb faca
 matrizC [i,j] <- matrizB [j,i]
 fimpara
 fimpara
 escreval ("A matriz transposta B ")
 para i de 1 ate cb faca
 para j de 1 ate lb faca
 escreva (matrizC [i,j]:4)
 fimpara
 escreval
 fimpara
caso "F"
 para i de 1 ate la faca
 para j de 1 ate ca faca
 matrizD [i,j] <- matrizA [i,j] * -1
 fimpara
 fimpara
 escreval ("A matriz oposta A ")
 para i de 1 ate la faca
 para j de 1 ate ca faca
 escreva (matrizD [i,j]:4)
 fimpara
 escreval
 fimpara
caso "G"
 para i de 1 ate lb faca
 para j de 1 ate cb faca
 matrizC [i,j] <- matrizB [i,j] * -1
 fimpara
 fimpara
 escreval ("A matriz oposta B ")
 para i de 1 ate lb faca
 para j de 1 ate cb faca
 escreva (matrizC [i,j]:4)
 fimpara
 escreval
 fimpara
caso "H"
 se (ca <> lb) entao
 escreval ("imposibilitado de realizar a multiplicação ")
 senao
 para i de 1 ate la faca
 para j de 1 ate cb faca
 para x de 1 ate ca faca
 matrizC [i,j] <- matrizA[i,x] * matrizB[x,j]+ matrizC[i,j]
 fimpara
 fimpara
 fimpara
 escreval("Multiplicação da matrizA*matrizB é")
 para i de 1 ate la faca
 para j de 1 ate cb faca
 escreva(matrizC [i,j])
 fimpara
 escreval
 fimpara
 fimse
caso "I"
 se (ca <> lb) entao
 escreval ("imposibilitado de realizar a multiplicação ")
 senao
 para i de 1 ate la faca
 para j de 1 ate cb faca
 para y de 1 ate ca faca
 matrizC [i,j] <- matrizB[y,j]*matrizA[i,y]+ matrizC[i,j]
 fimpara
 fimpara
 fimpara
 escreval("Multiplicação da matrizB*matrizA é")
 para i de 1 ate la faca
 para j de 1 ate cb faca
 escreva(matrizC [i,j])
 fimpara
 escreval
 fimpara
 fimse
caso "J"
 escreval("Insira o numero ")
 leia(re)
 para i de 1 ate la faca
 para j de 1 ate ca faca
 matrizD [i,j] <- matrizA [i,j] * re
 fimpara
 fimpara
 escreval ("A matrizA multiplicado por N°")
 para i de 1 ate la faca
 para j de 1 ate ca faca
 escreva (matrizD [i,j]:4)
 fimpara
 escreval
 fimpara
caso "K"
 escreval("Insira o numero")
 leia(re)
 para i de 1 ate lb faca
 para j de 1 ate cb faca
 matrizC [i,j] <- matrizB [i,j] * re
 fimpara
 fimpara
 escreval ("A matrizB multiplicado por N°")
 para i de 1 ate lb faca
 para j de 1 ate cb faca
 escreva (matrizC [i,j]:4)
 fimpara
 escreval
 fimpara
fimescolha
fimalgoritmo