Atps De Algoritmo

1. Criar um algoritmo leia idade e sexo (M - masculino, F - feminino) de várias pessoas. Calcule e imprima a idade média, o total de pessoas do sexo feminino com idade entre 30-45 inclusive e o número total de pessoas do sexo masculino. O algoritmo termina quando se digita um número não positivo (zero ou um número negativo) para a idade.

Algoritmo “Lê Idade e Sexo”

var

idade, tpsfeminino, tpsmasculino, somaidade, contador, sexo : inteiro

idademedia : real

inicio

contador <- 0

somaidade <- 0

tpsfeminino <-0

tpsmasculino <-0

repita

escreva ("Digite a Idade: ")

leia(idade)

se idade > 0 entao

escreva("Digite [1 para HOMEM e 2 para MULHER]: ")

leia(sexo)

se sexo=2 entao

se idade >= 30 entao

se idade <= 45 entao

tpsfeminino <- tpsfeminino +1

fimse

senao

tpsmasculino<-tpsmasculino+1

fimse

contador <- contador+1

somaidade <- somaidade+idade

fimse

fimse

ate idade <= 0

idademedia <- somaidade/contador

escreval("A Idade Média é:",idademedia)

escreval ("O Total de MULHERES com Idade Entre 30 e 45 anos é de :”, tpsfeminino)

escreval("O Número Total de HOMENS é de :",tpsmasculino)

fimalgoritmo

2. Uma universidade abriu inscrições para cadastro de Projetos de Pesquisa de Iniciação Científica. Cada Projeto tem um professor da instituição como coordenador e pode ter uma quantidade determinada de bolsistas de acordo com o tipo de bolsa e a titulação do coordenador conforme a tabela a seguir:

Escrever um algoritmo que:

a) receba e imprima o nome e a titulação do professor coordenador

b) receba e imprima o nome e o tipo de bolsa de cada bolsista respeitando as quantidades máximas definidas no quadro. O algoritmo deverá ser executado até que todos os tipos de bolsas estejam com as quantidades máximas.

Obs.: um professor especialista, por exemplo, não poderá ter mais que dois bolsistas que possuam bolsa estadual e também não poderá ter mais que seis bolsistas no total. A mesma verificação deverá ser feita para todas as titulações.

var

nbolsasespecialista,tipobolsa,titulo,qtdestadual,qtdvoluntario,qtdfederal,nbolsasgeral,nbolsasmestre,nbolsasdr : inteiro

nome, nomebolsista: caractere

inicio

qtdestadual <-1

qtdvoluntario <-1

qtdfederal<-1

nbolsasespecialista <-1

nbolsasmestre <- 1

nbolsasdr <-1

nbolsasgeral<-1

enquanto nbolsasgeral <= 26 faca

escreval (">1 Para Especialista")

escreval (">2 Para Mestre")

escreval (">3 Para Doutor / Pos-Doutor")

leia(titulo)

se ((titulo=1) e (nbolsasespecialista=7)) entao

escreva("Limite de Bolsa para o Coordenador Especialista foi Obtido por Favor Selecione Outra Opção")

fimse

se ((titulo=2) e (nbolsasmestre=10)) entao

escreva("Limite de Bolsa para o Coordenador Especialista foi Obtido por Favor Selecione Outra Opção")

fimse

se ((titulo=3) e (nbolsasdr=12)) entao

escreva("Limite de Bosla para o Coordenador Especialista foi Obtido por Favor Selecione outra Opção")

fimse

se titulo = 1 entao

escreval("Digite o nome do Coordenador Especialista")

leia(nome)

enquanto nbolsasespecialista<=6 faca

escreval ("Digite o Nome do Bolsista")

leia(nomebolsista)

escreval ("Escolha o tipo de Bolsa")

escreval("1>Bolsa Federal")

escreval("2>Bolsa Estadual")

escreval("3>Bolsa Voluntário")

leia(tipobolsa)

se tipobolsa=1 entao

escreval("",nomebolsista)