Algoritmo "Calculo_Valor_Entrega"
Var
// Entrada de dados
distancia_km : real
peso_kg : real
// Processamento e taxas
taxa_por_km : real
custo_distancia : real
adicional_peso : real
valor_total_frete : real
Inicio
Escreval("--- SISTEMA DE LOGÍSTICA: CÁLCULO DE FRETE ---")
// Configuração da taxa fixa de deslocamento
taxa_por_km <- 1.80 // R$ 1,80 cobrado por cada quilômetro
// 1. Entrada de Dados
Escreva("Digite a distância da entrega em Quilômetros (km): ")
Leia(distancia_km)
Escreva("Digite o peso do pacote em Quilos (kg): ")
Leia(peso_kg)
// 2. Processamento: Cálculo da Distância
custo_distancia <- distancia_km * taxa_por_km
// 3. Regra de Negócio: Faixas de Peso (Condicional Encadeada)
Se (peso_kg <= 5.0) Entao
adicional_peso <- 0.00 // Pacotes leves não pagam extra
Senao Se (peso_kg > 5.0) E (peso_kg <= 20.0) Entao
adicional_peso <- 15.00 // Taxa fixa para peso médio
Senao
adicional_peso <- 40.00 // Taxa fixa para pacotes pesados
FimSe
// 4. Cálculo do Valor Final
valor_total_frete <- custo_distancia + adicional_peso
// 5. Saída de Dados (Extrato)
Escreval("")
Escreval("--- RESUMO DO FRETE ---")
Escreval("Custo por distância (", distancia_km, " km): R$ ", custo_distancia)
Escreval("Adicional por peso (", peso_kg, " kg): R$ ", adicional_peso)
Escreval("------------------------------------")
Escreval("VALOR TOTAL DA ENTREGA: R$ ", valor_total_frete)
Fimalgoritmo