• Lenguaje

    Pascal

  • Descripción

    En el concesionario Autosuperior se requiere un aplicativo que permita calcular y mostrar la comisión del vendedor, el valor de los impuestos legales y el precio de venta de un vehículo. Para la empresa el precio de venta de un vehículo nuevo es igual a la suma de su costo real, el valor de los impuestos legales (19% del costo real) y la comisión del vendedor. La comisión del vendedor es un porcentaje del costo real, así: 5% si el costo real del vehículo es inferior a $25,000,000. En caso contrario, el porcentaje es 8.5%.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
program ConcesionarioAutosuperior;
uses crt;

var comision_del_vendedor, costo_real, impuestos_legales, precio_de_venta : real;
begin
    write ('Ingresa el valor de costo real: ');
    readln (costo_real);
    impuestos_legales := costo_real*0.19;
    if costo_real<25000000 then
        begin
            comision_del_vendedor := costo_real*0.05;
        end
    else
        begin
            comision_del_vendedor := costo_real*0.085;
        end;
    precio_de_venta := costo_real+impuestos_legales+comision_del_vendedor;
    writeln ('Valor de comision del vendedor: ', comision_del_vendedor:0:6);
    writeln ('Valor de impuestos legales: ', impuestos_legales:0:6);
    writeln ('Valor de precio de venta: ', precio_de_venta:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.