Dado el precio de un articulo y la cantidad de articulos, determinar el subtotal, iva y total.
pascal:
{
Descripcion: Dado el precio de un articulo y la cantidad de articulos,
determinar el subtotal, iva y total.
www.mis-algoritmos.com
}
uses
crt;{Cargamos libreria de la pantalla}
var
precio, iva, costo, subtotal, total : real;
cantidad : integer;
begin
clrscr;{Limpiamos pantalla}
write('Precio; ');{Salida en pantalla}
readln(precio);{Entrada desde el teclado}
write('Cantidad: ');{Salida en pantalla}
readln(cantidad);{Entrada desde el teclado}
iva:=precio*0.15;{Evaluam iva 15%}
costo:=precio+iva;{Agrega iva al precio}
subtotal:=precio*cantidad;{Evaluamos subtotal}
iva:=cantidad*iva;{Evalua iva total a cobrar}
total:=costo*cantidad;{Evalua el total de la compra}
writeln;{Espacio en blanco (Enter)}
writeln('Subtotal: ',subtotal:0:2);{Salida en pantalla}
writeln('I.V.A.: ',iva:0:2);{Salida en pantalla}
writeln('Total: ',total:0:2);{Salida en pantalla}
readkey;{Esperamos una tecla para finalizar}
end.
Descripcion: Dado el precio de un articulo y la cantidad de articulos,
determinar el subtotal, iva y total.
www.mis-algoritmos.com
}
uses
crt;{Cargamos libreria de la pantalla}
var
precio, iva, costo, subtotal, total : real;
cantidad : integer;
begin
clrscr;{Limpiamos pantalla}
write('Precio; ');{Salida en pantalla}
readln(precio);{Entrada desde el teclado}
write('Cantidad: ');{Salida en pantalla}
readln(cantidad);{Entrada desde el teclado}
iva:=precio*0.15;{Evaluam iva 15%}
costo:=precio+iva;{Agrega iva al precio}
subtotal:=precio*cantidad;{Evaluamos subtotal}
iva:=cantidad*iva;{Evalua iva total a cobrar}
total:=costo*cantidad;{Evalua el total de la compra}
writeln;{Espacio en blanco (Enter)}
writeln('Subtotal: ',subtotal:0:2);{Salida en pantalla}
writeln('I.V.A.: ',iva:0:2);{Salida en pantalla}
writeln('Total: ',total:0:2);{Salida en pantalla}
readkey;{Esperamos una tecla para finalizar}
end.