LÓGICA DE PROGRAMAÇÃO E ALGORITMOS

1. Faça um algoritmo que receba o salário de um funcionário chamado Carlos. Sabe-se que o funcionário João tem um salário equivalente a um terço do salário de Carlos. Carlos aplicará seu salário integralmente na caderna de poupança, que está rendendo 2% ao mês e João aplicará seu salário integralmente no fundo de renda fixa, que está rendendo 5% ao mês. Calcule e mostre a quantidade de meses necessários para que o valor pertencente a João iguale ou ultrapasse o valor pertencente a Carlos.

algoritmo "Salario"

// Função: “Calculo de Juros”

// Autor : Thiago Vinicius da Silva

// Data : 20/10/2013

// Seção de Declarações

var

sfun1, sfun2: real //Sálários dos dois funcionários

rendafun1, rendafun2: real //renda mensal com juros

i:real//contador de porcentagem p/ fun1

i2: real//contador de porcentagem p/ fun2

j: real// juros

j2: real// juros 2

meses2:real//quantidade de meses

mes : real // contagem de meses:

fun1, fun2: caractere// nome dos dois funcionários

r1, r2: real //salário final

inicio

// Seção de Comandos

escreval("A seguir temos a demonstração de dois valores aplicados em diferentes")

escreval(" taxas de juro o objetivo é saber com quantos meses o menor salário ")

escreval("irá ultrapassar o maior salário, já que o juro do menor salário será mais alto ")

escreval("que o juro do maior salário:")

escreval("")

escreval("Nome do funcionário de maior salário")

leia (fun1)

escreval("Digite o salário de " ,fun1)

leia(sfun1)

escreval("o juro que correrá o Dinheiro de ",fun1)

leia (j)

ESCREVAL ("Nome do funcionário de menor salário")

leia(fun2)

repita

escreval ("Digite o salário de ",fun2 )

leia(sfun2)

se sfun2 >= sfun1 entao

escreval("Dado incorreto. O valor informado é maior que o salário de ", fun1)

fimse

ate sfun2 < sfun1

fimrepita

repita

escreval ("o juro que correrá o Dinheiro de ",fun2)

leia(j2)

se j2 <= j entao

escreval("O juro do menor salário deve ser maior que o juro do maior salário" )

fimse

ate j2 > j

fimrepita

i <- j/100

rendafun1 <- sfun1 * i

i2 <- j2/100

rendafun2 <- sfun2 * i2

r1 <- rendafun1

r2 <- rendafun2

mes <- 1

faca r2/r1 ate 1

MES <- MES + 1

escreva(fun2," ",MES,"º mês ",r2)

escreval (" ",fun1," ",mes,"º mês ",r1 )

meses2 <- (r2 - sfun2)/rendafun2

escreval(meses2," mes(es) para o salário do SR ",fun2," ultrapassar o salário do " )

escreval (" SR (a)",fun1)

fimalgoritmo

2. Dados um número inteiro positivo n e uma seqüência de n números inteiros. Faça um algoritmo que calcule a soma dos números negativos e a soma dos números positivos da seqüência.

v Algoritmo "NúmeroInteiro"

// Função: Somar números positivos e negativos

// Autor: Gustavo Amorim Venâncio

// Data: 20/10/2013

Var

n, a, b, c, x: inteiro.

Inicio

// Seção de Comandos

Escreval("Insira um número inteiro positivo: ")

Leia (n)

Escreval ("Insira o 1º número inteiro: ")

Leia (a)

Escreval ("Insira o 2º número inteiro: ")

Leia (b)

Escreval ("Insira o 3º número inteiro: ")

Leia (c)

x <- n + a + b + c

Escreval ("A soma total é de: ",x)

fimalgoritmo

3. Dados dois números inteiros positivos x e n, faça um algoritmo que calcule x n.