• Lenguaje

    Pascal

  • Descripción

    Una tienda de ropa de segunda se distingue por realizar descuentos según el color de la etiqueta que tenga la prenda. Elabore un diagrama de flujo que tenga como datos de entrada nombre de la prenda, cantidad y precio, color etiqueta. El diagrama de flujo debe valorar lo siguiente: si la etiqueta es de color verde se debe de realizar 10% descuento, si es de color rojo 15% y cualquier otro color 5%. Al finalizar se debe de imprimir el nombre del producto, total a pagar sin descuento y total a pagar con el descuento y monto del descuento.

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

var color_etiqueta : integer;
var cantidad, descuento, precio, total_con_descuento, total_sin_descuento : real;
var nombre_de_la_prenda : string;
begin
    write ('Ingresa el nombre de la prenda: ');
    readln (nombre_de_la_prenda);
    write ('Ingresa el valor de cantidad: ');
    readln (cantidad);
    write ('Ingresa el valor de precio: ');
    readln (precio);
    descuento := 0;
    total_sin_descuento := cantidad*precio;
    writeln ('Selecciona el valor de color etiqueta.');
    writeln ('    1.- verde');
    writeln ('    2.- rojo');
    writeln ('    3.- otro');
    write ('    : ');
    repeat
        readln (color_etiqueta);
        if (color_etiqueta<1) or (color_etiqueta>3) then
            write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
    until (color_etiqueta>=1) and (color_etiqueta<=3);
    if color_etiqueta=1 then
        begin
            descuento := total_sin_descuento*0.1;
        end;
    if color_etiqueta=2 then
        begin
            descuento := total_sin_descuento*0.15;
        end;
    if color_etiqueta=3 then
        begin
            descuento := total_sin_descuento*0.05;
        end;
    total_con_descuento := total_sin_descuento-descuento;
    writeln ('Nombre de la prenda: ', nombre_de_la_prenda);
    writeln ('Valor de descuento: ', descuento:0:6);
    writeln ('Valor de total con descuento: ', total_con_descuento:0:6);
    writeln ('Valor de total sin descuento: ', total_sin_descuento:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.