-
Lenguaje
Pascal
-
Descripción
Lea el precio de un artículo y la cantidad comprada, para calcular el importe y un descuento del 25% si la cantidad comprada es mayor o igual a 100. Al final el programa debe mostrar importe sin descuento, descuento el importe total sin descuento y el cambio.
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
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
program CalcularDescuento;
uses crt;
var cambio, cantidad, descuento, importe, importetot : real;
var pago, precio : real;
begin
write ('Ingresa el valor de cantidad: ');
readln (cantidad);
write ('Ingresa el valor de pago: ');
readln (pago);
write ('Ingresa el valor de precio: ');
readln (precio);
importe := precio*cantidad;
if cantidad>=100 then
begin
descuento := importe*0.25;
end
else
begin
descuento := 0;
end;
importetot := importe-descuento;
cambio := pago-importetot;
writeln ('Valor de cambio: ', cambio:0:6);
writeln ('Valor de descuento: ', descuento:0:6);
writeln ('Valor de importe: ', importe:0:6);
writeln ('Valor de importetot: ', importetot:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var cambio, cantidad, descuento, importe, importetot : real;
var pago, precio : real;
begin
write ('Ingresa el valor de cantidad: ');
readln (cantidad);
write ('Ingresa el valor de pago: ');
readln (pago);
write ('Ingresa el valor de precio: ');
readln (precio);
importe := precio*cantidad;
if cantidad>=100 then
begin
descuento := importe*0.25;
end
else
begin
descuento := 0;
end;
importetot := importe-descuento;
cambio := pago-importetot;
writeln ('Valor de cambio: ', cambio:0:6);
writeln ('Valor de descuento: ', descuento:0:6);
writeln ('Valor de importe: ', importe:0:6);
writeln ('Valor de importetot: ', importetot:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.