-
Lenguaje
Pascal
-
Descripción
El administrador del restaurante "Fredy's Tucán" desea saber cuánto dinero obtuvo en el día por las ventas realizadas, igualmente quiere saber el valor total de los descuentos realizados. El restaurante hizo N ventas en el día y tiene la siguiente política de descuento:
- Si la venta es menor a $200, no hay descuento.
- Si está entre $200 y $300, el descuento es del 10%.
- Si la venta es superior a $300, el descuento es del 15%.
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
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
program DescuentosEnUnRestaurante;
uses crt;
var i, n : integer;
var descuento, descuentos_realizados, dinero_obtenido, total, venta : real;
begin
descuentos_realizados := 0;
dinero_obtenido := 0;
write ('Ingresa el valor de n: ');
readln (n);
for i:=1 to n do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de venta: ');
readln (venta);
descuento := 0;
if (venta>=200) and (venta<=300) then
begin
descuento := venta*0.1;
end;
if venta>300 then
begin
descuento := venta*0.15;
end;
total := venta-descuento;
dinero_obtenido := dinero_obtenido+total;
descuentos_realizados := descuentos_realizados+descuento;
writeln ('Valor de descuento: ', descuento:0:6);
writeln ('Valor de total: ', total:0:6);
writeln;
end;
writeln ('Valor de descuentos realizados: ', descuentos_realizados:0:6);
writeln ('Valor de dinero obtenido: ', dinero_obtenido:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var i, n : integer;
var descuento, descuentos_realizados, dinero_obtenido, total, venta : real;
begin
descuentos_realizados := 0;
dinero_obtenido := 0;
write ('Ingresa el valor de n: ');
readln (n);
for i:=1 to n do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de venta: ');
readln (venta);
descuento := 0;
if (venta>=200) and (venta<=300) then
begin
descuento := venta*0.1;
end;
if venta>300 then
begin
descuento := venta*0.15;
end;
total := venta-descuento;
dinero_obtenido := dinero_obtenido+total;
descuentos_realizados := descuentos_realizados+descuento;
writeln ('Valor de descuento: ', descuento:0:6);
writeln ('Valor de total: ', total:0:6);
writeln;
end;
writeln ('Valor de descuentos realizados: ', descuentos_realizados:0:6);
writeln ('Valor de dinero obtenido: ', dinero_obtenido:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.