-
Lenguaje
Pascal
-
Descripción
En México el impuesto que se debe pagar por los artículos se calcula mediante la siguiente regla: Los primeros $20 no causan impuesto, los siguientes $20 tienen el 30% de impuesto, y el resto el 40% de impuesto, pero si el costo del producto es mayor a $500, entonces en lugar del 40% se cobra el 50%. Diseñe un diagrama de flujo que lea el costo básico de un artículo y calcule su precio total (precio total= precio básico+ impuesto).
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
program ImpuestoDeUnArticuloEnMexico;
uses crt;
var costo_basico, impuesto, precio_total : real;
begin
write ('Ingresa el valor de costo basico: ');
readln (costo_basico);
impuesto := 0;
if (costo_basico>=20) and (costo_basico<40) then
begin
impuesto := costo_basico*0.3;
end;
if (costo_basico>=40) and (costo_basico<=500) then
begin
impuesto := costo_basico*0.4;
end;
if costo_basico>500 then
begin
impuesto := costo_basico*0.5;
end;
precio_total := costo_basico+impuesto;
writeln ('Valor de impuesto: ', impuesto:0:6);
writeln ('Valor de precio total: ', precio_total:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var costo_basico, impuesto, precio_total : real;
begin
write ('Ingresa el valor de costo basico: ');
readln (costo_basico);
impuesto := 0;
if (costo_basico>=20) and (costo_basico<40) then
begin
impuesto := costo_basico*0.3;
end;
if (costo_basico>=40) and (costo_basico<=500) then
begin
impuesto := costo_basico*0.4;
end;
if costo_basico>500 then
begin
impuesto := costo_basico*0.5;
end;
precio_total := costo_basico+impuesto;
writeln ('Valor de impuesto: ', impuesto:0:6);
writeln ('Valor de precio total: ', precio_total:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.