Exemplo_Sub_Rotinas_VETOR_REGISTRO

Prévia do material em texto

Dado o seguinte enunciado: Um banco esta informatizando seus controles de clientes e contas. No primeiro momento, o banco deseja guardar as informações de até 20000 clientes. Cada cliente tem os seguintes dados: nome, idade, endereço, número da conta, CPF, tempo em que é cliente(em meses) e saldo atual.
a) crie uma função que retorne o número de clientes com saldo negativo
b) crie uma função que retorne o número de clientes que abriram conta a mais de 10 anos e que tenham idade menor do que 30 anos.
ALGORITMO PRINCIPAL
DECLARE dados = registro
				nome, end, cpf : literal
				idade, num_conta, tempo: inteiro
				saldo : real
			 fim_registro
cli[20000] : dados // declarando o vetor do tipo da estrutura dados(registro)	
i, tc, ttemp : inteiro
			
INICIO
	tc <- 0
	temp <- 0 
 	para i <- 1 ate 20000 faca
	inicio	
 		escreva "Digite o nome"
 	leia cli[i].nome
 	escreva "Digite o endereco"
 	leia cli[i].end
 	escreva "Digite o CPF"
 	leia cli[i].cpf
 	escreva "Digite a idade"
 	leia cli[i].idade
 	escreva "Digite o número da conta"
 	leia cli[i].num_conta
 	escreva "Digite o tempo em que é cliente (meses)"
 	leia cli[i].tempo
 	escreva "Digite o saldo"
 	leia cli[i].saldo
 	fim
 
 tc = calculo1(cli ) // chamando a função calculo1 e passando o vetor inteiro para ela como parâmetro
 escreva "Total de clientes com saldo negativo =", tc
 
 ttemp = calculo2(cli )// chamando a função calculo2 e passando o vetor inteiro para ela como parâmetro
 escreva “Total de clientes que abriram conta a mais de 10 anos e com idade < 30 = ", ttemp
 
 fim
//-------------------------------- 
 
funcao calculo1(cli[ ] : dados )
declare total : inteiro
inicio 
	total <- 0 
	para i<- 1 ate 20000 faca
	inicio
	 se (cli[i].saldo < 0) entao
	 total <- total + 1
 	fim
 return total
 fim
 
 //-------------------------------------------------
 
Funcao calculo2( cli [ ] : dados)
Declare total : inteiro
inicio 
	total <- 0 
 	 para i<- 1 ate 20000 faca
	inicio
	 se (cli[i].tempo > 120 e cli[i].idade < 30) entao
	 total <- total + 1
 	fim
 
 return total
 fim