• Lenguaje

    Pascal

  • Descripción

    Leer como datos: el nombre del producto, el precio viejo, procedencia. Calcular el precio nuevo sabiendo que este se calcula teniendo en cuenta lo siguiente:
    a. Si la procedencia es entre 1 y 3 tiene 10% de aumento
    b. Si la procedencia es entre 4 y 6 tiene 5% de aumento
    Imprimir el precio nuevo, el nombre del producto y el código de procedencia. Observaciones: para calcular el precio nuevo es de la siguiente forma:
    aumento = precio viejo * 10/100
    precio nuevo = precio viejo + aumento

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

var aumento, precio_nuevo, precio_viejo, procedencia : real;
var nombre_del_producto : string;
begin
    write ('Ingresa el nombre del producto: ');
    readln (nombre_del_producto);
    write ('Ingresa el valor de precio viejo: ');
    readln (precio_viejo);
    write ('Ingresa el valor de procedencia: ');
    readln (procedencia);
    aumento := 0;
    if (procedencia>=1) and (procedencia<4) then
        begin
            aumento := precio_viejo*10/100;
        end;
    if (procedencia>=4) and (procedencia<7) then
        begin
            aumento := precio_viejo*5/100;
        end;
    precio_nuevo := precio_viejo+aumento;
    writeln ('Nombre del producto: ', nombre_del_producto);
    writeln ('Valor de aumento: ', aumento:0:6);
    writeln ('Valor de precio nuevo: ', precio_nuevo:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.