Profº Piva - Algoritmos - Capitulo 5.7) Escreva algoritmo que leia a 1ª prestação de uma conta e a taxa de juros e calcule e coloque em um vetor os valores das próximas 10 prestações.

algoritmo "taxa de juros de uma parcela"

var

parcela: vetor[1..10] de real

juros: real

i: inteiro

inicio

escreval ( "Informe o valor da primeira prestação: ")

leia (parcela[1])

escreva ("Informe o juros: ")

leia(juros)

parcela[1] <- parcela[1] + (parcela[1]*(juros/100))

 para i de 2 ate 10 faca

   parcela[i] <- parcela[1]

 fimpara

escreval ("O valor de todos as parcelas será: ", parcela[1])

fimalgoritmo

Profº Piva - Algoritmos - Capitulo 5.6) Escreva algoritmo que leia os nomes e conceitos dos alunos de uma turma de tamanho máximo 60. O algoritmo deverá, para todos os alunos lidos, colocar em uma matriz o nome do aluno na primeira coluna e sua situação na segunda coluna: “aprovado”, se o conceito do aluno for superior a 0; “reprovado” caso contrário. Os conceitos vão de 0 a 4, estando reprovados os alunos cujo conceito é o 0. O algoritmo pára de ler quando o nome informado for “fim” ou tenham sido lidos o nome e o conceito de 60 alunos tamanho máximo da turma).

Profº Piva - Algoritmos - Capitulo 5.5) Escreva algoritmo que leia caracteres em dois vetores vetA e vetB, de cinco posições.Após os dois vetores terem sido lidos, o algoritmo deverá colocar em um terceiro vetor vetC a diferença dos dois primeiro, i.e., os caracteres que estão contido em vetA e não estão contido em vetV. Por exemplo, se vetA = { “A”, “E”, “F”, “6“,“?”} e vetB = { “F”, “3”, “?”, “F“,“H”,“E”} então vetC = { “A”,“6“}

Profº Piva - Algoritmos - Capitulo 5.4) Escreva um algoritmo que leia caracteres em dois vetores vetA e vetB, de cinco posições. Após os dois vetores terem sido lidos, o algoritmo deverá colocar em um terceiro vetor vetC o resultado da união dos dois primeiros, i.e., os caracteres que estão contidos em um ou outro vetor. Assuma que em um mesmo vetor não haverá caracteres repetidos, mas uma caracter contido em vetA poderá também estar contido em vetB. Nesse caso, apenas uma ocorrência é colocada em vetC. Por exemplo, se vetA = { “A”, “E”, “F”, “6“,“?”} e vetB = { “F”, “3”, “?”, “F“,“H”,“E”} então vetC = { “A”, “E”, “F”, “6“,“?”,”E”,“H”}

algoritmo  “União de vetores”
var
   vetA:vetor[1..5] de literal
   vetB:vetor[1..5] de literal
   vetC:vetor[1..5] de literal
   i, j, k : numérico
   achou : lógico
início
    i <- 1
   repita
   escreva(“Entre com”, i, “o elemento do vetor A”)
   leia(vetA[i]) 
   escreva(“Entre com”, i, “o elemento do vetor B”)
   leia(vetB[i]) 
   i < i + 1
  até i > 5
  i <-1
  repita
    vetC[i] <- vetA[i] 
     i <- i + 1
  até i > 5
   i <- 1
   k <- 5
repita
   j <- 1
   achou <- FALSO
   repita
      se vetB[i] = vetA[j] então
         achou <- VERDADEIRO
      fimse  
      j <- j+1
  até (j > 5) ou achou
     se não achou então
         vetC[k] <- vetB[i]
          k <- k+1
     fimse 
     i <- i+1
até i > 5
fimalgoritmo

Profº Piva - Algoritmos - Capitulo 5.8) A média (aritmética) móvel é uma média efetuada sobre um número especificado de pontos ou amostras. Quando se introduz uma nova amostra, descarta-se o valor da mais antiga, dando-se lugar à nova amostra. Quanto menor o número de amostras, mais sensível será a média em relação à nova amostra. Esse esquema de substituição faz da média móvel um instrumento valioso na análise de tendências. Escreva um algoritmo que calcule e escreva a média móvel. O algoritmo deverá executar um laço de leitura de valores maiores ou iguais a zero (as amostras); a introdução de um valor negativo servirá como indicador de término de leitura. Os valores lidos são colocados em um vetor V de 10 posições. Para cada valor fornecido, o algoritmo deverá escrever a média móvel calculada. Considere para a solução desse problema uma média móvel realizada sobre as 10 amostras mais recentes, armazenadas em um vetor. Supondo que em um determinado momento o vetor V tem os seguintes valores 8.9, 9.0, 9.5, 9.4, 8.7, 8.6, 8.7, 8.5, 8.8, 8.7 e o novo valor lido foi 9.1, o vetor V agora conterá 9.0, 9.5, 9.4, 8.7, 8.6, 8.7, 8.5, 8.8, 8.7, 9.1 A média móvel será 9.0 + 9.5+9.4+8.7+8.6+8.7+8.5+8.8+8.7+9.1/10 = 8.9 Se o próximo valor lido for 8.0, então o conteúdo do vetor V será: 9.5, 9.4, 8.7, 8.6, 8.7, 8.5, 8.8, 8.7, 9.1, 8.0 A média móvel será 9.5+9.4+8.7+8.6+8.7+8.5+8.8+8.7+9.1+8.0/10 = 8.8

algoritmo "Media Movel"
var
  valor,media,soma:real
  amostras:vetor [1..10] de real
  i,k,n:inteiro
  fim:logico
inicio
  n<-0
  fim<- falso
  i<-0
    Repita
      escreva ("Entra com amostra")
      leia (valor)
        se (valor < 0) entao
           fim <- verdadeiro
            senao
              se (n=10) entao
                para i de 1 ate 9 faca
                  amostras [i] <- amostras [i+1]
                fimpara
                 amostras [n] <- valor
                 k<-0
                 soma<-0
                para i de 1 ate 10 faca
                  se (amostras [i] >0) entao
                    soma <- soma + amostras[i]
                    k<-k+1
                  fimse
                fimpara
                media <- soma/k
                escreval ("A media movel =", media)
                 senao
                 n<-n+1
                  amostras [n] <- valor
                  k<-0
                  soma <-0
                  para i de 1 ate 10 faca
                    se (amostras [i] > 0) entao
                      soma <- soma + amostras [i]
                      k<- k+1
                    fimse
                  fimpara
                  media <- soma/k
                 escreval ("A media movel=", media)
             fimse
       fimse
       ate fim
fimalgoritmo

Profº Piva - Algoritmos - Capitulo 5.1) Escreva um algoritmo que calcule e coloque em um vetor os números de 1 a n cuja raiz quadrada é um número inteiro ímpar. Por exemplo, 1, 9, 25, 49,...O valor de n deve ser lido, sendo que n ≤ 1000.

algoritmo "Raiz Quadrada"
var
n,q,i,k:inteiro
vet:vetor[1..1000] de inteiro
inicio
      repita
            escreva("digite um numero(1-1000) :")
            leia(n)
      ate((n<1000) e (n>0))
      k<-1
      para i de 1 ate n faca
           se((i mod 2)=1)entao
           q<-i*i
             vet[k]<-q
             k<-k+1
           fimse
           fimpara
para i de 1 ate (k-1) faca
     escreval(vet[i])
     fimpara
      
fimalgoritmo

Profº Piva - Algoritmo - Capitulo 5.2) Escreva um algoritmo que leia o nome dos alunos de uma turma de tamanho indefinido (mas não superior a 60) e sua nota em uma prova (0 a 10; o algoritmo deve verificar se a nota fornecida é válida). O algoritmo pára de ler quando o nome do aluno fornecido for vazio (“”). Para cada aluno, o algoritmo deve escrever seu nome e sua nota normalizada, dada pela fórmula: NNi = Ni X 10/Nmax Onde NNi é a nota normalizada do i-ésimo aluno, Ni é sua nota original, e Nmax é a nota máxima obtida dentre todos os alunos da turma.

algoritmo "Nota Normalizada"
var
  nomes:vetor[1..6] de literal
  notas:vetor[1..6] de real
  n,nmax,nn:real
  i,k:inteiro
inicio
  i<-0
  repita
    i<-i+1
    escreval("Digite o nome")
    leia (nomes[i])
     se (nomes[i] <> " ") entao
       repita
         escreval ("Digite a nota")
         leia (notas [i])
       ate ((notas[i]<=10) e (notas [i]>=0))
     fimse
  ate ((i>5) ou (nomes [i]= " "))
       se (i>5) entao
       i<-5
       fimse
       k<-i
       nmax<-notas [i]
       para i de 2 ate k faca
           se (notas [i] >nmax) entao
             nmax <-notas [i]
           fimse
       fimpara
    escreval ("A listagem dos nomes e nn:")
    para i de 1 ate k faca
      nn<-notas [i]*(10/nmax)
      escreval (nomes [i], " - ", nn)
    fimpara       
fimalgoritmo

Profº Piva - Lista de Exercícios - 4)Faça um programa para achar todos os números inteiros e positivos entre dois números lidos (N1 e N2), tais que: a)Não terminem em zero; b)Se o dígito à direita for removido, o número restante seja divisor do número original. (ex: 39 (3 é divisor de 39).

Esse exercício não da certo!!
Não estou conseguindo fazer...alguém conseguiu???
obrigado
Silvia

Profº Piva - Lista de Exercícios - 6)Faça um programa que seja capaz de calcular o resultado de uma operação de divisão inteira (x dividido y), utilizando-se para isso apenas do operador de subtração (-). Ex.: 12 / 3 = 4 = 12-3=9-3=6-3=3-3=0 (4 vezes)

algoritmo "Subtração"
var
contador,n1,n2,divisao:real
inicio
contador<-0

escreva("Digite o divisor. ")

leia(n1)

escreva("Digite o dividendo. ")

leia(n2)

   se (n1>n2) entao
divisao<-n1
repita
divisao<-divisao-n2
contador<-contador+1
ate (divisao<N2)
    senao
    contador<-0
    fimse

escreval(n1," /",n2," =",contador)
fimalgoritmo

Profº Piva - Lista de Exercícios - 5)Faça um programa que seja capaz de calcular o resultado de uma operação de multiplicação (x vezes y), utilizando-se para isso apenas do operador de soma (+). Ex.: 12 * 3 = 36 = 12+12+12 (3 vezes)

algoritmo "Multiplicacao"
var
  conti,n1,n2,multiplicacao:inteiro
inicio
  multiplicacao<-0
  conti<-0
  escreva("Digite o numero:")
  leia (n1)
  escreva("Multplicado por:")
  leia (n2)
  Repita
  multiplicacao<-multiplicacao+n1
  conti<-conti+1
  ate (conti=n2)
  escreval(n1,"x",n2,"=",multiplicacao)
 fimalgoritmo

Profº Piva - Lista de Exercícios - 2)Faça um programa que mostre na tela o(s) número(s) dentro do intervalo entre 600 e 700 que sejam múltiplos de 5 e também de 7.

algoritmo "Multiplos de 5 e 7 no intervalo de 600 a 700"
var  multiplos:inteiro
inicio 
  multiplos <-600 
  para multiplos de 600 ate 700 faca 
  se ((multiplos mod 5)=0) entao
  escreval ("Os multiplos de 5", multiplos)
  se ((multiplos mod 7)=0) entao
  escreval ("Os multiplos de 7", multiplos)
  fimse
  fimse
  multiplos <-multiplos+1 
 fimpara
fimalgoritmo

Profº Piva - Lista de Exercícios - 8)Fazer um programa para calcular a soma dos N primeiros números, onde N é lido. Ex.: N=5. Soma = 1+2+3+4+5

algoritmo "Soma dos N"
varn,soma:numerico
inicioescreval("Informe o valor do numero.")
leia(n)
repita
somal<-soma+n
n<-n-1
ate (n=0)
escreval("soma =",soma)
fimalgoritmo

Profº Piva - Lista de Exercícios - 7)Leia um numero N (inteiro, positivo >5). Depois, leia para um determinado grupo de pessoas (N) as seguintes informações: Idade, Peso, Sexo. Este programa deve fornecer como saída: a) A média dos pesos dos homens; b) A média das idades das mulheres; c) Quantas mulheres acima de 25 anos.

algoritmo "Média dos pesos e idades e quantidade de mulheres acima dos 25 anos"

var

  n,contadoramulheresacima25,qtdehomens,contadoramulheresnormal:inteiro

  idade:inteiro

  peso,somapesohomens,somaidademulheres:real

  sexo:literal

  mediapeso,mediaidade:numerico

inicio

  Repita

  escreval ("Digite um número inteiro e maior que cinco")

  leia (n)

  ate (n>=5)

  Repita

  escreval ("Digite a idade")

  leia (idade)

  escreval ("Digite o seu peso")

  leia (peso)

  escreval ("Digite o seu sexo")

  leia (sexo)

  se (sexo="m") entao

     somapesohomens <- somapesohomens+peso

     qtdehomens <- qtdehomens+1

   senao

     contadoramulheresnormal <- contadoramulheresnormal+1

     somaidademulheres <- somaidademulheres+idade

       se (idade>25) entao

       contadoramulheresacima25 <- contadoramulheresacima25+1

       fimse

     fimse

     n <- n-1

  ate (n<=0)

  mediapeso <- somapesohomens/qtdehomens

  mediaidade <- somaidademulheres/contadoramulheresnormal

  escreval ("A média dos pesos dos homens", mediapeso)

  escreval ("A média das idades das mulheres", mediaidade)

  escreval ("Quantidade de mulheres acima de 25 anos", contadoramulheresacima25)

              fimalgoritmo

Profº Piva - Lista de Exercícios - 3)Faça um programa que, dado um número, imprima a sua tabuada completa.

algoritmo "Tabuada"

var

  n,x,tabuada:real

inicio

  x <- 0

  escreval ("Digite um número para tabuada")

  leia (n)

  Repita

  tabuada <- n*x

  escreval (n, "*", x, "=", tabuada)

  x <- x+1

  ate (x>=11)

fimalgoritmo

Profº Piva - Lista de Exercícios - 1)Faça um programa que calcule a média aritmética de 35 alunos do curso de Algoritmos. Use comandos de repetição.

algoritmo "Media"

var

  media, nota, soma:real

  i:inteiro

inicio

  soma <- 0

  para i de 1 ate 35 faca

  escreva ("Digite a", i, "a nota:")

  leia (nota)

  soma <- soma+nota

  fimpara

  media <- soma/35

  escreva ("A media e igual a", media)

fimalgoritmo

Profº Piva - Algoritmos - Exercícios Capítulo 3.18) Escreva um algoritmo que leia as notas das duas primeiras provas de um aluno (p1 e p2) e calcule qual o valor mínimo da terceira nota (p3), para que este aluno seja aprovado, considerando que a média aritmética mínima das três provas deva ser 6.0 para que o aluno seja aprovado.

algoritmo "Nota Final"

var
  n1,n2,n3,media:real
inicio
  escreval ("Digite a primeira nota")
  leia (n1)
  escreval ("Digite a segunda nota")
  leia (n2)
  n3 <- 18-(n1+n2)
  escreval ("A terceira nota minima deve ser igual a:", n3)
 
fimalgoritmo

Profº Piva - Algoritmos - Exercícios Capítulo 3.12) Escreva um algoritmo que leia as notas das três provas de um aluno (p1, p2 e p3), calcule sua média aritmética e escreva-a. As notas devem estar no intervalo [0,10].

algoritmo "Notas de provas"
var
  p1,p2,p3,media:real
inicio
  escreval ("Digite o valor da primeira prova")
  leia (p1)
  escreval ("Digite o valor da segunda prova")
  leia (p2)
  escreval ("Digite o valor da terceira prova")
  leia (p3)
  se (p1<=10)e(p2<=10)e(p3<=10) entao
  media <- (p1+p2+p3 div 3)
  escreval ("A média aritmética eh igual a ",media)
  senao
  escreval ("O valor deve ser ne um intervalo de 0 a 10")
  fimse
    
fimalgoritmo

Profº Piva - Algoritmos - Exercícios Capítulo 3.13) Escreva um algoritmo que leia a altura (em metros), o peso (em quilogramas) e o sexo (“MASCULINO” ou “FEMININO”) e calcule seu peso ideal, dado por peso ideal do homem = (72,7 x altura) – 58 --> (3.3) ou peso ideal da mulher = (62,1 x altura) – 44,77 --> (3.4) O algoritmo deve, também, informar se a pessoa está abaixo ou acima de seu peso ideal e m quantos quilos.

algoritmo "Calculo Peso Ideal"
var
  altura,peso,pesoideal,amais,amenos:real
  sexo:literal
 
inicio
  escreval (" Calcule seu peso ideal, dado por peso ideal do homem =(72,7 x altura) – 58")
  escreval (" peso ideal da mulher = (62,1 x altura) – 44,77")
  escreval ("Digite sua altura")
  leia (altura)
  escreval ("Digite seu peso")
  leia (peso)
  escreval ("Digite seu sexo")
  leia (sexo)
  se ((sexo="FEMININO") ou (sexo="F")) entao
  pesoideal <- ((62.1*altura)- 44.77)
  senao
  pesoideal<- ((72.7*altura)-58)
  fimse
  se(peso>pesoideal) entao
  amais<-peso-pesoideal
  escreval ("Seu peso ideal eh igual a", pesoideal," e você esta acima do peso ideal, em ", amais:5:2, "kilos")
  senao
  se(pesoideal>peso)entao
  amenos<-pesoideal-peso
  escreval ("Seu peso ideal eh igual a", pesoideal," e você esta abaixo do peso ideal, em ", amenos:5:2 , "kilos")
  senao
  escreval("Você está no seu peso ideal,,,, parabéns!!!!!!!!!!!!")
  fimse
  fimse
 
fimalgoritmo

Profº Piva - Algoritmos - Exercícios Capítulo 2.21) A comissão de formatura de um curso está organizando a festa de formatura de sua turma e levantou as seguintes informações: 1. custo do salão (capacidade de 800 pessoas com mesas de 4 pessoas) R$ 2000.00; 2. custo da sonorização: R$ 500,00 3. custo da decoração: R$ 800,00 Além desses custos, que serão rateados igualmente entre os formandos, há custos cuja divisão é proporcional ao número de convidados do formando. São eles: 1. segurança: necessário um segurança para cada 80 pessoas da festa; 2. garçom: um garçom consegue atender 48 pessoas (ou 12 mesas de 4 pessoas); e 3. bebida. Escreva um algoritmo que leia o nome de cada um dos cinco formandos com seus respectivos números de convidados. Ele também deve ler os custos de um segurança, de um garçom e da bebida. O algoritmo deve calcular e escrever, para cada formando o número de mesas desitnadas para seus convidados e o custo da festa para eles. As mesas poderão ser compartilhadas entre convidados de diferentes formandos.

algoritmo "Cálculo para fazer uma festa de formatura."
var

  f1,f2,f3,f4,f5:literal
  ncf1,ncf2,ncf3,ncf4,ncf5:inteiro
  pg,ps,pb,tc,tg,ts,tm,custotal:inteiro
  mf1,mf2,mf3,mf4,mf5,ppc:real
inicio
  escreval("Cálculo para fazer uma festa de formatura.")
  escreva(" Digite o nome do primeiro  formando                 ")
  leia(f1)
  escreva(" Digite o número de convidados do primeiro formando ")
  leia(ncf1)
  escreva(" Digite o nome do segundo formando                  ")
  leia(f2)
  escreva(" Digite o número de convidados do segundo formando  ")
  leia(ncf2)
  escreva(" Digite o nome do terceiro formando                 ")
  leia(f3)
  escreva(" Digite o número de convidados do terceiro formando ")
  leia(ncf3)
  escreva(" Digite o nome do quarto formando                   ")
  leia(f4)
  escreva(" Digite o número de convidados do quarto formando   ")
  leia(ncf4)
  escreva(" Digite o nome do quinto formando                   ")
  leia(f5)
  escreva(" Digite o número de convidados do quinto formando   ")
  leia(ncf5)
  escreva(" Digite o preço de um garçom                        ")
  leia(pg)
  escreva(" Digite o preço de um segurança                     ")
  leia(ps)
  escreva(" Digite o preço das bebidas                         ")
  leia(pb)
  tc <- (ncf1+ncf2+ncf3+ncf4+ncf5)
  se tc>800 entao
  escreva("O salão não suporta o número de pessoas.")
  fimalgoritmo
  senao
  tg  <- (tc div 48)+1
  ts  <- (tc div 80)+1
  tm  <- ((tc+5) div 4)
  mf1 <- ncf1 / 4
  mf2 <- ncf2 / 4
  mf3 <- ncf3 / 4
  mf4 <- ncf4 / 4
  mf5 <- ncf5 / 4
  custotal < pb+((tg*pg)+(ts*ps))
  ppc <- custotal/tc
  fimse
  escreval("Para o(s) convidado(s) de ",f1," existe(m) ",mf1," mesa(s).")
  escreval("Cada convidado de ",f1," pagará R$",ppc:5:2,".")
  escreval("Para o(s) convidado(s) de ",f2," existe(m) ",mf2," mesa(s).")

  escreval("Cada convidado de ",f2," pagará R$",ppc:5:2,".")
  escreval("Para o(s) convidado(s) de ",f3," existe(m) ",mf3," mesa(s).")
  escreval("Cada convidado de ",f3," pagará R$",ppc:5:2,".")
  escreval("Para o(s) convidado(s) de ",f4," existe(m) ",mf4," mesa(s).")

  escreval("Cada convidado de ",f4," pagará R$",ppc:5:2,".")
  escreval("Para o(s) convidado(s) de ",f5," existe(m) ",mf5," mesa(s).")

  escreval("Cada convidado de ",f5," pagará R$",ppc:5:2,".")
  escreval(" *** F I M *** ")
  Fimalgoritmo

Profº Piva - Algoritmos - Exercícios Capítulo 2.17) Faça um algoritmo que leia o dia do mês ( valor de 1 a 31), e o dia da semana correspondente (1 a 7). O algoritmo deve calcular e escrever o dia da semana (1 a 7) correspondente ao primeiro dia do mês.

algoritmo "Cálculo do primeiro dia de mês."
var
  semana:literal
  dm,ds:inteiro
inicio
  escreval("Saiba qual é o primeiro dia do mês.")
  escreva(" Digite o dia do mês de 1 a 31    -> ")
  leia(dm)
  escreva(" Digite o dia da semana de 1 a 7  -> ")
  leia(ds)
  se (dm>31) e (dm<1) e (ds>7) e (ds<1) entao
  escreva("Número inválido")
  fimalgoritmo
  senao
  se dm>1 entao
  dm <- dm-1
  ds <- (ds-2)
  se (ds=0) entao
  ds <- (7)
         fimse
       fimse
     fimse
    se ds=1 entao
    semana <- "é um Domingo."
    senao
      se ds=2 entao
      semana <- "é uma Segunda-feira."
      senao
        se ds=3 entao
        semana <- "é uma Terça-feira."
        senao
          se ds=4 entao
          semana <- "é uma Quarta-feira."
          senao
            se ds=5 entao
            semana <- "é uma Quinta-feira."
            senao
              se ds=6 entao
              semana <- "é uma Sexta-feira."
              senao
                se ds=7 entao
                semana <- "é Sabado."
                fimse
              fimse
            fimse
          fimse
        fimse
      fimse
    fimse
   escreval(" O dia da semana ",semana)
  Fimalgoritmo

Profº Piva - Algoritmos - Exercícios Capítulo 2.20) Escreva um algoritmo que leia o nome, o valor da hora e o número de horas trabalhadas por um empregado. O algoritmo deve escrever o nome e o salário liquido do empregado calculado conforme as seguintes regras: 1. o salário bruto mensal é o produto das horas trabalhadas pelo valor das horas. 2. sobre o salário bruto mensal é aplicado um desconto de 9% referente ao INSS e 8% de FGTS; e 3. o salário liquido é o salário bruto mensal menos os encargos.

algoritmo "Cálculo do salário"
var

  nome:literal

  vh,nh,sb,sl:real
inicio
  escreval("Cálculo do salário de um empregado.")

  escreval(" Digite o nome do empregado               -> ")
  leia(nome)
  escreval(" Digite quanto ele recebe por hora        -> ")
  leia(vh)
  escreval(" Digite a quantidade de horas trabalhadas -> ")

  leia(nh)
  sb <- (vh*nh)
  sl <- sb-(sb*0.08)-(sb*0.09)
  escreval(" O salário do empregado ",nome," é de R$",sl:5:2," .")
  escreval(" *** F I M ***")
  Fimalgoritmo

Profº Piva - Algoritmos - Exercícios Capítulo 2.19) O custo final de um carro é a soma do custo de fábrica com o percentual de revenda mais impostos, ambos aplicados ao custo de fábrica. Escreva um algoritmo que leia o nome do modelo de um carro, seu custo de fábrica e os percentuais de revenda e de impostos e escreva o custo ao consumidor do carro.

algoritmo "Cálculo de custo de um automóvel"

var

  modelo:literal

  custofab,prevenda,impostos,custoInicial,custoFinal:real

inicio

  escreval("Cálculo do custo de um automóvel.")

  escreval(" Digite o nome do modelo do carro ")

  leia (modelo)

  escreval(" Digite o custo de fábrica")

  leia (custofab)

  escreval(" Digite os percentuais de revenda ")

  leia (prevenda)

  escreval(" Digite o valor dos impostos      ")

  leia (impostos)

  custoInicial <- (custofab+ (custofab*prevenda))

  custoFinal <- (custoInicial+impostos)

  escreval(" O custo do automóvel modelo ",modelo,", é de R$",custoFinal:5:2)

  escreval ("****FIM****")

fimalgoritmo

Profº Piva - Algoritmos - Exercícios Capítulo 2.16) Escreva um algoritmo que leia um valor composto apenas de 0’s e 1’s representando um número na base binária (com até 6 dígitos ou bits). O algoritmo deve escrever esse mesmo número na base decimal. A conversão de binário para decimal é feita somando –se os produtos de cada digito do número binário, por seu peso, sendo que o digito mais à direita tem peso 1 (2°), o seguinte tem peso 2 (2¹), 4 (2²), 8 (2³), etc. Por exemplo 110101 é 53 . (1x32 + 1x 16 + 0x8 + 1x4 + 0x 2 + 1x1 = 32 + 16 + 0 + 4 + 0 + 1 = 53)

algoritmo "Cálculo de conversão binária para decimal"

var

  b1,b2,b3,b4,b5,b6,decimal:real

inicio

  escreval("Cálculo de conversão binária para decimal")

  escreval("Digite os binários(0 ou 1) de um a um da esquerda para a direita.")

  escreva("Digite o 1º bit ")

  leia (b1)

  escreva("Digite o 2º bit ")

  leia (b2)

  escreva("Digite o 3º bit ")

  leia (b3)

  escreva("Digite o 4º bit ")

  leia (b4)

  escreva("Digite o 5º bit ")

  leia (b5)

  escreva("Digite o 6º bit ")

  leia (b6)

  decimal <- (b6*1)+(b5*2)+(b4*4)+(b3*8)+(b2*16)+(b1*32)

  escreval("Os números ",b1,b2,b3,b4,b5,b6," na base binária,")

  escreval("Equivalem a ",decimal," na base decimal.")

  escreval ("****FIM****")

fimalgoritmo

Profº Piva - Algoritmos - Exercícios Capítulo 2.15) Escreva um algoritmo que leia o valor do raio e calcule a área do circulo correspondente.

algoritmo "Calculo area circulo"

var

  r, area:real

inicio

  escreval ("Calculo para descobrir a area do circulo")

  escreval ("Digite o valor do raio do circulo")

  leia (r)

  area <- 3.14*r^2

  escreval ("A area desse circulo é igual a ",area,".")

  escreval ("****FIM****")

fimalgoritmo

Profº Piva - Algoritmos - Exercícios Capítulo 2.14) Escreva um algoritmo que calcule a quantidade de latas de tinta necessárias e o custo para pintar tanques cilíndricos de combustível, onde são fornecidos (o algoritmo lê) a altura (h ) e o raio ) e o raio ( r ) desse cilindro. Sabe-se que a lata de tinta anticorrosiva custa R$ 40.00, cada lata contem 5 litros e cada litro pinta 3 metros quadrados na média. Para que fique bem coberto de tinta, há necessidade de 2 demãos.

algoritmo "Cálculo da quantidade de lata de tinta necessária"

var

  h,r,areat,qt,lata,qtdet,pt:real

inicio

  escreval("Cálculo da quantia necessária de tinta para pintar tanques cilíndricos")

  escreva("Digite quanto tanque sera pintado")

  leia(qt)

  escreva("Digite a altura correspondente do tanque em metros ")

  leia(h)

  escreva("Digite o raio correspondente do tanque em metros   ")

  leia(r)

  areat <- (2*3.14*r*h) + (2*3.14*r^2)

  escreval("A área correspondente a um tanque é ",areat," metros.")

  lata <- (areat*qt)*2/15

  pt   <- lata*40

  escreval("Será necessário ",lata:5:2," lata(s) de tinta, para pintar os tanques.")

  escreval("O preço total da tinta é de R$",pt:5:2,".")

  escreval("*** F I M ***")

fimalgoritmo

Profº Piva - Algoritmos - Exercícios Capítulo 2.13) Escreva um algoritmo que calcule e escreva o valor de um termo an qualquer de uma progressão geométrica dada por:

an = a1 x q (2.5)


onde a1, é o primeiro termo da série, an, é o enésimo termo, q é a razão e n é o numero de termos.
Os valores de a1, q e n serão fornecidos pelo usuário.

Resposta:

algoritmo "Calculo da progressão geometrica"

var

  a1,q,n,an:real

inicio

  escreval("Calculo da progressão geometrica")

  escreva("Digite o valor de a1 ")

  leia(a1)

  escreva("Digite o valor de q  ")

  leia(q)

  escreva("Digite o valor de n  ")

  leia(n)

  an <- a1*(q^(n-1))

  escreval("O valor de an é igual a ",an)

  escreval("*** F I M ***")

fimalgoritmo

Profº Piva - Algoritmos - Capitulo 2.12) Escreva um algoritmo que calcule e escreva a soma Sn dos n primeiros termos de uma progressão aritmética dada pela formula:

Os valores de a1, an e r (a razão da progressão) serão fornecidas pelo usuário.

Resposta:

algoritmo "Cálculo da progressão aritmétrica"

var

  a1,an,r,sn,n:real

inicio

  escreval("Calculo da progressão aritmétrica")

  escreva("Digite o valor de a1 ")

  leia (a1)

  escreva("Digite o valor de an ")

  leia (an)

  escreva("Digite o valor de r  ")

  leia (r)

  n  <-((an-a1)/r)+1

  sn <-((a1+an)/2)*n

  escreval("A soma Sn dos n primeiros termos da progressão aritmétrica é      igual a ",Sn,".")

  escreval("*** F I M ***")

fimalgoritmo

Profº Piva - Algoritmos - Exercícios Capítulo 2.11) Em uma pizzaria, cada tulipa de chope custa R$ 2,80 e, uma pizza mista grande custa R$ 20.00 mais R$ 1.50 por tipo de cobertura pedida (queijo, presunto, banana, etc.). Uma turma vai à pizzaria e pede uma determinada quantidade de chopes e pizzas grandes com uma determinada quantidade de coberturas. Escreva um algoritmo que calcula a conta e, sabendo quantas pessoas estão à mesa,

algoritmo "Calculo Conta"

var

  tul,pizzagde,cobt,qtdepessoas,txgarcom,vlrpessoa,vlrped,vlrtt:real

inicio

  escreval ("Digite a quantidade de tulipa consumidas")

  leia (tul)

  escreval ("Digite a quantidade de pizzas consumidas")

  leia (pizzagde)

  escreval ("Digite a quantidade de coberturas consumidas")

  leia (cobt)

  escreval ("Digite a quantidade de pessoas na mesa")

  leia (qtdepessoas)

  vlrped <- (tul*2.80)+(pizzagde*20)+(cobt*1.5)

  txgarcom <- vlrped*0.1

  vlrtt <- vlrped+txgarcom

  vlrpessoa <- (vlrtt/qtdepessoas)

  escreval ("O valor total da conta com os 10% do garcom eh igual a", vlrtt)

  escreval ("O valor a ser pago por pessoa eh igual a R$:", vlrpessoa:5:2, " para cada")

fimalgoritmo