Aula 11 – 17.05.2011 Logica e Algoritmos

Aula 11 – 17.05.2011 Logica e Algoritmos

Nessa aula foi passado mais 2 exercícios que seguem abaixo.

6- Faça um programa que leia o numero "N" e que indique quantos valores inteiros e positivos devem ser lidos a seguir. Para cada número lido, mostre uma tabela contendo o valor lido, mostre uma tabela contendo o valor e o fatorial desse valor:

algoritmo "exec_06_aula11"

var
n,num,y,x:inteiro
fat:real
inicio
escreva("Número de operações fatoriais: ")
leia(n)
para x de 1 ate n faca
escreva("Escreva algum numero que deseje fatorar: ")
leia(num)
fat<-1
para y de 1 ate num faca
   fat<-fat*y
   escreval(fat)
fimpara
fimpara
fimalgoritmo
7- Foi feita uma estatística em cinco cidades brasileiras para coletar dados sobre acidentes de transito.
Foram obtidas os seguintes dados:
a)O código da cidade;
b)Número de veículos de passeio (em 2010)
c)Número de acidentes de transito com vitimas (em 2010)
Deseja-se saber:
a)Qual o maior e o menor índice de acidentes de transito e a que cidade eles pertencem;
b)Qual a média de veículos nas cinco cidades juntas;
c)Qual a média de acidentes de transito nas cidades com menos de 2000 veículos de passeio.

algoritmo "exec_07_aula11"var
x,caros,acidentes,carosx,acidentesx,acidentesy,contador,acidentes_m,n:inteiro
city,city_a,city_m_a:caracter //variaveis onde vai o nome da cidade
media_caros,media_a:real
inicio
carosx<-0
n<-5 //número de vezes.
acidentesx<-0
acidentesy<-10000000
contador<-0
acidentes_m<-0
para x de 1 ate n faca
   escreval("Digite a cidade, o número de veiculos e o número de acidentes com         vitimas")
   escreva("Nome da cidade: ")
leia(city)
escreva("Escreva o número de caros de ",city,": ")
leia(caros)
escreva("Escreva o número de acidentes com vitimas de ",city,": ")
leia(acidentes)
carosx<-caros+carosx
se (acidentes > acidentesx) entao
   acidentesx<-acidentes
   city_a<-city
fimse
se (acidentesy = 0) entao
   acidentesy<-acidentes
fimse
se (acidentes < acidentesy) entao
   acidentesy<-acidentes
city_m_a<-city
fimse
se (caros>=2000) entao
   acidentes_m<-acidentes+acidentes_m
   contador<-contador+1
fimse
limpatela
fimpara
media_caros<-carosx/n
escreval("O maior número de acidentes ocorre em ",city_a,".")
escreval("O menor néumero de acidentes ocorre em ",city_m_a,".")
escreval("A média de caros das 5 cidades são",media_caros,".")
media_a<-acidentes_m/contador
se (contador <> 0) entao
 escreval("A média de acidentes em cidades de mais de 2000 caros é",media_a,".")
senao
  escreva("Nenhuma cidade tem mais de 2000 caros")
fimse
fimalgoritmo


Hoje teria que ter sido aula de inglês, mas como a professora não veio, o professor Jossandro substituiu ela.
Ele passou mais dois exercícios e corrigiu os da aula passada.
A aula foi boa apesar de todos ficarem surpresos com a aula de algoritmos.