AULA 19

 hoje comesamos a estudar vetores dizem que isso e um bicho de 7 cabesas mas não achei nem a primeira delas srsrs,

mas  ja to me preparando porque to vendo que nesa parte a coisa vai pega fogo

1- Faça um programa que leia 10 nomes de alunos e guarde em uma lista.

algoritmo "exec_01_aula19"
var
   n:vetor [1..10] de caracter
   x:inteiro
inicio
   para x de 1 ate 10 faca
      escreva("Digite o nome do aluno",x,": ")
      leia(n[x])
   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 "exec_02_aula19"
var
   x:inteiro
   nome,r:vetor[1..10] de caracter
   media:vetor[1..10] de real
inicio
   para x de 1 ate 10 faca
      escreva("Digite o nome do aluno",x,": ")
      leia(nome[x])
      escreva("Digite a média do ",nome[x],": ")
      leia(media[x])
      se (media[x] >= 7) entao
         r[x]<-"Aprovado"
      senao
         r[x]<-"Reprovado"
      fimse
      limpatela
   fimpara
   para x de 1 ate 10 faca
      escreval("O aluno ",nome[x]," tirou",media[x],", ele foi ",r[x],".")
   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 "exec_03_aula19"
var
   x,soma:inteiro
   v:vetor[1..50] de real
   media:real
inicio
   soma<-0
   para x de 1 ate 50 faca
      escreva("Digite um valor real: ")
      leia(v[x])
      soma<-soma+v[x]
   fimpara
   limpatela
   media<-soma/50
   escreva("A soma total foi",soma," e a média foi",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
   escreval("******************************")
   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
   mes:vetor [1..12] de caracter
   m:inteiro
inicio
   mes[1]<-"Janeiro"
   mes[2]<-"Fevereiro"
   mes[3]<-"Março"
   mes[4]<-"Abril"
   mes[5]<-"Maio"
   mes[6]<-"Junho"
   mes[7]<-"Julho"
   mes[8]<-"Agosto"
   mes[9]<-"Setembro"
   mes[10]<-"Outubro"
   mes[11]<-"Novembro"
   mes[12]<-"Dezembro"
   escreva("Digite um numero que representa o mês: ")
   leia(m)
   escreva(mes[m])
fimalgoritmo

 nesses programas de hoje tava legal a parte de vetores bem vasil de faser e enteder consegui faser fasilmente com a ajuda do prf.

AULA 18

corigimos os exercicios do trabalho da aula passada e o professor ja passou esse para particar 

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


com esse e os outro exercicios to pegando a pratica e to gostando de faser esses programas.

AULA 17

hoje to vendo que o prf.Jossandro e muito gente fina o cara deu esses exercicios ai para recuperarmos a nota perdida ba me passei ne era em dupla e fis sosinho os meus exercicios e consegui ate ajudar alguns colegas que estavam com duvida.

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

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 doseguro.

   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

 

fis a 1 ea 2 com facilidade com algumas perguntas ao professor ja a 3 pedi ajuda do guilherme pq fico muito complicado mas estudei muito ela pra não ter erro

AULA 16

apos reprovação de mais ou menos 80% da turma o professor acabou sedendo e resolveu explicar com mais calma os assuntos de repetição e adorei isso porque agora abri a cabeça e to entendendo mais fasil os problemas, segue 2 exercicios que o prf.Jossandro nos passou.

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

depoisdesse comesei a achar fasil esse negocio de algoritmos e to me adequando cada ves mais a melhorar
cada minuto que tenho livre pego papel e caneta e bolo eu mesmo programas para minha resolução