-
Lenguaje
Pascal
-
Descripción
Calcule el precio total al adquirir un producto. Los datos a ingresar son el precio y la cantidad. Además, transformar el monto total en dólares. El cambio a emplear es de 3.3.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program PrecioDeUnProductoEnDolares;
uses crt;
var cantidad, dolares, precio, precio_total : real;
begin
write ('Ingresa el valor de cantidad: ');
readln (cantidad);
write ('Ingresa el valor de precio: ');
readln (precio);
precio_total := precio*cantidad;
dolares := precio_total/3.3;
writeln ('Valor de dolares: ', dolares:0:6);
writeln ('Valor de precio total: ', precio_total:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var cantidad, dolares, precio, precio_total : real;
begin
write ('Ingresa el valor de cantidad: ');
readln (cantidad);
write ('Ingresa el valor de precio: ');
readln (precio);
precio_total := precio*cantidad;
dolares := precio_total/3.3;
writeln ('Valor de dolares: ', dolares:0:6);
writeln ('Valor de precio total: ', precio_total:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.