Ejercicio 4(inicio)

PROGRAM precio_de_pruducto(input,output);

(*Entrada,nombre de un producto,precio en euros, numero de unidades dinero entregado.
Salida,precio total de la compra  con iva y sin iva y cambio que hay que entregar al cliente*)

VAR
  nombre:string(15);
  precio:real;
  unidades:integer;
  dinero:real;
  coste:real;
  lower:real;
  cambio:real;
impues:real;

BEGIN
  write('Nombre del producto:');
  readln(nombre);
  write('Precio:');
readln(precio);
write('Número de unidades:');
readln(unidades);
write('Dinero a entregar:');
readln(dinero);

 coste:=precio*unidades;
 impues:=coste * 0.18;
 lower:=coste+impues;
 cambio:=dinero-lower;

  writeln('Producto  Unidades  Coste sin IVA  Coste con IVA  Entregado  Cambio ');

writeln(' ',nombre,'      ',unidades:2,'          ',coste:3:3,'         ',lower:3:3,'     ',dinero:3:3,'   ',cambio:3:2);
END.

Anterior                                                                                                                                     Siguiente