[Resolvido] Algoritimo

[bruno ciasqui 0]

Boa tarde, galera

 

Estou com problema em um algoritimo que estou desenvolvendo, deu problema na linha 29, vou descreve-lo abaixo.

 

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.

 

 

 

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

 

meses2:real//quantidade de meses

mes : real // contagem de meses: "1º,2º,3ºmes....."

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

r1, r2: real//salário final(com o juro já imbutido)

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 <- sfun1

r2 <- sfun2

mes <- 0

 

enquanto r2 < r1 faca

r1 <- r1 + rendafun1

r2 <- r2 + rendafun2

MES <- MES + 1

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

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

fimenquanto

 

meses2 <- (r2 - sfun2)/rendafun2

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

escreval (" SR ",fun1)

 

fimalgoritmo

 

 

 

 

Quem puder me ajudar agradeço.

[Seijuurou 0]

Tipo sou super novo agora aqui no forum de programação, comecei ler ontém um livro sobre algoritmos que um colega que faz Ciencia da Computação comprou e to fazendo sozinho uns exercícios, por isso posso falar uma tremenda asneira, mas acho que faltou você especificar oq o j é. Edit: Ah mas você disse na linha 29 né, acho que pra mim nessa linha específica ta tudo ok.

 

Eu tentei isso aqui pode ser muito fail mas é uma tentativa.

 

algoritmo "semnome"

// Função :

// Autor :

// Data : 13/10/2012

// 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: "1º,2º,3ºmes....."

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

r1, r2: real//salário final(com o juro já imbutido)

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 ",fun1)

 

fimalgoritmo

[bruno ciasqui 0]

Entao cara, o problema era em um comando que inseri, não precisava dele, segue abaixo.

 

//escreval(fun2," ",MES,"º mês ",r2)

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

 

Vlw!