-
Lenguaje
Pascal
-
Descripción
Solicita el nombre del artículo, precio y cantidad y despliega el monto total del artículo (Precio * Cantidad).
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program MontoTotalDeUnArticulo;
uses crt;
var cantidad, monto_total, precio : real;
var nombre_del_articulo : string;
begin
write ('Ingresa el nombre del articulo: ');
readln (nombre_del_articulo);
write ('Ingresa el valor de cantidad: ');
readln (cantidad);
write ('Ingresa el valor de precio: ');
readln (precio);
monto_total := precio*cantidad;
writeln ('Nombre del articulo: ', nombre_del_articulo);
writeln ('Valor de monto total: ', monto_total:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var cantidad, monto_total, precio : real;
var nombre_del_articulo : string;
begin
write ('Ingresa el nombre del articulo: ');
readln (nombre_del_articulo);
write ('Ingresa el valor de cantidad: ');
readln (cantidad);
write ('Ingresa el valor de precio: ');
readln (precio);
monto_total := precio*cantidad;
writeln ('Nombre del articulo: ', nombre_del_articulo);
writeln ('Valor de monto total: ', monto_total:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.