prova2 (1)

Prévia do material em texto

Universidade de Caxias do Sul
Centro de Computação e Tecnologia da Informação
Disciplina: SIS0247AA – Introdução à Programação de Computadores
Professora: Maria de Fátima Webber do Prado Lima 
Aluno: ______________________________________________________
Observação: Todos os algoritmos desenvolvidos deverão 
obrigatoriamente utilizar estruturas iterativas.
Segunda Avaliação – 26/10/2011
1) (3,5) Foi realizada uma pesquisa para determinar o índice de mortalidade infantil em um certo período. 
Faça um algoritmo que:
• leia o número de crianças nascidas no período
• o sexo (M ou F) e o tempo de vida para cada criança nascida.
O algoritmo deverá calcular e mostrar:
• a percentagem de crianças do sexo feminino mortas no período
• a percentagem de crianças do sexo masculino mortas no período
• a percentagem de crianças que viveram 24 meses ou menos no período
Algoritmo "questao 1"
VAR i, num_cri, meses, tot_f, tot_m, tot_24: inteiro
porc_f, porc_m, porc_24: numerico
sexo: literal
inicio
escreval("Digite o número de crianças nascidas no período")
leia(num_cri)
tot_m <- 0
tot_f <- 0
tot_24 <-0
para i de 1 ate num_cri faca
 escreval ("Digite o sexo da ", i,"º criança: ")
 leia( sexo)
 escreval("Digite o tempo de vida (em meses) da ", i, "º criança: ")
 leia(meses)
 se (sexo="M") entao
 tot_m <- tot_m + 1
 fimse
 se (sexo = "F") entao
 tot_f <- tot_f + 1
 fimse
 se (meses <= 24) entao
 tot_24 <- tot_24 + 1
 fimse
fimpara
se (num_cri = 0) entao
 porc_m <-0
 porc_f <-0
 porc_24 <-0
senao
 porc_m <- tot_m * 100 / num_cri
 porc_f <- tot_f * 100 / num_cri
 porc_24 <- tot_24 * 100 / num_cri
fimse
escreval("Percentual de crianças do sexo feminino mortas ", porc_f,"%")
escreval ("Percentual de crianças do sexo masculino mortas ", porc_m,"%")
escreval ("Percentual de crianças com 24 meses ou menos mortas ", porc_24,"%")
fimalgoritmo
2) (3,5) Faça um algoritmo que escreva os primeiros 50 números primos a partir de 10. 
Algoritmo "questão 2"
var num, primos,i,divisores:inteiro
inicio
escreval("Os 50 primeiros números primos a partir de 10 são")
primos<-0
num<-10
repita
 num<-num+1
 divisores<-0
 para i de 2 ate num\2 faca
 se (num%i=0) entao
 divisores<-divisores+1
 fimse
 fimpara
 se (divisores=0) entao
 escreval(num)
 primos<-primos+1
 fimse
ate (primos=50)
fimalgoritmo
3) (3,0) Fazer um algoritmo que leia dois números inteiros positivos, calcule e escreva o MDC (máximo 
divisor comum) pelo método de Euclides. O método de Euclides considera um número como dividendo e 
outro como divisor, calculando o resto da divisão. Caso o resto seja zero, o MDC é o próprio divisor, senão o 
dividendo do próximo ciclo é o divisor do ciclo anterior e o divisor é o resto e o ciclo é repetido. 
Exemplo para os números 750 e 210; o MDC para esses números é 30:
dividendo divisor resto
750 210 120
210 120 90
120 90 30
90 30 0
algoritmo "questao3"
var dividendo,divisor,resto:inteiro
inicio
escreval ("Informe o dividendo")
leia (dividendo)
escreval ("Informe o divisor")
leia (divisor)
se (dividendo>divisor) entao
 repita
 resto<- dividendo%divisor
 dividendo<-divisor
 divisor<-resto
 ate (resto=0)
 escreval("MDC: ",dividendo)
fimse
fimalgoritmo