ALGORITMO

1. Faça um algoritmo que leia um numero inteiro e mostre uma mensagem indicando se este número é positivo ou negativo.

algoritmo "PositivoNegativo"

var

x:inteiro

inicio

escreva ("Entre com um numero: ")

leia (x)

se (x > 0) entao

escreva ("Numero Positivo.")

senao

se (x < 0) entao

escreva ("Numero Negativo.")

senao

escreva ("Numero Zero.")

fimse

fimse

fimalgoritmo

2. Fazer um algoritmo para ler 3 números e mostrá-los em ordem decrescente.

algoritmo "ordemCrescente"

var

a, b, c: inteiro

inicio

escreva ("Digite 3 numeros: ")

leia (a, b, c)

se (a>=b) e (b>c) entao

escreva (a, b, c)

senao

se (a>=c) e (c>b) entao

escreva (a, c, b)

senao

se (b>=a) e (a>c) entao

escreva (b, a, c)

senao

se (b>=c) e (c>a) entao

escreva (b, c, a)

senao

se (c>=a) e (a>b) entao

escreva (c, a, b)

senao

se (c>=b) e (b>a) entao

escreva (c, b, a)

senao

se (a=b) e ( b = c)entao

escreva (a, b, c)

fimse

fimse

fimse

fimse

fimse

fimse

fimse

fimalgoritmo

3. Um comerciante comprou um produto e quer vendê-lo comum lucro de 45% se o valor da compra for menor que R$20,00; caso contrário, o lucro será de 30%. Desenvolver um algoritmo que possibilite entrar com o valor do produto e imprima o valor da venda.

algoritmo "ValorVenda"

var

valorCompra, valorVenda:real

inicio

escreva("Entre com o valor da compra: ")

leia (valorCompra)

se (valorCompra < 20.00) entao

valorVenda <- valorCompra * 1.45

senao

valorVenda <- valorcompra * 1.30

fimse

escreva ("Valor de Venda do produto: ", valorVenda)

fimalgoritmo

4. Uma agência bancária possui dois tipos de investimentos, conforme o quadro abaixo. Faça um algoritmo que receba o tipo do investimento e o valor do investimento, calcule e mostre o valor corrigido de acordo com o tipo de investimento escolhido.

Tipo Descrição Rendimento Mensal

1 Poupança 3%

2 Fundos de Renda Fixa 4%

algoritmo "TipoInvestimento"

var

tipoInvest: caracter

valorInvest: real

valorCorrigido:real

inicio

escreva ("Informe o valor a ser investido: ")

leia (valorInvest)

escreval ("Informe o tipo de investimento: ")

escreval ("1 - poupanca")

escreval ("2 - fundos de renda fixa")

leia (tipoInvest)

se (tipoInvest = "1")entao

valorCorrigido <- valorInvest +(valorInvest * 0.03)

escreva ("Valor Corrigido = ", valorCorrigido)

senao

se (tipoInvest = "2") entao

valorCorrigido <- valorInvest +(valorInvest * 0.04)

escreva ("Valor Corrigido = ", valorCorrigido)

senao

escreva ("Tipo de Investimento incorreto")

fimse

fimse

fimalgoritmo

5. Desenvolva um algoritmo que calcule as raízes de uma equação do 2º Grau, na forma Ax² + Bx + C, levando em consideração a existência de raízes reais.

algoritmo "Equacao2Grau"

var