• Lenguaje

    Pascal

  • Descripción

    El precio de un automóvil nuevo para un comprador es la suma total de:
    El costo del vehículo, porcentaje de la ganancia del vendedor y de los impuestos aplicables. Suponer una ganancia al vendedor del 15% en todas las unidades y un impuesto del 6%.
    Diseñar un algoritmo donde se ingresen estos datos por el teclado y muestre por pantalla el costo, la ganancia, impuesto y el precio para el comprador.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program CostoGananciaEImpuestosDeUnAutomovil;
uses crt;

var costo_del_vehiculo, impuestos_aplicables, porcentaje_de_ganancia, precio : real;
begin
    write ('Ingresa el valor de costo del vehiculo: ');
    readln (costo_del_vehiculo);
    porcentaje_de_ganancia := costo_del_vehiculo*0.15;
    impuestos_aplicables := (costo_del_vehiculo+porcentaje_de_ganancia)*0.06;
    precio := costo_del_vehiculo+porcentaje_de_ganancia+impuestos_aplicables;
    writeln ('Valor de impuestos aplicables: ', impuestos_aplicables:0:6);
    writeln ('Valor de porcentaje de ganancia: ', porcentaje_de_ganancia:0:6);
    writeln ('Valor de precio: ', precio:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.