CAPITULO 3

CAPITULO 3

1ºExercício 1

Construa um algoritmo que calcule a média ponderada entre 5 números quaisquer, sendo que os pesos a serem aplicados são 1, 2, 3, 4 e 5 respectivamente.

algoritmo "mediaponderada"

var

num1,num2,num3,num4,num5,media,totalpeso: real

inicio

escreval("Numero 1")

leia(num1)

escreval("Numero 2")

leia(num2)

escreval("Numero 3")

leia(num3)

escreval("Numero 4")

leia(num4)

escreval("Numero 5")

leia(num5)

totalpeso<-1+2+3+4+5

media<-((num1*1)+(num2*2)+(num3*3)+(num3*4)+(num3*5))

escreval(media)

Fimalgoritmo

2ºExercício 4

Ao completar o tanque de combustível de um automóvel, faça um algoritmo que calcule o consumo efetuado, assim como a autonomia restante considere que o veiculo sempre seja abastecido até encher o tanque, e que são fornecidos apenas capacidade do tanque, a quantidade de litros abastecidos e a quilometragem são fornecidos a partir do ultimo abastecimento.

Algoritmo “autonomia automóvel”

var

capacTanq: inteiro //quantos litros cabem no tanque.

litroAbast: inteiro //quant. de litros abastecidos.

kmpUltAbast:inteiro //km pecorrido desde o último abastecimento.

respCons,sobraTanq,autonFutura:real

inicio

//qual consumo efetuado?

//qual autonomia que ainda teria antes do abastecimento?

// Seção de Comandos

escreva ("Digite a capacidade do tanque em litros: ")

leia(capacTanq)

escreva ("Quantidades de litros abastecidos: ")

leia (litroAbast)

escreva ("Qual quilometragem desde o último abastecimento? ")

leia(kmpUltAbast)

respCons <- litroAbast/kmpUltAbast //consumo desde último abastecimento Lts

sobraTanq <- capacTanq - litroAbast//calcula o que sobrou no tanque.

autonFutura <- sobraTanq/respCons//calcula os kms que percorreria ainda com o restou do tanque.

escreval("Consumo efetuado é de: ",respCons," Lts/km")

escreval("Autonomia que ainda teria é de:",autonFutura, " km")

escreval (" ")

Escreval ("--------------Outras curiosidades-------------------") //Somente para título

escreval("Quantos litros sobraram no tanque?",sobraTanq," Litros")

escreval("Kilometragem por litro? ",kmpUltAbast/litroAbast:2:1," k/Lts")

fimalgoritmo

3ºExercício 6

Um dado comerciante maluco cobra 10% de acréscimo para cada prestação em atraso e depois dá um desconto de 10% sobre esse valor. Faça um algoritmo que solicite o valor da prestação em atraso e apresente a valor final a pagar, assim como o prejuízo do comerciante na operação.

// CONSIDEREMOS O SEQUINTE: VALOR REAL = VAL, VALOR COM JUROS = VCJ, VALOR COM DESCONTO = VCD, PREJUIZO = PREJ

Algoritmo “valor a pagar”

INICIO

VAR

REAL: VAL, VCJ, VCD, PREJ;

LEIA (VAL);

VCJ  VAL + VAL * 0.1;

VCD VCJ - VCJ * 0.1;

PREJ  VAL – VCD;

ESCREVAL ("VALOR COM JUROS: ",VCJ," R$");

ESCREVAL ("VALOR COM DESCONTO: ",VCD," R$");

ESCREVAL ("PREJUIZO DO COMERCIANTE: ",PREJ," R$");

FIM.

4ºExercício 7

Escreva um algoritmo que, a partir de um mês fornecido (numero de 1 a 12), apresente o nome dele ou mês invalido.

Algoritmo “mês”

INICIO

VAR

INTEIRO: MES;

LEIA (MES);

SE (MES > 0) E (MES < 13) ENTAO

SE (MES = 1 )ENTAO

ESCREVA ("JANEIRO");

FIMSE;

SE(MES = 2)ENTAO

ESCREVAL ("FEVEREIRO");

FIMSE;

SE(MES = 3)ENTAO

ESCREVAL ("MARÇO");

FIMSE;

SE(MES = 4)ENTAO

ESCREVAL ("ABRIL");

FIMSE;

SE(MES = 5)ENTAO

ESCREVAL ("MAIO");

FIMSE;

SE(MES = 6)ENTAO

ESCREVAL ("JUNHO");

FIMSE;

SE(MES