Exercício de elaboração de algoritmos

1. Faça um algoritmo que receba o salário de um funcionario chamado Carlor. Sabe-se que o funcionário João tem um sálario equivalente a um terço do salário de Carlos. Carlos aplicará seu salário integralmente na caderneta de poupança, que está rendendo 2¨% ao mês e Jã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ário para que o valor pertencente a João iguale ou ultrapasse o valor pertencente a Carlos.

Algoritmo

// Função :

// Autor : Sérgio Luiz Costa e Silva

// Data : 20/10/2013

// Seção de Declarações

var

sal_car, sal_jo, meses, rend_car, rend_jo, cont : real

inicio

// Seção de Comandos

escreval("Exercicio 01")

leia(sal_car)

sal_jo <- sal_car/3

rend_car <-sal_car/100*2

rend_jo <-sal_jo/100*5

meses <- 0

escreval("Salário de Jõao é",sal_jo)

enquanto rend_jo<rend_car faca

sal_jo <- sal_jo/*5

sal_car<-sal_car/*2

meses<-meses+1

fimenquanto

se (rend_jo>rend_car) entao

escreval("Para ultrapassar o valor pertencente à Jõao levou:",meses)

escreval("meses")

fimse

se (rend_jo=rend_car) entao

escreval("Para igualar o valor pertencente à Carlos Jõao levou:",meses)

escreval("meses")

fimse

fimalgoritmo

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

algoritmo "Exercicio 02"

// Função :

// Autor :Sérgio Luiz

// Data : 20/10/2013

// Seção de Declarações

var

n1: inteiro

n2 : inteiro

somanegativo: inteiro

somapositivo : inteiro

i: inteiro

inicio

// Seção de Comandos

escreval ("Digite quantos numeros terá a sequencia ")

leia (n1)

somanegativo <- 0

somapositivo <- 0

enquanto (i <= n1) faca

escreval ("Digite",i,"Numero da sequencia")

leia (n2)

se (n2>=0) entao

somapositivo <- somapositivo + n2

senao

somanegativo <- somanegativo + n2

fimse

i<- i+1

fimenquanto

escreval ("Resultado da soma de numeros positivos=",somapositivo)

escreval ("Resultado da soma de numeros negativos=",somanegativo)