• 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
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.