Gabarito Exercícios vetores e matrizes

Prévia do material em texto

1- Algoritmo "ex 1 - Vetores e matrizes" 
Var 
 nome:vetor[1..10] de caracter 
 sexo:vetor[1..10] de caracter 
 aux,aux2:caracter 
 cont,conta:inteiro 
Inicio 
 para cont de 1 ate 10 faca 
 escreva("Digite o nome: ") 
 leia(nome[cont]) 
 escreva("Digite o sexo M/F: ") 
 leia(sexo[cont]) 
 para conta de cont ate 2 passo -1 faca 
 se ((sexo[conta]="F") e (sexo[conta-1]="M")) entao 
 aux:=sexo[conta-1] 
 sexo[conta-1]:=sexo[conta] 
 sexo[conta]:=aux 
 aux:=nome[conta-1] 
 nome[conta-1]:=nome[conta] 
 nome[conta]:=aux 
 fimse 
 fimpara 
 fimpara 
 para cont de 1 ate 10 faca 
 escreval(nome[cont]) 
 fimpara 
Fimalgoritmo 
 
2- Algoritmo "ex2 - Vetores e matrizes" 
Var 
 preco:vetor[1..50] de real 
 quant:vetor[1..50] de real 
 cont:inteiro 
 total:real 
Inicio 
 para cont de 1 ate 50 faca 
 escreva("Digite o preco do produto",cont," : ") 
 leia(preco[cont]) 
 escreva("Digite a quantidade do produto",cont," : ") 
 leia(quant[cont]) 
 total:=total+(preco[cont]*quant[cont]) 
 fimpara 
 para cont de 1 ate 50 faca 
 escreval("O valor arrecadado com o produto",cont," foi:",preco[cont]*quant[cont]) 
 fimpara 
 escreval("O valor total arrecadado com os produtos foi:",total) 
FimAlgoritmo 
 
3- Algoritmo "ex3 - Vetores e matrizes" 
Var 
 nome:vetor[1..30] de caracter 
 idade:vetor[1..30] de inteiro 
 cont:inteiro 
 media:real 
Inicio 
 para cont de 1 ate 30 faca 
 escreva("Digite o nome da pessoa",cont," : ") 
 leia(nome[cont]) 
 escreva("Digite a idade da pessoa",cont," : ") 
 leia(idade[cont]) 
 media:=media+idade[cont] 
 fimpara 
 media:=media/30 
 escreval("--- Pessoas que ficaram acima da média de idade ---") 
 para cont de 1 ate 30 faca 
 se (idade[cont]>media) entao 
 escreval(nome[cont]) 
 fimse 
 fimpara 
FimAlgoritmo 
 
4- Algoritmo "ex4 - Vetores e matrizes" 
Var 
 matrizA:vetor[1..5,1..3] de real 
 matrizB:vetor[1..5,1..3] de real 
 matrizC:vetor[1..5,1..3] de real 
 linha,coluna:inteiro 
Inicio 
 para linha de 1 ate 5 faca 
 para coluna de 1 ate 3 faca 
 escreva("Digite o valor para posicao [",linha,coluna,"] da matriz A: ") 
 leia(matrizA[linha,coluna]) 
 fimpara 
 fimpara 
 para linha de 1 ate 5 faca 
 para coluna de 1 ate 3 faca 
 escreva("Digite o valor para posicao [",linha,coluna,"] da matriz B: ") 
 leia(matrizB[linha,coluna]) 
 matrizC[linha,coluna]:= matrizA[linha,coluna]+matrizB[linha,coluna] 
 fimpara 
 fimpara 
 limpatela() 
 para linha de 1 ate 5 faca 
 para coluna de 1 ate 3 faca 
 escreva(matrizA[linha,coluna]," ") 
 fimpara 
 escreval() 
 fimpara 
 escreval() 
 escreval() 
 para linha de 1 ate 5 faca 
 para coluna de 1 ate 3 faca 
 escreva(matrizB[linha,coluna]," ") 
 fimpara 
 escreval() 
 fimpara 
 escreval() 
 escreval("Soma dos elementos da matriz A com os elementos da matriz B") 
 para linha de 1 ate 5 faca 
 para coluna de 1 ate 3 faca 
 escreva(matrizC[linha,coluna]," ") 
 fimpara 
 escreval() 
 fimpara 
FimAlgoritmo 
 
5- Algoritmo "ex5 - Vetores e matrizes" 
Var 
 matrizA:vetor[1..2,1..4] de real 
 linha,coluna,posit,negat:inteiro 
Inicio 
 para linha de 1 ate 2 faca 
 para coluna de 1 ate 4 faca 
 escreva("Digite o valor para posicao [",linha,coluna,"] da matriz A: ") 
 leia(matrizA[linha,coluna]) 
 se (matrizA[linha,coluna]>0) entao 
 posit:=posit+1 
 senao 
 negat:=negat+1 
 fimse 
 fimpara 
 fimpara 
 limpatela() 
 para linha de 1 ate 2 faca 
 para coluna de 1 ate 4 faca 
 escreva(matrizA[linha,coluna]," ") 
 fimpara 
 escreval() 
 fimpara 
 escreval("Quantidade de numeros positivos: ",posit) 
 escreval("Quantidade de numeros negativos: ",negat) 
FimAlgoritmo