Aps Calculo 2

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

var

x: inteiro

inicio

escreva ("Digite um numero inteiro: ")

leia (x)

se (x>0) entao

escreva ("Positivo")

senao (x<0) entao

escreva ("Negativo")

fimse

fimalgoritmo

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

var

a, b, c : inteiro

inicio

leia (a, b, c)

se (a>b) e (b>C) entao

escreva (a, b, c)

fimse

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

escreva (a, c, b)

fimse

fimalgoritmo

3. Um comerciante comprou um produto e quer vendê-lo com um 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.

var

x, v1, v2: real

inicio

escreva ("Digite o valor da compra: ")

leia (x)

se (x<20) entao

v1 <- x * 0,45 + x

escreva ("O valor com o lucro de 45% é= ", v1)

senao

v2 <- x * 0,3 + x

escreva ("O valor com o lucro de 30% é= ", v2)

fimse

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 RendaFixa 4%

var

tipoInvest: inteiro

valorI: real

rendimento: real

inicio

escreva ("Informe o tipo de investimento: ")

leia (tipoInvest)

escreva ("Informe o valor do investimento: ")

leia (valorI)

se (tipoInvest = 1) entao

rendimento<- valorI * 0.03

escreva ("Rendimento = ", rendimento)

senao

se (tipoInvest = 2) entao

rendimento<- valor * 0.04

escreva ("Rendimento = ", rendimento)

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.

var

a, b, c, deltax: real

inicio

escreva ("Entre com o valor da variavel A: ")

leia (a)

escreva ("Entre com o valor da variavel B: ")

leia (b)

escreva ("Entre com o valor da variavel C: ")

leia (c)

deltax <- b^2 - 4 * a * c

se (deltax>0) entao

escreva ("Existe raiz real")

senao

escreva ("Não existe raiz real")

fimse

fimalgoritmo

6. Faça um algoritmo que receba o salário de um funcionário, calcule e mostre o novo salário desse funcionário, acrescido de bonificação.

Salário Bonificação

Até R$500,00 5% do salário

Entre R$500,01 e R$1.200,00 12% do salário

Acima de R$1.200,00 Sem bonificação

var

s1, s, v, t, u: real

inicio

escreva ("Digite o valor do salario: ")

leia (s1)

se (s1<=500) entao

s <- s1 * 0,05

escreva ("O valor do salario, acrescido com a bonificação de 5% é= ", s)

senao

logico se(s1>500,01<1200) entao

t <- s1 * 0,12

escreva ("O valor do salario, acrescido com a bonificação de 12% é= ", v)

senao

se(s1>1200) entao

u <- s1

escreva ("O