-
Lenguaje
Pascal
-
Descripción
En una tienda, se desea conocer la cantidad de productos vendidos, así como el total de ventas en el día. Para ello el programa a través de un menú indicará la opción para ingresar la cantidad de productos, posteriormente consultará si desea ingresar más ventas, una vez terminadas las ventas, el programa mostrará cuantos productos se vendieron, el valor vendido por cada uno de ellos y el total de las ventas. Valor de los productos:
Producto | Costo
Producto 1 | 2000
Producto 2 | 6500
Producto 3 | 4000
Producto 4 | 3000
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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
program CantidadDeProductosVendidos;
uses crt;
var costo, numero_de_productos, producto, productos_vendidos, venta : integer;
var total_de_ventas, venta_por_producto_1, venta_por_producto_2, venta_por_producto_3, venta_por_producto_4 : real;
var tecla_repetir : char;
begin
productos_vendidos := 0;
total_de_ventas := 0;
venta_por_producto_1 := 0;
venta_por_producto_2 := 0;
venta_por_producto_3 := 0;
venta_por_producto_4 := 0;
repeat
clrscr;
write ('Ingresa el valor de numero de productos: ');
readln (numero_de_productos);
writeln ('Selecciona el valor de producto.');
writeln (' 1.- Producto 1');
writeln (' 2.- Producto 2');
writeln (' 3.- Producto 3');
writeln (' 4.- Producto 4');
write (' : ');
repeat
readln (producto);
if (producto<1) or (producto>4) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (producto>=1) and (producto<=4);
costo := 0;
if producto=1 then
begin
costo := 2000;
end;
if producto=2 then
begin
costo := 6500;
end;
if producto=5 then
begin
costo := 4000;
end;
if producto=4 then
begin
costo := 3000;
end;
productos_vendidos := productos_vendidos+numero_de_productos;
venta := costo*productos_vendidos;
total_de_ventas := total_de_ventas+venta;
if producto=1 then
begin
venta_por_producto_1 := venta_por_producto_1+venta;
end;
if producto=2 then
begin
venta_por_producto_2 := venta_por_producto_2+venta;
end;
if producto=5 then
begin
venta_por_producto_3 := venta_por_producto_3+venta;
end;
if producto=4 then
begin
venta_por_producto_4 := venta_por_producto_4+venta;
end;
writeln ('Valor de costo: ', costo);
writeln ('Valor de venta: ', venta);
writeln;
write (#168'Deseas repetir el proceso? (S/N): ');
repeat
tecla_repetir := readkey;
until (tecla_repetir = 's') or (tecla_repetir = 'n') or (tecla_repetir = 'S') or (tecla_repetir = 'N');
until (tecla_repetir <> 's') and (tecla_repetir <> 'S');
writeln ('Valor de productos vendidos: ', productos_vendidos);
writeln ('Valor de total de ventas: ', total_de_ventas:0:6);
writeln ('Valor de venta por producto 1: ', venta_por_producto_1:0:6);
writeln ('Valor de venta por producto 2: ', venta_por_producto_2:0:6);
writeln ('Valor de venta por producto 3: ', venta_por_producto_3:0:6);
writeln ('Valor de venta por producto 4: ', venta_por_producto_4:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var costo, numero_de_productos, producto, productos_vendidos, venta : integer;
var total_de_ventas, venta_por_producto_1, venta_por_producto_2, venta_por_producto_3, venta_por_producto_4 : real;
var tecla_repetir : char;
begin
productos_vendidos := 0;
total_de_ventas := 0;
venta_por_producto_1 := 0;
venta_por_producto_2 := 0;
venta_por_producto_3 := 0;
venta_por_producto_4 := 0;
repeat
clrscr;
write ('Ingresa el valor de numero de productos: ');
readln (numero_de_productos);
writeln ('Selecciona el valor de producto.');
writeln (' 1.- Producto 1');
writeln (' 2.- Producto 2');
writeln (' 3.- Producto 3');
writeln (' 4.- Producto 4');
write (' : ');
repeat
readln (producto);
if (producto<1) or (producto>4) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (producto>=1) and (producto<=4);
costo := 0;
if producto=1 then
begin
costo := 2000;
end;
if producto=2 then
begin
costo := 6500;
end;
if producto=5 then
begin
costo := 4000;
end;
if producto=4 then
begin
costo := 3000;
end;
productos_vendidos := productos_vendidos+numero_de_productos;
venta := costo*productos_vendidos;
total_de_ventas := total_de_ventas+venta;
if producto=1 then
begin
venta_por_producto_1 := venta_por_producto_1+venta;
end;
if producto=2 then
begin
venta_por_producto_2 := venta_por_producto_2+venta;
end;
if producto=5 then
begin
venta_por_producto_3 := venta_por_producto_3+venta;
end;
if producto=4 then
begin
venta_por_producto_4 := venta_por_producto_4+venta;
end;
writeln ('Valor de costo: ', costo);
writeln ('Valor de venta: ', venta);
writeln;
write (#168'Deseas repetir el proceso? (S/N): ');
repeat
tecla_repetir := readkey;
until (tecla_repetir = 's') or (tecla_repetir = 'n') or (tecla_repetir = 'S') or (tecla_repetir = 'N');
until (tecla_repetir <> 's') and (tecla_repetir <> 'S');
writeln ('Valor de productos vendidos: ', productos_vendidos);
writeln ('Valor de total de ventas: ', total_de_ventas:0:6);
writeln ('Valor de venta por producto 1: ', venta_por_producto_1:0:6);
writeln ('Valor de venta por producto 2: ', venta_por_producto_2:0:6);
writeln ('Valor de venta por producto 3: ', venta_por_producto_3:0:6);
writeln ('Valor de venta por producto 4: ', venta_por_producto_4:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.