Cap 3 exercicio 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 ("Informe a nota da 1º prova")
leia (n1)
Escreval ("Informe a nota da 2º prova")
leia (n2)
n3<-18- (n1+n2)
escreval (" A nota mínima da prova trÊs para que o aluno seja aprovado eh", n3)

fimalgoritmo

Cap3 exercicio 17

Cap 3 exercicio 15

cap 3 exercicio 14

Cap 3 exercicio 11

Escreva um algoritmo que leia um dia, mês e ano e escreva, para essa data lida, o número de dias transcorridos no ano.

algoritmo "dias corridos"

var
dia,mes,ano,dc,dc2:inteiro

inicio
escreval("Número de dias corridos no ano.")
escreva("Digite o dia = ")
leia(dia)
escreva("Digite o mês = ")
leia(mes)
escreva("Digite o ano = ")
leia(ano)
se ((ano mod 4)=0) e ((ano mod 100)<>0) entao
ano <- 366 senao ano <- 365 fimse se (mes = 12) entao dc <- (ano-31) dc <- (dc+dia) senao ano <- ano-31 fimse se (mes = 11) entao dc <-(ano-30) dc <- (dc+dia) senao ano <- (ano-30) fimse se (mes = 10) entao dc <- (ano-31) dc <- (dc+dia) senao ano <- (ano-31) fimse se (mes = 9) entao dc <- (ano-30) dc <- (dc+dia) senao ano <- (ano-30) fimse se (mes = 8) entao dc <- (ano-31) dc <- (dc+dia) senao ano <- (ano-31) fimse se (mes = 7) entao dc <- (ano-30) dc <- (dc+dia) senao ano <- (ano-30) fimse se (mes = 6) entao dc <- (ano-31) dc <- (dc+dia) senao ano <- (ano-31) fimse se (mes = 5) entao dc <- (ano-30) dc <- (dc+dia) senao ano <- (ano-30) fimse se (mes = 4) entao dc <- (ano-31) dc <- (dc+dia) senao ano <- (ano-31) fimse se (mes = 3) entao dc <- (ano-30) dc <- (dc+dia) senao ano <- (ano-30) fimse se mes = 2 entao se((ano mod 4)=0)e((ano mod 100)<>0) entao
dc <- (ano-29)
dc <- (dc+dia)
senao
dc <- (ano-28)
dc <- (dc+dia)
fimse
fimse
se mes = 1 entao
dc <- dia
fimse
escreval("Dias corridos é igual a ",dc,".")
escreval("*** F I M ***")
fimalgoritmo

cap 3 exercicio 9

Escreva um algoritmo que implemente uma calculadora de quatro operações. O algoritmo lê o primeiro operando, a operação (algum dos quatro símbolos: “x”, “-“, “
1º operando operação 2º operando = resultado.
Por exemplo, se os valores lidos foram 4, “*” e 5, o algoritmo deve escrever: 4*5 = 20.

Resposta:

algoritmo "Cálculo da calculadora"
var
oper:literal
oper1,oper2,calc1,calc2,calc3,calc4:numerico
inicio
escreval("Cálculo da calculadora")
escreva("Digite o primeiro operando = ")
leia(oper1)
escreva("Digite a operação (+,-,*,/) = ")
leia (oper)
escreva("DIgite o segundo operando = ")
leia(oper2)
se oper= ("+") entao
calc1 <- ((oper1)+(oper2))
escreva(oper1 , oper ,oper2," = ",calc1)
senao
se oper= ("-") entao
calc2 <- ((oper1)-(oper2))
escreva(oper1,oper,oper2," = ",calc2)
senao
se oper=("*") entao
calc3 <- ((oper1)*(oper2))
escreva(oper1,oper,oper2," = ",calc3)
senao
se oper=("/") entao
calc4 <- ((oper1)/(oper2))
escreva(oper1,oper,oper2," = ",calc4)
senao
escreva("Operação não correspondente, tente + , - , * ou / ")
fimse
fimse
fimse
fimse
fimalgoritmo

cap 3 exercicio 7

algoritmo "valor da compra por cliente"
var
c1,c2,c3,c4,c5:literal
 vc1, vc2, vc3, vc4, vc5, valortotal, valormedio, valorminimo:real
inicio
  escreval ("Informe o nome do cliente 1")
  leia (c1)
  Escreval ("Informe o valor gasto pelo cliente 1")
  leia (vc1)
  escreval ("Informe o nome do cliente 2")
  leia (c2)
  escreval ("Informe o valor gasto pelo cliente 2")
  leia (vc2)
  escreval ("Informe o nome do cliente 3")
  leia (c3)
  Escreval ("Informe o valor gasto pelo cliente 3")
  leia (vc3)
  escreval ("Informe o nome do cliente 4")
  leia (c4)
  Escreval ("Informe o valor gasto pelo cliente 4")
  leia (vc4)
  escreval ("Informe o nome do cliente 5")
  leia (c5)
  Escreval ("Informe o valor gasto pelo cliente 5")
  leia (vc5)
  valortotal <-(vc1+vc2+vc3+vc4+vc5)
  valormedio <- (valortotal/5)
  escreva ("O valor total gasto pelos 5 clientes foi", valortotal,:5:2)
  escreva ("O valor médio gasto pelo cliente foi",valormedio, 5:2)
    se (vc1>20)entao
    escreva (c1)
    fimse
       se (vc2>20)entao
       escreva (c2)
       fimse
         se (vc3 >20)entao
         escreva (c3)
         fimse
           se (vc4>20)entao
           escreva (c4)
           fimse
             se (vc5>20) entao
             escreva (c5)
             fimse
fimalgoritmo