• Lenguaje

    Pascal

  • Descripción

    La empresa "Corruexpress S.A. de C.V" desea implementar un programa sencillo que le permita llevar un control de sus productos, ventas diarias, etc. Los productos que venden son los siguientes:
    Producto Precio Unitario
    A) Caja para archivos $45.00
    B) Caja para mudanza $76.00
    C) Caja de doblado fácil $38.00
    - Cuando se venden de 1 a 25 piezas se conserva el precio unitario.
    - Cuando se venden de 26 a 50 piezas se hace un descuento (sobre el precio unitario) del 3%.
    - Cuando se venden 51 o más piezas se hace un descuento (sobre el precio unitario) del 5%.
    Construye una propuesta que permita a la Empresa Corruexpres saber las piezas vendidas y las ventas totales ($) por caja A, B y C.

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
program EmpresaCorruexpres;
uses crt;

var piezas_vendidas_caja_A, piezas_vendidas_caja_B, piezas_vendidas_caja_C : integer;
var cantidad_cajas_A, cantidad_cajas_B, cantidad_cajas_C, precio_caja_A, precio_caja_B : real;
var precio_caja_C, venta, ventas_totales_caja_A, ventas_totales_caja_B, ventas_totales_caja_C : real;
var tecla_repetir : char;
begin
    piezas_vendidas_caja_A := 0;
    piezas_vendidas_caja_B := 0;
    piezas_vendidas_caja_C := 0;
    ventas_totales_caja_A := 0;
    ventas_totales_caja_B := 0;
    ventas_totales_caja_C := 0;
    repeat
        clrscr;
        write ('Ingresa el valor de cantidad cajas A: ');
        readln (cantidad_cajas_A);
        write ('Ingresa el valor de cantidad cajas B: ');
        readln (cantidad_cajas_B);
        write ('Ingresa el valor de cantidad cajas C: ');
        readln (cantidad_cajas_C);
        precio_caja_A := 45;
        precio_caja_B := 76;
        precio_caja_C := 38;
        if (cantidad_cajas_A>=26) and (cantidad_cajas_A<51) then
            begin
                precio_caja_A := precio_caja_A*0.97;
            end;
        if cantidad_cajas_A>=51 then
            begin
                precio_caja_A := precio_caja_A*0.95;
            end;
        if (cantidad_cajas_B>=26) and (cantidad_cajas_B<51) then
            begin
                precio_caja_B := precio_caja_B*0.97;
            end;
        if cantidad_cajas_B>=51 then
            begin
                precio_caja_B := precio_caja_B*0.95;
            end;
        if (cantidad_cajas_C>=26) and (cantidad_cajas_C<51) then
            begin
                precio_caja_C := precio_caja_C*0.97;
            end;
        if cantidad_cajas_C>=51 then
            begin
                precio_caja_C := precio_caja_C*0.95;
            end;
        venta := precio_caja_A*cantidad_cajas_A+precio_caja_B*cantidad_cajas_B+precio_caja_C*cantidad_cajas_C;
        piezas_vendidas_caja_A := piezas_vendidas_caja_A+cantidad_cajas_A;
        piezas_vendidas_caja_B := piezas_vendidas_caja_B+cantidad_cajas_B;
        piezas_vendidas_caja_C := piezas_vendidas_caja_C+cantidad_cajas_C;
        ventas_totales_caja_A := ventas_totales_caja_A+precio_caja_A*cantidad_cajas_A;
        ventas_totales_caja_B := ventas_totales_caja_B+precio_caja_B*cantidad_cajas_B;
        ventas_totales_caja_C := ventas_totales_caja_C+precio_caja_C*cantidad_cajas_C;
        writeln ('Valor de precio caja A: ', precio_caja_A:0:6);
        writeln ('Valor de precio caja B: ', precio_caja_B:0:6);
        writeln ('Valor de precio caja C: ', precio_caja_C:0:6);
        writeln ('Valor de venta: ', venta:0:6);
        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 piezas vendidas caja A: ', piezas_vendidas_caja_A);
    writeln ('Valor de piezas vendidas caja B: ', piezas_vendidas_caja_B);
    writeln ('Valor de piezas vendidas caja C: ', piezas_vendidas_caja_C);
    writeln ('Valor de ventas totales caja A: ', ventas_totales_caja_A:0:6);
    writeln ('Valor de ventas totales caja B: ', ventas_totales_caja_B:0:6);
    writeln ('Valor de ventas totales caja C: ', ventas_totales_caja_C:0:6);
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.