Descuento en un automóvil en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

Se desea obtener el valor final de un automóvil sabiendo que el valor base es de $12.000.000 y los descuentos a aplicar son del 10% si la venta se produce antes de Junio de 2004 y del 15% si se produce con posterioridad.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

Proceso DescuentoEnUnAutomovil

    Escribir Sin Saltar "Ingresa el valor de ano de venta:";

    Leer ano_de_venta;

    Escribir Sin Saltar "Ingresa el valor de base:";

    Leer base;

    Escribir Sin Saltar "Ingresa el valor de mes de venta:";

    Leer mes_de_venta;

    costo_base <- 12000000;

    Si ano_de_venta<2004 O (ano_de_venta = 2004 Y mes_de_venta<6) Entonces

        descuento <- base*0.1;

    SiNo

        descuento <- base*0.15;

    FinSi

    costo_final <- costo_base-descuento;

    Escribir "Valor de costo base: ", costo_base;

    Escribir "Valor de costo final: ", costo_final;

    Escribir "Valor de descuento: ", descuento;

FinProceso