Exercício 1: algoritmo "Rendimento"

Respostas

Exercício 1

algoritmo "RENDIMENTO"

var

cont, somaj, somac, sc, sj : real

inicio

cont <-1

escreva("DIGITE O VALOR DO SALARIO DE CARLOS: R$ ")

leia(sc)

sj<- sc/3

escreval("SALÁRIO DE JOÃO É:R$", sj)

escreval// Pular linha

escreval("APLICAÇÃO DE JOÃO EM UM FUNDO DE RENDA FIXA: R$", sj ," RENDIMENTO DE 5% AO MÊS")

escreval// Pular linha

escreval("APLICAÇÃO DE CARLOS EM UMA POUPANÇA: R$",sc ," RENDIMENDO DE 2% AO MÊS")

escreval// Pular linha

Escreval("ABAIXO RENDIMENTO POR MÊS")

escreval // Pular linha

enquanto (sj<sc) faca

sj<- sj+(sj*5)/100

sc<- sc+(sc*2)/100

escreval("JOÃO", cont,"º MÊS:R$", sj," - CARLOS", cont,"º MÊS:R$", sc)

cont<- cont+1

fimenquanto

ESCREVAL

SE (SJ>SC) ENTAO

ESCREVAL("* * * NO", cont -1,"º MÊS A RENDA DE JOÃO ULTRAPASSOU A DE CARLOS * * *")

FIMSE

SE (SJ=SC) ENTAO

ESCREVA(" * * * NO", CONT -1,"º MÊS A RENDA DE JOÃO SE IGUALOU A DE CARLOS * * * ")

FIMSE

ESCREVAL// PULAR LINHA

ESCREVAL("RENDA DE JOÃO: R$ ",sj)

ESCREVA("RENDA DE CARLOS: R$ ",SC)

ESCREVAL // PULAR LINHA

Fimalgoritmo

Exercício 2

algoritmo "soma_numeros"

var

n, cont, s1, s2, num : inteiro

inicio

escreva(" Informe a Quantidade de numeros na Sequencia: ")

leia(n)

s1<- 0

s2<- 0

para cont de 1 ate n passo 1 faca

escreva(" Digite", cont, "º numero da sequencia: ")

leia(num)

se (num >=0) entao

s1<- s1+num

senao

s2<- s2+num

fimse

fimpara

escreval//pular linha

escreval(" A Soma dos Numeros positivos desta sequencia =" ,s1)

escreval(" A Soma dos Numeros negativos desta sequencia =" ,s2)

fimalgoritmo