-
Lenguaje
Pascal
-
Descripción
El ministerio de agricultura ofrece descuentos al pago de impuestos, que realiza un agricultor sobre su producción de acuerdo a las toneladas producidas, como se muestra en el siguiente cuadro:
Toneladas producidas | descuento
1 a 18 | 8%
19 a 35 | 10%
36 a mas | 12%
Además, si el agricultor es de una zona rural recibe un descuento adicional del 3%. Elaborar un algoritmo que calcule el total de descuento y el monto total de impuestos a pagar.
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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
program DescuentosAlPagoDeImpuestosDeUnAgricultor;
uses crt;
var zona_de_agricultor : integer;
var descuento, impuestos, monto_total, toneladas_producidas : real;
begin
write ('Ingresa el valor de impuestos: ');
readln (impuestos);
write ('Ingresa el valor de toneladas producidas: ');
readln (toneladas_producidas);
writeln ('Selecciona el valor de zona de agricultor.');
writeln (' 1.- rural');
writeln (' 2.- urbana');
write (' : ');
repeat
readln (zona_de_agricultor);
if (zona_de_agricultor<1) or (zona_de_agricultor>2) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (zona_de_agricultor>=1) and (zona_de_agricultor<=2);
descuento := 0;
if (toneladas_producidas>=1) and (toneladas_producidas<19) then
begin
descuento := impuestos*0.08;
end;
if (toneladas_producidas>=19) and (toneladas_producidas<36) then
begin
descuento := impuestos*0.1;
end;
if toneladas_producidas>=36 then
begin
descuento := impuestos*0.12;
end;
if zona_de_agricultor=1 then
begin
descuento := descuento+impuestos*0.03;
end;
monto_total := impuestos-descuento;
writeln ('Valor de descuento: ', descuento:0:6);
writeln ('Valor de monto total: ', monto_total:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var zona_de_agricultor : integer;
var descuento, impuestos, monto_total, toneladas_producidas : real;
begin
write ('Ingresa el valor de impuestos: ');
readln (impuestos);
write ('Ingresa el valor de toneladas producidas: ');
readln (toneladas_producidas);
writeln ('Selecciona el valor de zona de agricultor.');
writeln (' 1.- rural');
writeln (' 2.- urbana');
write (' : ');
repeat
readln (zona_de_agricultor);
if (zona_de_agricultor<1) or (zona_de_agricultor>2) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (zona_de_agricultor>=1) and (zona_de_agricultor<=2);
descuento := 0;
if (toneladas_producidas>=1) and (toneladas_producidas<19) then
begin
descuento := impuestos*0.08;
end;
if (toneladas_producidas>=19) and (toneladas_producidas<36) then
begin
descuento := impuestos*0.1;
end;
if toneladas_producidas>=36 then
begin
descuento := impuestos*0.12;
end;
if zona_de_agricultor=1 then
begin
descuento := descuento+impuestos*0.03;
end;
monto_total := impuestos-descuento;
writeln ('Valor de descuento: ', descuento:0:6);
writeln ('Valor de monto total: ', monto_total:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.