ATPS: Exercícios na criação de Algoritmos

EXERCICIO 33.

var

valor1, valor2: real

inicio

escreva("Digite o valor do produto:")

leia(valor1)

se (valor1 >= 20.00) entao

valor2 <- (valor1 * 0.45 + valor1)

fimse

se (valor1 < 20.00) entao

valor2 <- (valor1 * 0.3 + valor1)

fimse

escreval("O valor do produto vendido com lucro é:", valor2)

fimalgoritmo

var

valor1, valor2: real

inicio

escreva("Digite o valor do produto:")

leia(valor1)

se (valor1 >= 20.00) entao

valor2 <- (valor1 * 0.45 + valor1)

fimse

se (valor1 < 20.00) entao

valor2 <- (valor1 * 0.3 + valor1)

fimse

escreval("O valor do produto vendido com lucro é:", valor2)

fimalgoritmo

var

a, b, c, d: inteiro

r, x1, x2: real

inicio

escreval ("Digite o valor para o coeficiente a:")

leia(a)

escreval ("Digite o valor para o coeficente b:")

leia(b)

escreval ("Digite o valor para o coeficiente c:")

leia (c)

se (a = 0) entao

escreval ("Não é equação do segundo grau.")

fimse

d <- (b * b - 4 * a * c)

se (d < 0) entao

escreval ("Não há raízes reais.")

fimse

se (d >= 0) entao

r <- (raizq(d))

x1 <- ((-b + r)/ 2 * a)

x2 <- ((-b - r)/ 2 * a)

escreval ("As raízes são:",x1,"e",x2)

fimse

fimalgoritmo

EXERCICIO 34.

var

mes: inteiro

inicio

escreva("Digite um número:")

leia(mes)

se (mes = 1) entao

escreval("O mês relativo ao número digitado é Janeiro.")

fimse

se (mes = 2) entao

escreval("O mês relativo ao número digitado é Fevereiro.")

fimse

se (mes = 3) entao

escreval("O mês relativo ao número digitado é Março.")

fimse

se (mes = 4) entao

escreval("O mês relativo ao número digitado é Abril.")

fimse

se (mes = 5) entao

escreval("O mês relativo ao número digitado é Maio.")

fimse

se (mes = 6) entao

escreval("O mês relativo ao número ditado é Junho.")

fimse

se (mes = 7) entao

escreval("O mês relativo ao número digitado é Julho.")

fimse

se (mes = 8) entao

escreval("O mês relativo ao número digitado é Agosto.")

fimse