vetores - aula1

Prévia do material em texto

� NUMPAGES �35�� NUMPAGES �35�� NUMPAGES �35�� PAGE �6�� NUMPAGES �35�� PAGE �11�
Universidade Católica de Petrópolis - Faculdade de Informática
Lista de Exercícios de ICC - Professor Gerson Nunes Página � PAGE �9� de � NUMPAGES �10�
Vetores
Algoritmo ler_numeros;
Variáveis
	Numero1,
	Numero2,
	Numero3,
	Numero4,
	Numero5 : Real;
Inicio
	Leia(Numero1); 10
	Leia(Numero2); 40
	Leia(Numero3); 30
	Leia(Numero4); 80
	Leia(Numero5); 20
	Escreva (Numero5); 20
	Escreva (Numero4); 80
	Escreva (Numero3); 30
	Escreva (Numero2); 40
	Escreva (Numero1); 10
Fim_Algoritmo
�
Algoritmo ler_numeros;
Variáveis
	
	Numero : Real;
	N_Vezes : inteiro;
Inicio
	Para N_Vezes de 1 até 5 passo +1 Faça
	 Leia(Numero); 10 – 40 – 30 – 80 - 20
	Fim_Para
	// impossível escrever os números lidos
Fim_Algoritmo
Leia(Numero); 
Leia(Numero); 
Leia(Numero); 
Leia(Numero); 
Leia(Numero); �
Algoritmo ler_numeros;
Variáveis
	Vet_Numeros : Vetor[5] de Real;
Inicio
	Leia(Vet_Numeros[1]);
	Leia(Vet_Numeros[2]);
	Leia(Vet_Numeros[3]);
	Leia(Vet_Numeros[4]);
	Leia(Vet_Numeros[5]);
	Escreva (Vet_Numeros[5]);
	Escreva (Vet_Numeros[4]);
	Escreva (Vet_Numeros[3]);
	Escreva (Vet_Numeros[2]);
	Escreva (Vet_Numeros[1]);
Fim_Algoritmo
�
Algoritmo ler_numeros;
Variáveis
	Vet_Numeros : Vetor[5] de Real;
	Posicao : Inteiro;
Inicio
	Posicao = 1;
	Leia(Vet_Numeros[Posicao]);
	Posicao = Posicao + 1;
	Leia(Vet_Numeros[Posicao]);
	Posicao = Posicao + 1;
	Leia(Vet_Numeros[Posicao]);
	Posicao = Posicao + 1;
	Leia(Vet_Numeros[Posicao]);
	Posicao = Posicao + 1;
	Leia(Vet_Numeros[Posicao]);
	Posicao = 5;
	Escreva (Vet_Numeros[Posicao]);
	Posicao = Posicao - 1;
	Escreva (Vet_Numeros[Posicao]);
	Posicao = Posicao - 1;
	Escreva (Vet_Numeros[Posicao]);
	Posicao = Posicao - 1;
	Escreva (Vet_Numeros[Posicao]);
	Posicao = Posicao - 1;
	Escreva (Vet_Numeros[Posicao]);
	Posicao = Posicao - 1;
Fim_Algoritmo
�
Algoritmo ler_numeros;
Variáveis
	Vet_Numeros : Vetor[5] de Real;
	Posicao : Inteiro;
Inicio
	Para Posicao de 1 até 5 passo + 1 Faça
		Leia(Vet_Numeros[Posicao]);
	Fim_Para
	Para Posicao de 5 até 1 passo -1 Faça
		Escreva(Vet_Numeros[Posicao]);
	Fim_Para
Fim_Algoritmo
�
Algoritmo ler_numeros;
Variáveis
	Vet_Numeros : Vetor[5] de Real;
	Posicao : Inteiro;
	Soma : Real;
	Media : Real;
Inicio
 	Soma = 0;
	Para Posicao de 1 até 5 passo + 1 Faça
		Leia(Vet_Numeros[Posicao]);
		Soma = Soma + Vet_Numeros[Posicao];
	Fim_Para
	
	Media = Soma / 5;
	// escrevendo os números que ficaram acima da média
	Para Posicao de 1 até 5 passo + 1 Faça
		Se Vet_Numeros[Posicao] > Media
			Então Escreva(Vet_Numeros[Posicao]);
		Fim_Se
	Fim_Para
Fim_Algoritmo
�
Algoritmo Ler_Numeros;
Variáveis
	Vet_Numeros : Vetor[500] de Real;
	Posicao : Inteiro;
	Soma : Real;
	Media : Real;
	Quant_Numeros : Inteiro;
Inicio
 	Leia(Quant_Numeros); //Quant_Numeros deve ser ≤ 500
 	Soma = 0;
	Para Posicao de 1 até Quant_Numeros passo + 1 Faça
		Leia(Vet_Numeros[Posicao]);
		Soma = Soma + Vet_Numeros[Posicao];
	Fim_Para
	
	Media = Soma / Quant_Numeros;
	Para Posicao de 1 até Quant_Numeros passo + 1 Faça
		Se Vet_Numeros[Posicao] > Media
			Então Escreva(Vet_Numeros[Posicao]);
		Fim_Se
	Fim_Para
Fim_Algoritmo
�
Algoritmo Organiza_Medias;
Variáveis
	Vet_Medias : Vetor[50] de Real;
	Vet_Nomes : Vetor[50] de Caracter;
	Posicao : Inteiro;
Inicio
	// Cadastro dos nomes e das medias
	Para Posicao de 1 até 50 passo + 1 Faça
		Leia(Vet_Nomes[Posicao]);
		Leia(Vet_Medias[Posicao]);
	Fim_Para
	
Escreva(“Listagem dos Alunos Aprovados...”);
	Para Posicao de 1 até 50 passo + 1 Faça
		Se Vet_Medias[Posicao] >= 5 
			Então
				Escreva(Vet_Nomes[Posicao]);
				Escreva(Vet_Medias[Posicao]);
		Fim_Se
	Fim_Para
Escreva(“Listagem dos Alunos Reprovados...”);
	Para Posicao de 1 até 50 passo + 1 Faça
		Se Vet_Medias[Posicao] < 5 
			Então
				Escreva(Vet_Nomes[Posicao]);
				Escreva(Vet_Medias[Posicao]);
		Fim_Se
	Fim_Para
Fim_Algoritmo
�
MATRIZES
Algoritmo Organiza_Despesas;
Variáveis
	Mat_Despesas : Matriz[12][28] de Real;
	Mes : Inteiro;
	Dia : Inteiro;
Inicio
	// Cadastro as despesas de todos os dias de todos os meses
	Para Mês de 1 até 12 passo + 1 Faça ( 13
		Para Dia de 1 até 28 Passo + 1 Faça ( 29 
			Leia(Mat_Despesas[Mês][Dia]);
		Fim_Para
	Fim_Para
	
Escreva(“Listagem das despesas de todos os meses de todos os dias.”);
	Para Mês de 1 até 12 passo + 1 Faça
		Para Dia de 1 até 28 Passo + 1 Faça
			Escreva(Mat_Despesas[Mês][Dia]);
		Fim_Para
	Fim_Para
Escreva(“Listagem das despesas diárias de um mês.”);
Leia(Mês); ( 10
	Para Dia de 1 até 28 Passo + 1 Faça
		Escreva(Mat_Despesas[Mês][Dia]);
	Fim_Para
Escreva(“Listagem das despesas de um dia especifico.”);
Leia(Dia); ( 20
	Para Mes de 1 até 12 Passo + 1 Faça
		Escreva(Mat_Despesas[Mês][Dia]);
	Fim_Para
Escreva(“Listagem das despesas de dia e mês específicos.”);
Leia(Mês);
Leia(Dia);
	Escreva(Mat_Despesas[Mês][Dia]);
	
Fim_Algoritmo