3 lista pronta

Prévia do material em texto

QUESTAO 1 
Algoritmo "semnome" 
 
Var 
 numero, cont, aux, resultado : inteiro 
 
Inicio 
 escreval("Informe um numero") 
 leia(numero) 
 cont 0 entao 
 escreval("Dentre os valores informados existem ",aux1," pares") 
 senao 
 escreval("Nao existem valores pares") 
 ") 
 fimse 
 
Fimalgoritmo 
 
QUESTAO 6 
Algoritmo "semnome" 
 
Var 
 numero : vetor [1..10] de inteiro //Erro quando usado tipo real 
 cont, aux1, aux2 : inteiro 
 
Inicio 
 para cont de 1 ate 10 faca 
 escreval("Informe um numero") 
 leia(numero[cont]) 
 fimpara 
 para cont de 1 ate 10 faca 
 para aux1 de cont + 1 ate 10 faca 
 se numero[cont] > numero[aux1] entao 
 aux2 0 entao 
 escreval(numero[cont]) 
 fimse 
 fimpara 
Fimalgoritmo 
 
QUESTAO 8 
Algoritmo "semnome" 
 
Var 
 mat : vetor [1..3,1..5] de inteiro 
 x, y, soma : inteiro 
Inicio 
 para x de 1 ate 3 faca 
 para y de 1 ate 3 faca 
 escreval("Informe um valor para posição ",x,y) 
 leia(mat[x,y]) 
 fimpara 
 fimpara 
 
 escreval("") 
 Escreval("Matrix original!") 
 escreval("") 
 
 para x de 1 ate 3 faca 
 escreva("|") 
 para y de 1 ate 3 faca 
 escreva(" ",mat[x,y]," ") 
 fimpara 
 escreva("|") 
 escreval("") 
 escreval("") 
 fimpara 
 
 para x de 1 ate 1 faca 
 para y de 1 ate 5 faca 
 se y = 1 entao 
 soma 10 entao 
 cont maior entao 
 maior y entao 
 se (x = auxX) e (y auxY) entao 
 se mat[x,y]") 
 leia(mat[x,y]) 
 fimpara 
 fimpara 
 
 para x de 1 ate 4 faca 
 para y de 1 ate 4 faca 
 transp[y,x] 9 entao 
 escreva(mat[x,y]," ") 
 fimse 
 fimpara 
 escreval("") 
 escreval("") 
 fimpara 
 
 escreval("") 
 escreval(" Matriz Transposta!") 
 escreval("") 
 para x de 1 ate 4 faca 
 para y de 1 ate 4 faca 
 se transp[x,y] 9 entao 
 escreva(transp[x,y]," ") 
 fimse 
 fimpara 
 escreval("") 
 escreval("") 
 fimpara 
Fimalgoritmo 
 
QUESTAO 13 
Algoritmo "semnome" 
 
Var 
 mat : vetor [1..4,1..4] de inteiro 
 x, y, maior, posicaoX, posicaoY : inteiro 
 
Inicio 
 para x de 1 ate 4 faca 
 para y de 1 ate 4 faca 
 escreva("Informe um numero: ") 
 leia(mat[x,y]) 
 fimpara 
 fimpara 
 //Identificando o maior valor 
 maior maior entao 
 maior 9 entao 
 escreva(mat[x,y]," ") 
 fimse 
 fimpara 
 escreval("") 
 escreval("") 
 fimpara 
 //Segunda Matriz 
 escreval("") 
 escreval(" Segunda Matriz") 
 escreval("") 
 para x de 1 ate 3 faca 
 para y de 1 ate 3 faca 
 se mat1[x,y] 9 entao 
 escreva(mat1[x,y]," ") 
 fimse 
 fimpara 
 escreval("") 
 escreval("") 
 fimpara 
 escreval("") 
 escreval(" SOMA DAS MATRIZES") 
 escreval("") 
 //somando 
 para x de 1 ate 3 faca 
 para y de 1 ate 3 faca 
 mat2[x,y] 9 entao 
 escreva(mat2[x,y]," ") 
 fimse 
 fimpara 
 escreval("") 
 escreval("") 
 fimpara 
Fimalgoritmo 
 
QUESTAO 16 
Algoritmo "semnome" 
 
Var 
 mat, mat1, mat2 : vetor [1..3,1..3] de inteiro 
 x, y : inteiro 
Inicio 
 //matriz 1 
 para x de 1 ate 3 faca 
 para y de 1 ate 3 faca 
 escreva("Informe um numero: ") 
 leia(mat[x,y]) 
 fimpara 
 fimpara 
 //Matriz 2 
 escreval(" SEGUNDA MATRIZ") 
 para x de 1 ate 3 faca 
 para y de 1 ate 3 faca 
 escreva("Informe um numero: ") 
 leia(mat1[x,y]) 
 fimpara 
 fimpara 
 //Apresentando as matrizes 
 escreval("") 
 escreval(" Primeira Matriz") 
 escreval("") 
 para x de 1 ate 3 faca 
 para y de 1 ate 3 faca 
 se mat[x,y] 9 entao 
 escreva(mat[x,y]," ") 
 fimse 
 fimpara 
 escreval("") 
 escreval("") 
 fimpara 
 //Segunda Matriz 
 escreval("") 
 escreval(" Segunda Matriz") 
 escreval("") 
 para x de 1 ate 3 faca 
 para y de 1 ate 3 faca 
 se mat1[x,y] 9 entao 
 escreva(mat1[x,y]," ") 
 fimse 
 fimpara 
 escreval("") 
 escreval("") 
 fimpara 
 escreval("") 
 escreval(" MULTIPLICAÇÃO DAS MATRIZES") 
 escreval("") 
 //somando 
 para x de 1 ate 3 faca 
 para y de 1 ate 3 faca 
 mat2[x,y] 9 entao 
 escreva(mat2[x,y]," ") 
 fimse 
 fimpara 
 escreval("") 
 escreval("") 
 fimpara 
Fimalgoritmo