Algoritmo para calcular salário, combustível, gastos com compras

algoritmo "calculo de salário"

var

HT, VH, PD, SB, TD, SL: real

inicio

Escreval ("Digite as horas trabalhadas no mês: ")

leia (HT)

Escreval ("Digite o valor das horas trabalhadas: ")

leia (VH)

Escreval ("Qual o percentual de desconto salarial? ")

leia (PD)

SB <- HT * VH

ESCREVAL ("O valor do salário bruto foi de: ")

escreval (SB)

TD <- (PD/100)*SB

ESCREVAL ("O desconto do salário no mês foi de: ")

escreval (TD)

SL <- SB - TD

ESCREVAL ("O salário líquido mensal foi de: ")

escreval (SL)

escreval ("Estamos em crise!")

fimalgoritmo

algoritmo "combustivel"

var

vmedia, tempogasto, disperc, litros: real

inicio

Escreval ("Digite o tempo gasto em minutos na viagem: ")

leia (tempogasto)

Escreval ("Digitea velocidade média em Km/h do móvel durante o percurso: ")

leia (vmedia)

Escreval ("A distância percorrida pelo móvel duante a viagem foi de: ")

disperc <- tempogasto * vmedia

Escreval (disperc)

Escreval ("A quantidade de litros de combustível gastos na viagem foi de: ")

litros <- disperc/12

escreval (litros)

escreval ("Boa viagem!")

fimalgoritmo

algoritmo "Compra de Artigos"

var

art1, art2, art3, art4: caracter

valor1, valor2, valor3, valor4: real

perdesc1, perdesc2, perdesc3, perdesc4: real

desc1, desc2, desc3, desc4, total: real

inicio

Escreval ("Insira o primeiro artigo comprado: ")

leia (art1)

Escreval ("Qual o valor de custo? ")

leia (valor1)

Escreval ("Quantos % de desconto tem o produto? ")

leia (perdesc1)

desc1 <- valor1 - ((valor1/100) * perdesc1))

Escreval ("O primeiro artigo: