Algoritmos - Valeu

[Allan Mori 0]

Faça uma função que recebe, por parâmetro, um valor inteiro e positivo, e retorna o número de divisores desse valor.

 

2) Escreva um procedimento que recebe 3 valores reais X, Y e Z e que verifique se esses valores podem ser os comprimentos dos lados de um triângulo e, neste caso, retornar qual o tipo de triângulo formado.

Para que X, Y e Z formem um triângulo é necessário que a seguinte propriedade seja satisfeita: o comprimento de cada lado de um triângulo é menor do que a soma do comprimento dos outros dois lados.

O procedimento deve identificar o tipo de triângulo formado observando as seguintes definições:

 

Triângulo Equilátero: os comprimentos dos 3 lados são iguais.

Triângulo Isósceles: os comprimentos de 2 lados são iguais.

Triângulo Escaleno: os comprimentos dos 3 lados são diferentes.

 

3) Foi realizada uma pesquisa de algumas características físicas de 50 habitantes de uma certa região. De cada habitante foram coletados os seguintes dados: sexo, cor dos olhos (azuis, verdes ou castanhos), cor dos cabelos (louros, pretos ou castanhos) e idade.

Faça um procedimento que leia esses dados em um vetor.

Faça um outro procedimento que utilize este vetor e retorna por parâmetro:

 

a maior idade entre os habitantes

a quantidade de indivíduos do sexo feminino, cuja idade está entre 18 e 35 anos (inclusive) e que tenham olhos verdes e cabelos louros.

[Dzago 2]

Seu algoritmo deve ficar bacana quando terminar. Vai lá, manda brasa!!!!

Bons estudos.

Ahhh, poste suas dúvidas.

[Gerciley 14]

algoritmo é igual matemática, se alguém, vier aqui e escrever todo exercício acima pra você não tem graça, não vai aprender nada, o quente é você pensar e resolver, não é tão difícil quanto parece quando você esme-ussa o problema divide em blocos, atenda a cada requisição do problema individualmente como se foce uma novo problema, nesse algoritmo acima não vai usar mais que os operadores lógicos comuns, e algumas funções condicionais, não deixe que as palavras difíceis e várias incógnitas te intimidem. Estude lógica, Estruture o problema e resolva. Bons Estudos. :thumbsup:

[Allan Mori 0]

Exerc 1

 

algoritmo "Número de divisores"

 

var a:inteiro

 

inicio

 

funcao dive(x:inteiro):inteiro

 

var n,i:inteiro

 

inicio

 

Para i de 1 ate x faca

se (x%i=0) entao

escreval(x,"/",i, "=",x/i)

escreval("")

n<-n+1

fimse

fimpara

retorne(n)

fimfuncao

 

escreval(" Faça uma função que recebe, por parâmetro, um valor inteiro e")

escreval(" positivo, e retorna o número de divisores desse valor.")

escreval("")

escreval("")

escreval("")

escreval(" Entre com um numero :")

leia(a)

escreval("")

escreval("")

escreval("O numero de divisores de" ,a, " é", dive(a))

escreval("")

escreval("")

fimalgoritmo

 

------------------------------------------

 

Exerc 2

 

 

algoritmo " Triângulos "

 

var x,y,z:real

 

inicio

 

procedimento Triangulo(a,b,c:real)

 

var

 

inicio

 

Se (a > b + c)e(b > a + c) e(c > a + b)entao

escreval(" Não é um triângulo ")

senao

 

se(a <> b)e(a <> c)e(a <> b)e(b <> a)e(b <> c)e(c <> a)e(c <> b)entao

escreval(" Triângulo Escaleno ")

senao

 

se (a = b)e(a = c)e(b = a)e(b = c)e(c = a)e(c = b)entao

escreval(" Triângulo Equilátero ")

senao

escreval(" Triângulo Isósceles ")

 

fimse

fimse

fimse

 

fimprocedimento

 

escreval(" Digite o lado A do triangulo : ")

leia(x)

escreval("")

 

escreval(" Digite o lado B do triangulo : ")

leia(y)

escreval("")

 

escreval(" Digite o lado C do triangulo: ")

leia(z)

escreval("")

 

triangulo(x,y,z)

fimalgoritmo

 

---------------------------------------

Exerc 3

 

 

algoritmo "Pesquisa de Características Físicas"

var

x:inteiro

nome:vetor[1..3] de caractere

sexo:vetor[1..3] de caractere

CorDosOlhos:vetor[1..3] de caractere

CorDosCabelos:vetor[1..3] de caractere

Idade:vetor[1..3] de inteiro

procedimento CadastrarEntrevistado

var

opcao:caractere

inicio

para x de 1 ate 3 faca

escreval("****************************************************")

escreval("* Informe os dados do",x,"º entrevistado *")

escreval("****************************************************")

escreval

escreval

// Cadastrando o nome

escreva("Digite nome: ")

leia(nome[x])

escreval

escreva("Digite idade: ")

leia(idade[x])

escreval

// Cadastrando o sexo

repita

escreval("Informe o sexo:")

escreva("M - Para Masculino ou F - Para Feminino: ")

leia(opcao)

se (opcao="m") ou (opcao="f")entao

escolha (opcao)

caso "m"

sexo[x]<- "Masculino"

caso "f"

sexo[x]<- "Feminino"

fimescolha

senao

repita

escreva("Informação não reconhecida. Informe novamente: ")

leia(opcao)

ate (opcao="m") ou (opcao="f")

fimse

ate (opcao="m") ou (opcao="f")

escreval

// Cadastrando cor dos olhos

repita

escreval("Informe cor dos olhos:")

escreva("A - Azul. C - Castanho. V - Verde. ")

leia(opcao)

se (opcao="a") ou (opcao="c")ou (opcao="v")entao

escolha (opcao)

caso "a"

CorDosOlhos[x]<- "Azul"

caso "C"

CorDosOlhos[x]<- "Castanho"

caso "v"

CorDosOlhos[x]<- "Verde"

fimescolha

senao

repita

escreva("Informação não reconhecida. Informe novamente: ")

leia(opcao)

ate (opcao="a") ou (opcao="c") ou (opcao="v")

fimse

ate (opcao="a") ou (opcao="c") ou (opcao="v")

escreval

// Cadastrando cor dos cabelos

repita

escreval("Informe cor dos cabelos: ")

escreva("L - Loiro. C - Castanho. P - Preto. ")

leia(opcao)

se (opcao="l") ou (opcao="c")ou (opcao="p")entao

escolha (opcao)

caso "l"

CorDosCabelos[x]<- "Loiro"

caso "c"

CorDosCabelos[x]<- "Castanho"

caso "p"

CorDosCabelos[x]<- "Preto"

fimescolha

senao

repita

escreval

escreva("Informação não reconhecida. Informe novamente: ")

leia(opcao)

ate (opcao="l") ou (opcao="c")ou (opcao="p")

fimse

ate (opcao="l") ou (opcao="c")ou (opcao="p")

limpatela

fimpara

fimprocedimento

procedimento RelatorioPerfilFeminino

var

i:inteiro

idade1:inteiro

sexo1:caractere

olhos:caractere

cabelos:caractere

inicio

escreval("****************************************************")

escreval("***** Relatório: Mulheres cadastrados com: *****")

escreval

escreval(" Idade: Entre 18 e 35 anos")

escreval(" Olhos: Verde")

escreval("Cabelo: Loiro")

escreval

para i de 1 ate 3 faca

idade1<-idade

sexo1<-sexo

olhos<-CorDosOlhos

cabelos<-CorDosCabelos

se(idade1 > 18)e(idade1 < 35)e(sexo1="Feminino")e(Olhos="verde")e(Cabelos="Loiro")entao

escreval("nome:",nome)

escreval("Idade:",Idade)

escreval("sexo:",sexo)

escreval("Cor olhos:",CorDosOlhos)

escreval("Cor do cabelo:",CorDosCabelos)

escreval

escreval

fimse

fimpara

fimprocedimento

procedimento RelatorioCadastradoMaisVelho

var p0,p1,p2:inteiro

inicio

escreval("****************************************************")

escreval("***** Relatório: Pessoa mais velha cadastrada: *****")

escreval

repita

p1<-1

para p2 de 1 ate 3 faca

se(idade[p1]>idade[p2]) entao

p0<-p1

fimse

fimpara

p1<-p1+1

ate(p1=5)

escreval("A pessoa mais velha cadastrada é:")

escreval(" Nome:",nome[p0])

escreval(" Idade:",Idade[p0])

escreval(" Sexo:",sexo[p0])

escreval("Cor dos olhos:",CorDosOlhos[p0])

escreval("Cor do cabelo:",CorDosCabelos[p0])

escreval

escreval

fimprocedimento

procedimento ExibirTodosCadastrados

var

inicio

para x de 1 ate 1 faca

escreval("nome:",nome[x])

escreval("Idade:",Idade[x])

escreval("sexo:",sexo[x])

escreval("Cor olhos:",CorDosOlhos[x])

escreval("Cor do cabelo:",CorDosCabelos[x])

escreval

escreval

fimpara

fimprocedimento

inicio

CadastrarEntrevistado

limpatela

RelatorioPerfilFeminino

RelatorioCadastradoMaisVelho

ExibirTodosCadastrados

fimalgoritmo