-
Lenguaje
Pascal
-
Descripción
Un producto tenía un precio inicial que debe solicitarse y ahora tiene un nuevo valor que también debe solicitar. Determinar el porcentaje de incremento o descuento del producto.
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
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
program PorcentajeDeIncrementoODescuento;
uses crt;
var porcentaje_de_descuento, porcentaje_de_incremento, precio_inicial, precio_nuevo : real;
begin
write ('Ingresa el valor de precio inicial: ');
readln (precio_inicial);
write ('Ingresa el valor de precio nuevo: ');
readln (precio_nuevo);
porcentaje_de_incremento := 0;
porcentaje_de_descuento := 0;
if precio_inicial<precio_nuevo then
begin
porcentaje_de_incremento := 100.0*(precio_nuevo-precio_inicial)/precio_inicial;
end
else
begin
porcentaje_de_descuento := 100.0*(precio_inicial-precio_nuevo)/precio_inicial;
end;
writeln ('Valor de porcentaje de descuento: ', porcentaje_de_descuento:0:6);
writeln ('Valor de porcentaje de incremento: ', porcentaje_de_incremento:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var porcentaje_de_descuento, porcentaje_de_incremento, precio_inicial, precio_nuevo : real;
begin
write ('Ingresa el valor de precio inicial: ');
readln (precio_inicial);
write ('Ingresa el valor de precio nuevo: ');
readln (precio_nuevo);
porcentaje_de_incremento := 0;
porcentaje_de_descuento := 0;
if precio_inicial<precio_nuevo then
begin
porcentaje_de_incremento := 100.0*(precio_nuevo-precio_inicial)/precio_inicial;
end
else
begin
porcentaje_de_descuento := 100.0*(precio_inicial-precio_nuevo)/precio_inicial;
end;
writeln ('Valor de porcentaje de descuento: ', porcentaje_de_descuento:0:6);
writeln ('Valor de porcentaje de incremento: ', porcentaje_de_incremento:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.