-
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
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.
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.