-
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
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.
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.