Aula 19 - 22 de Junho - Algoritmo e Lógica de Programação
Aula de hoje fala sobre vetores,mais um bicho de 7 cabeças vindo aeee...
Pois é a parte de vetores é a parte onde salvamos alguma informação em açguma variável .Segue ai a frente os exercícios ja resolvidos e corrigidos pelo professor.
1- Faça um programa que leia 10 nomes de alunos e guarde em uma lista.
algoritmo "exercicio 1"
1- Faça um programa que leia 10 nomes de alunos e guarde em uma lista.
algoritmo "exercicio 1"
var
a,b:inteiro
nome:caracter
nomes: vetor [1..10] de caracter
inicio
para a de 1 ate 10 faca
escreval ("Digite o nome do aluno: ")
leia (nome)
nomes[a]<- nome
fimpara
para b de 1 ate 10 faca
escreval (b," nome: ",nomes[b])
fimpara
fimalgoritmo
2- Faça um programa que leia 10 nomes de alunos e suas medias finais, e guarde em listas. Ao final, listar o nome do aluno e sua media mostrando "Aprovado" se a média for maior ou igual a 7, ou "Reprovado" caso contrario.
algoritmo "exercicio 2"
var
a,b:inteiro
nome:caracter
nomes: vetor [1..10] de caracter
medias: vetor [1..10] de real
mediafinal:real
inicio
para a de 1 ate 10 faca
escreval ("Digite o nome do aluno: ")
leia (nome)
escreval ("Digite a media final do aluno: ")
leia (mediafinal)
nomes[a]<- nome
medias[a]<- mediafinal
fimpara
para b de 1 ate 10 faca
escreval (b," nome: ",nomes[b])
se (medias[b] >= 7) entao
escreval ("Aprovado")
senao
escreval ("Reprovado")
fimse
fimpara
fimalgoritmo
3- Faça um programa que leia 50 valores reais e guarde os em um vetor. Ao final mostre a soma e a média dos valores lidos.
algoritmo "exercicio 3"
var
numero: vetor [1..50] de real
media,soma,n:real
a:inteiro
inicio
soma <- 0
para a de 1 ate 50 faca
escreval ("Escreva um numero: ")
leia (n)
numero[a]<- n
soma <- soma + numero[a]
fimpara
media <- soma / 50
escreval ("Amedia dos valores lidos é: ",media)
fimalgoritmo
4- Faça um programa que calcule a media ((nota1+nota2)/2) de 10 alunos e guarde em um vetor, percorra o vetor e mostre as medias. Ao final mostre a media geral do turno.
algoritmo "exec_04_aula19"
var
n1,n2,soma,media_t:real
media:vetor[1..10] de real
x:inteiro
inicio
soma<-0
para x de 1 ate 10 faca
escreval("Digite as notas do aluno",x)
leia(n1)
leia(n2)
media[x]<-((n1+n2)/2)
escreval("Média do aluno",x," é",media[x],".")
soma<-soma+media[x]
fimpara
media_t<-soma/10
escreva("Média da turma é",media_t,".")
fimalgoritmo
5- Faça um programa que mostre o mês do ano de acordo com o número (de 1 a 12) informado pelo usuário.
algoritmo "exec_05_aula19"
var
m:vetor [1..12] de caracter
m:inteiro
inicio
m[1]<-"Janeiro"
m[2]<-"Fevereiro"
m[3]<-"Março"
m[4]<-"Abril"
m[5]<-"Maio"
m[6]<-"Junho"
m[7]<-"Julho"
m[8]<-"Agosto"
m[9]<-"Setembro"
m[10]<-"Outubro"
m[11]<-"Novembro"
m[12]<-"Dezembro"
escreval("Digite um numero que representa o mês: ")
leia(m)
escreval(Mes[m])
fimalgoritmo
Essa parte (vetores) foi realmente como o esperado muito difícil ainda não peguei o jeito mas mais umas aulinhas ai vai dar pra entender .
Aula 18 - 15 de Junho - Algoritmo e Lógica de Programação
1- Faça um programa que receba dez números inteiros e mostre a quantidade de números primos dentre os números que foram digitados.
algoritmo "exec_01_aula16"
var
primos,num,prim,x,z:inteiro
inicio
primos<-0
para x de 1 ate 10 faca
escreva("Digite um número: ")
leia(num)
prim<-0
para z de 1 ate num faca
se (num mod z=0) entao
prim<-prim+1
fimse
fimpara
se (prim<=2) entao
primos<-primos+1
fimse
fimpara
escreva("Nos números digitados",primos," eram primos...")
fimalgoritmo
Aula em que pude ver o quanto é dificil analisar um bloco de dados, pois estou acostumado a fazer alguma parte na tentativa e erro(como sempreo mesmo problema), mas da pra notar que isso é ruim , porque quando preciso achar algum erro meu é muito dificil,pois continuo pensando na lógica e não analisando.
1- Em uma eleição presidencial existem quatro candidatos. Os votos são informados por meio de código. Os códigos utilizados são:
1, 2, 3, 4 | Votos para os respectivos candidatos |
5 | Voto nulo |
6 | Voto em branco |
Faça um programa que calcule e mostre:
o total de votos para cada candidato;
o total de votos nulos;
o total de votos em branco;
a percentagem de votos nulos sobre o total de votos;
a percentagem de votos em branco sobre o total de votos.
Para finalizar o conjunto de votos, tem-se o valor ZERO e, para códigos inválidos, o programa deverá mostrar uma mensagem.
algoritmo "exec_01_aula17"
var
c1,c2,c3,c4,c5,c6,votos,voto,x:inteiro
porc_n,porc_b:real
inicio
c1<-0
c2<-0
c3<-0
c4<-0
c5<-0
c6<-0
votos<-0
repita
escreva("Digite 1, 2, 3, 4, 5, 6, para votar: ")
leia(voto)
votos<-votos+1
se (voto <> 0) e (voto <> 6) e (voto <> 1) e (voto <> 2) e (voto<>3) e (voto<>4) e (voto<>5)entao
repita
escreva("Digite novamente seu voto: ")
leia(voto)
ate (voto > 0) e (voto < 6)
fimse
se (voto=1) entao
c1<-c1+1
senao
se (voto=2) entao
c2<-c2+1
senao
se (voto=3) entao
c3<-c3+1
senao
se (voto=4) entao
c4<-c4+1
senao
se (voto=5) entao
c5<-c5+1
senao
se (voto=6) entao
c6<-c6+1
fimse
fimse
fimse
fimse
fimse
fimse
ate (voto=0)
escreval("O candidato 1 recebeu",c1,".")
escreval("O candidato 2 recebeu",c2,".")
escreval("O candidato 3 recebeu",c3,".")
escreval("O candidato 4 recebeu",c4,".")
escreval("O total de votos nulos é",c5,".")
escreval("O total de votos em branco é",c6,".")
se (c5 <> 0) entao
porc_n<-((votos/100)*c5)
escreval("A porcetagem de nulos é",porc_n,"%.")
senao
escreval("Nenhum voto nulo.")
fimse
se (c6<>0) entao
porc_b<-((votos/100)*c6)
escreval("A porcentagem de brancos é",porc_b,"%.")
senao
escreval("Ninguém votou em branco.")
fimse
fimalgoritmo
2- Faça um programa que receba um conjunto de valores inteiros e positivos, calcule e mostre o maior e o menor valor do conjunto. Considere que:
para encerrar a entrada de dados, deve ser digitado valor zero;
para valores negativos, deve ser enviada uma mensagem;
os valores negativos ou iguais a zero não entram nos cálculos.
algoritmo "exec_02_aula17"
var
top,less,n:inteiro
inicio
top<-0
less<-0
repita
escreva("Digite um número: ")
leia(n)
se (n<0) entao
repita
escreva("ERRO. Digitou negativo! Digite novamente: ")
leia(n)
ate (n>=0)
fimse
se (top = 0) entao
top<-n
fimse
se (less = 0) entao
less<-n
fimse
se (n > top) e (n <> 0) entao
top <- n
fimse
se (n < less) e (n <> 0) entao
less <- n
fimse
ate (n=0)
se (n=0) e (top=0) entao
escreval("Nenhum número foi digitado")
senao
escreval ("O maior número é",top,".")
escreval ("O menor número é",less,".")
fimse
fimalgoritmo
fimalgoritmo
3- Faça um programa que receba os dados a seguir de vários produtos: preço unitário, país de origem (1- Brasil, 2- Portugal e 3 – outros), meio de transporte (T – terrestre, F – fluvial e A – aéreo), carga perigosa (S- sim, N – não), finalize a entrada de dados com um preço inválido, ou seja, menor ou igual a zero e que calcule e mostre:
O valor do imposto, usando a tabela a seguir.
Preço unitário | Percentual de imposto sobre o preço unitário |
Até R$ 280,00 | 5.00% |
Maior que R$ 280,00 | 10.00% |
O valor do transporte usando a tabela a seguir
Carga Perigosa | País de Origem | Valor do Transporte |
S | 1 | R$ 140,00 |
2 | R$ 59,00 | |
3 | R$ 67,00 | |
N | 1 | R$ 34,00 |
2 | R$ 59,00 | |
3 | R$ 168,00 |
O valor do seguro, usando a regra a seguir:
Os produtos que vêm de Portugal e os produtos que utilizam transporte aéreo pagam metade do valor do seu preço unitário como seguro.
O preço final, ou seja, preço unitário mais imposto mais valor do transporte mais valor do seguro.
O total dos impostos (somando impostos de todos os produtos).
algoritmo "exec_03_aula17"
var
p,imposto:real
cod_p:inteiro
t,c:caracter
inicio
imposto<-0
repita
escreva("Valor do produto: ")
leia(p)
escreva("Digite (1- Brasil, 2- Portugal e 3 - outros): ")
leia(cod_p)
escreva(" Digite meio de Transporte (T - terrestre, F - fluvial e A - aéreo): ")
leia(t)
escreva("Digite se é Carga perigosa (S- sim, N - não): ")
leia(c)
se (p <= 280) entao
p<-p+((p/100)*5)
senao
p<-p+((p/100)*10)
fimse
se (cod_p = 1) e (c = "n") e ((t="t") ou (t="f")) entao
p<-p+34
imposto<-imposto+34
fimse
se (cod_p = 1) e (c = "n") e (t="a") entao
p<-p+34
p<-p+(p/2)
imposto<-imposto+34
fimse
se (cod_p = 1) e (c = "s") e ((t="t") ou (t="f")) entao
p<-p+140
imposto<-imposto+140
fimse
se (cod_p = 1) e (c = "s") e (t="a") entao
p<-p+140
p<-p+(p/2)
imposto<-imposto+140
fimse
se (cod_p = 2) entao
p<-p+59
imposto<-imposto+59
fimse
se (cod_p = 3) e (c = "s") e ((t="t") ou (t="f")) entao
p<-p+67
imposto<-imposto+67
fimse
se (cod_p = 3) e (c = "n") e ((t="t") ou (t="f")) entao
p<-p+168
imposto<-imposto+168
fimse
se (cod_p = 3) e (c = "n") e (t="a") entao
p<-p+168
p<-p+(p/2)
imposto<-imposto+168
fimse
se (cod_p = 3) e (c = "s") e (t="a") entao
p<-p+67
p<-p+(p/2)
imposto<-imposto+67
fimse
escreval("Valor total",p,".")
ate (p<=0)
escreval("Total dos impostos é",imposto,".")
fimalgoritmo
Aulinha tranqüila, fazendo exercícios, tirando dúvidas , as quais ainda são muitas, mas estou confiante, pois to começando a pega o jeito.
1- Um supermercado deseja reajustar os preços de seus produtos usando o seguinte critério: o produto poderá ter seu preço aumentado ou diminuído. Para alterar o preço o produto deve preencher pelo menos um dos seguintes requisitos a seguir:
Venda média | Preço atual | % de aumento | % de diminuição |
<500 | < R$ 30,00 | 10 | - |
>= 500 e < 1.200 | >= R$ 30,00 e < R$ 80,00 | 15 | - |
>= 1.200 | >= R$ 80,00 | - | 20 |
Faça um programa que receba o preço atual e a venda mensal média do produto, calcule e mostre o novo preço.
algoritmo "exec_01_aula16"
var
m,p,valor:real
inicio
escreva("Digite a média mensal de vendas: ")
leia(m)
escreva("Digite preço do produto: ")
leia(p)
se (m<500) ou (p<30) entao
valor<-(p+((p/100)*10))
senao
se ((m>=500) e (m<1200)) ou ((p>=30) e (p<80)) entao
valor<-(p+((p/100)*15))
senao
se (m>=1200) ou (p>=80) entao
valor<-(p-((p/100)*20))
fimse
fimse
fimse
escreva("O novo preço é de",valor,".")
fimalgoritmo
2-Faça um programa que apresente os 8 primeiros números de fibonacci.
0, 1, 1, 2, 3, 5, 8, 13, 21, 34...
algoritmo "exec_02_aula16"
var
n1,n2,r,x:inteiro
inicio
n1<-0
n2<-1
escreva(n1)
escreva(n2)
para x de 1 ate 8 faca
r<-n1+n2
escreva(r )
n1<-n2
n2<-r
fimpara
fimalgoritmo
Aula muito importante para todos, revisão excelente passada pelo professor , que ta de parabéns pela explicação espero que continue assim, dessa vez tava menos difícil entender , mas vamos lá....
algoritmo "exec_01_aula16"
var
m,p,valor:real
inicio
escreva("Digite a média mensal de vendas: ")
leia(m)
escreva("Digite preço do produto: ")
leia(p)
se (m<500) ou (p<30) entao
valor<-(p+((p/100)*10))
senao
se ((m>=500) e (m<1200)) ou ((p>=30) e (p<80)) entao
valor<-(p+((p/100)*15))
senao
se (m>=1200) ou (p>=80) entao
valor<-(p-((p/100)*20))
fimse
fimse
fimse
escreva("O novo preço é de",valor,".")
fimalgoritmo
2-Faça um programa que apresente os 8 primeiros números de fibonacci.
0, 1, 1, 2, 3, 5, 8, 13, 21, 34...
algoritmo "exec_02_aula16"
var
n1,n2,r,x:inteiro
inicio
n1<-0
n2<-1
escreva(n1)
escreva(n2)
para x de 1 ate 8 faca
r<-n1+n2
escreva(r )
n1<-n2
n2<-r
fimpara
fimalgoritmo
Aula muito importante para todos, revisão excelente passada pelo professor , que ta de parabéns pela explicação espero que continue assim, dessa vez tava menos difícil entender , mas vamos lá....
1-
algoritmo "triangulo"
var
x, y, z:inteiro
inicio
escreval("Digite a medida dos 3 lados do triangulo")
leia(x, y, z)
se (x >= y+z) ou (y >= x+z) ou (z >= x+y) entao
escreval("As medidas informadas nao formam um triangulo")
senao
se (x=y) e (y=z) entao
escreval("Triangulo equilatero - todos os lados iguais")
senao
se (x=y) ou (x=z) ou (y=z) entao
escreval("Triangulo isoceles - 2 lados iguais")
senao
se (x<>y) e (x<>z) e (y<>z) entao
escreval("Triangulo escaleno - todos os lados diferentes")
fimse
fimse
fimse
fimse
fimalgoritmo
2-
algoritmo "angulo"
var
a: inteiro
voltas: real
inicio
escreval("Digite um angulo")
leia(a)
se (a>360) ou (a < -360) entao
voltas <- a / 360
a <- a mod 360
senao
voltas <- 0
fimse
se (a=0) ou (a=90) ou (a=180) ou (a=270) ou (a=360) ou (a=-90) ou (a=-180) ou (a=-270) ou (a=-360) entao
escreval("Esta sobre um dos eixos")
senao
se ((a >0) e (a < 90)) ou ((a < -270) e (a > -360)) entao
escreval("1 quadrante")
fimse
se ((a >90) e (a < 180)) ou ((a < -180) e (a > -270)) entao
escreval("2 quadrante")
fimse
se ((a >180) e (a < 270)) ou ((a < -90) e (a > -180)) entao
escreval("3 quadrante")
fimse
se ((a >270) e (a < 360)) ou ((a < 0) e (a > -90)) entao
escreval("4 quadrante")
fimse
escreva(" ", voltas," voltas no sentido ")
se (a<0) entao
escreval(" horario")
senao
escreval(" anti-horario")
fimse
fimse
fimalgoritmo
3-
algoritmo "calculos"
var
num, prim, soma_prim, soma, qtd, z, maior, menor, qtd_par, soma_par, qtd_impar: inteiro
media_par, media, perc : real
inicio
qtd <- 0
qtd_par<-0
soma_par <-0
soma_prim <- 0
qtd_impar <-0
escreval("Digite um numero")
leia(num)
repita
se (qtd=0) entao
maior <- num
menor <- num
senao
se (num > maior) entao
maior <- num
fimse
se (num < menor ) entao
menor <- num
fimse
fimse
soma <- soma + num
qtd <- qtd + 1
se (num mod 2 = 0) entao
soma_par <- soma_par + num
qtd_par <- qtd_par + 1
senao
qtd_impar <- qtd_impar + 1
fimse
prim <- 0
para z de 1 ate num faca
se (num mod z = 0) entao
prim <- prim + 1
fimse
fimpara
se (prim <= 2)entao
soma_prim <- soma_prim + num
fimse
leia(num)
ate(num=99999)
se (qtd = 0) entao
escreval("Nenhum numero digitado")
senao
escreval("A soma e ",soma)
escreval("A quantidade e ",qtd)
media <- soma / qtd
escreval("A media e ", media)
escreval("O maior e ", maior)
escreval("O menor e ", menor)
se (qtd_par = 0 ) entao
escreval("Nenhum numero par foi digitado")
senao
media_par <- soma_par / qtd_par
escreval("A media dos pares e ", media_par)
fimse
perc <- qtd_impar * 100 / qtd
escreval("O percentual de impares e ", perc)
escreval("A soma dos primos e ",soma_prim)
fimse
fimalgoritmo
Prova corrigida dúvidas sanadas de alguns pois de outros a apenas começaram...
Pois é faltou 1 pontinho, que o professor podia ter considerado sendo que só faltou inicializar as variáveis a lógica estava correta,mas vamos em frente na próxima vai dar.
Prova foi de lasca como eu imaginava a questão número 1 tudo tranqüilo, mas a 2 nem sabia como começar, ainda mais aquela bagunça desgraçada da turma de criança que tava na janela da sala, a 3 achei q tava tranqüilo apenas a parte de números primos tava difícil , não lembrava mais como fazer, e na questão numero 3 esqueci de inicializar 2 variáveis o que custou alguns pontinhos.
Correção da revisão para a prova. Ja deu pra notar que a prova vai ser de lascar.
Aula 12 - 18 de Maio - Algoritmo e Lógica de Programação
1)Faça um programa que recebe um número positivo e maior que zero, calcule e mostre:
a) o número digitado ao quadrado;
b) o número digitado ao cubo;
c) a raiz quadrada do número digitado;
d) a raiz cúbica do número digitado.
algoritmo "exec_01_aula12"
var
num:inteiro
qua,cubo,r_qua,r_cubo:real
inicio
escreva("Digite um número: ")
leia(num)
qua<-(num^2)
cubo<-(num^3)
r_qua<-(num^(1/2))
r_cubo<-(num^(1/3))
escreval("O número",num," elevado ao quadrado é",qua,".")
escreval("O número",num," elevado ao cubo é",cubo,".")
escreval("A raiz quadrada do",num," é",r_qua,".")
escreval("A raiz cubica do",num," é",r_cubo,".")
fimalgoritmo
2)Faça um programa para verificar se um inteiro positivo lido é par ou ímpar (mostre por escrito se é par ou ímpar). Se o número for ímpar, multiplique por 2 e mostre o resultado, caso contrário multiplique por ½ e mostre o resultado.
(OBS: Par: x mod 2 = 0)
algoritmo "exec_02_aula12"
var
num:inteiro
x_par,x_impar:real
inicio
escreva("Digite um número: ")
leia(num)
se (num mod 2 = 0) entao
escreval("O número é Par!")
x_par<-(num*(1/2))
escreval("O resultado de",num," multiplicado por 1/2 é",x_par,".")
senao
escreval("O número é Impar!")
x_impar<-(num*2)
escreval(num," multiplicado por 2 é",x_impar,".")
fimse
fimalgoritmo
3) aça um programa que receba o custo total de um espetáculo teatral e o preço do convite desse espetáculo. Esse programa deverá calcular e mostrar a quantidade de convites que devem ser vendidos para que pelo menos o custo do espetáculo seja alcançado.
algoritmo "exec_03_aula12"
var
custo,valor,total:real
inicio
escreva("Digite qual foi o custo total da peça: ")
leia(custo)
escreva("Digite o valor do ingresso: ")
leia(valor)
total<-custo/valor
escreva("Para pagar o custo da peça você deve no minimo vender",total," ingressos.")
fimalgoritmo
4)Faça um programa que receba três números e mostre-os em ordem decrescente.
algoritmo "exec_04_aula12"
var
n1,n2,n3:inteiro
inicio
escreval("Digite 3 números diferentes")
leia(n1)
leia(n2)
leia(n3)
se (n1>n2) e (n2>n3) entao
escreva("A ordem decrescente é:",n1,",",n2,",",n3,".")
senao
se (n1>n3) e (n3>n2) entao
escreva("A ordem decrecente é:",n1,",",n3,",",n2,".")
senao
se (n2>n1) e (n1>n3) entao
escreva("A ordem decrecente é:",n2,",",n1,",",n3,".")
senao
se (n2>n3) e (n3>n1) entao
escreva("A ordem decrescente é:",n2,",",n3,",",n1,".")
senao
se (n3>n1) e (n1>n2) entao
escreva("A ordem decrescente é:",n3,",",n1,",",n2,".")
senao
se (n3>n2) e (n2>n1) entao
escreva("A ordem decrescente é:",n3,",",n2,",",n1,".")
senao
fimse
fimse
fimse
fimse
fimse
fimse
fimalgoritmo
5)Faça um programa que receba a hora do início de um jogo e a hora final (cada hora é composta por duas variáveis inteiras: hora e minuto). Calcule e mostre a duração do jogo (horas e minutos), sabendo-se que o tempo máximo de duração do jogo é de 24 horas e que ele pode iniciar-se em um dia e terminar no dia seguinte.
6)Faça um programa que receba cem números, calcule e mostre a soma dos números pares e a média dos números primos.
7)Faça um programa que receba a idade e o peso de 75 pessoas, e que calcule e mostre as médias dos pesos das pessoas da mesma faixa etária. As faixas etárias são: de 1 a 10 anos, de 11 a 20 anões de 21 a 30 anos e de 31 anos para cima.
algoritmo "exec_07_aula12"
var
x,idade,pesso:inteiro
contador1,contador2,contador3,contador4,pesso1,pesso2,pesso3,pesso4,media1,media2,media3,media4:real
inicio
contador1<-0
contador2<-0
contador3<-0
contador4<-0
pesso1<-0
pesso2<-0
pesso3<-0
pesso4<-0
para x de 1 ate 75 faca
escreval("Digite a idade e o pesso!")
escreva("Digite a idade: ")
leia(idade)
escreva("Digite o Pesso: ")
leia(pesso)
se(idade>=1) e (idade<=10) entao
contador1<-contador1+1
pesso1<-pesso+pesso1
senao
se(idade>=11) e (idade<=20) entao
contador2<-contador2+1
pesso2<-pesso+pesso2
senao
se(idade>=21) e (idade<=30) entao
contador3<-contador3+1
pesso3<-pesso+pesso3
senao
se(idade>=31) entao
contador4<-contador4+1
pesso4<-pesso+pesso4
senao
fimse
fimse
fimse
fimse
fimpara
media1<-pesso1/contador1
media2<-pesso2/contador2
media3<-pesso3/contador3
media4<-pesso4/contador4
escreval("A média de pesso da idade 1 até 10 anos é",media1,".")
escreval("A média de pesso da idade 11 até 20 anos é",media2,".")
escreval("A média de pesso da idade 21 até 30 anos é",media3,".")
escreval("A média de pesso da idade 31 ou mais é",media4,".")
fimalgoritmo
8) ada espectador de um cinema respondeu a um questionário no qual constava sua idade e sua opinião em relação ao filme: ótimo – 3, bom – 2, regular – 1. Faça um programa que receba a idade e a opinião de 75
espectadores, calcule e mostre:
a)a média das idades das pessoas que responderam ótimo;
b) a quantidade de pessoas que responderam regular;
c) a percentagem de pessoas que responderam bom, entre todos os espectadores analisados.
algoritmo "exec_08_aula12"
var
x,idade,opcao:inteiro
contador1,contador2,contador3,idade_o,media_o,media_b:real
inicio
para x de 1 ate 75 faca
escreval("Ola, digite sua idade e opinição do filme.")
escreva("Digite sua idade: ")
leia(idade)
limpatela
escreval("Para Ótimo digite 3, para Bom digite 2 e para Regular digite 1.")
repita
escreva("Digite a opcao desejada: ")
leia(opcao)
se (opcao<>1) ou (opcao<>2) ou (opcao<>3) entao
escreva("Digitou opção errada, redigite sua opção!")
fimse
ate(opcao=1)ou(opcao=2)ou(opcao=3)
limpatela
se (opcao = 1) entao
contador1<-contador1+1
fimse
se (opcao = 3) entao
contador3<-contador3+1
idade_o<-idade+idade_o
fimse
se (opcao = 2) entao
contador2<-contador2+1
fimse
fimpara
media_o<-idade_o/contador3
escreval("A média das pessoas que acharam ótimo foi de",media_o,".")
escreval(contador1," pessoas responderam Regular.")
media_b<-75/contador2
escreval(media_b,"% das pessoas responderam Bom.")
fimalgoritmo
Quase chegando a próva, a galera ta tremendo,ahusauhsau, é muito bom fazer exercicios antes da prova,ainda mais o professor adiando a prova, ele viu que a galera ainda num ta bem preparada, mas pode ser que por um milagre eu passe.
Aula 11 - 17 de Maio - Algoritmo e Lógica de Programação
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
Pra começa era pra ser aula de inglês mas dae chega o Jossandro acabando com a alegria da turma,ashuahushuahsuh..
Aula tranquila continuo tirando umas dúvidas, mas ainda não toi bem, falta mais conecntração ao analisar os blocos de dados.
