-
Lenguaje
Pascal
-
Descripción
Una librería tiene el 20% de descuento en los ejemplares con precio mayor a $400. Calcule el precio a pagar por libro.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program DescuentoDe20EnUnaLibreria;
uses crt;
var descuento, precio_a_pagar, precio_normal : real;
begin
write ('Ingresa el valor de precio normal: ');
readln (precio_normal);
if precio_normal>400 then
begin
descuento := precio_normal*0.2;
end
else
begin
descuento := 0;
end;
precio_a_pagar := precio_normal-descuento;
writeln ('Valor de descuento: ', descuento:0:6);
writeln ('Valor de precio a pagar: ', precio_a_pagar:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var descuento, precio_a_pagar, precio_normal : real;
begin
write ('Ingresa el valor de precio normal: ');
readln (precio_normal);
if precio_normal>400 then
begin
descuento := precio_normal*0.2;
end
else
begin
descuento := 0;
end;
precio_a_pagar := precio_normal-descuento;
writeln ('Valor de descuento: ', descuento:0:6);
writeln ('Valor de precio a pagar: ', precio_a_pagar:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.