{-Victor De la Rocha}
{-Algoritmia@groups.msn.com}
{-www.myalgorithm.com}
{Programa que lee mercancias; su precio, cantidad
y hace informes}
uses
 crt;
const
 max=100;
type
 item=record
   articulo:string;
   precio:real;
   cantidad:integer;
  end;
 datos=array [1..max] of item;
var
 inventario:datos;
 opc,cantidad,c:integer;
 res:string[1];
 
{funcion que centra el titulo en la pantalla}
function titulo(titulo:string):integer;
 begin
  gotoxy(Trunc((80/2)-(length(titulo)/2)),1);Write(titulo);
 end;
begin
 {inicializo las variables}
 cantidad:=1;
 repeat
  ClrScr;
  {imprimo el titulo del menu}
  titulo('Inventario de articulos');
  writeln;
  writeln;
  {imprimo el menu}
  Writeln('  1.-Agregar producto');
  Writeln('  2.-Reporte de existencias');
  Writeln('  3.-Salir');
  {pido la opcion del menu}
  writeln;
  {insistir en que introdusca una opcion existente y correcta}
  Write('   -> Opcion: ');Readln(opc);
  case opc of
   1:{introducir productos}
    begin
     for cantidad:=cantidad to max do
      begin
       ClrScr;
       titulo('Agregar productos');
       writeln;
       writeln;
       write(' -Producto ',cantidad,': ');
        readln(inventario[cantidad].articulo);
       write(' -Precio: ');
        readln(inventario[cantidad].precio);
       write(' -Cantidad: ');
        readln(inventario[cantidad].cantidad);
       writeln;
       Write('¨Desea introducir otro producto? s/n: ');
        Readln(res);
        {si no, saco del ciclo}
       if (res='n') OR (res='N') then break;
 
      end;{Fin de introducir productor ciclo}
    end;{Fin de opcion 2}
   2:{Reporte de productos}
    begin
     ClrScr;
     titulo('Reporte de productos');
     writeln;
     writeln;
      for c:=1 to cantidad do
       begin
        writeln('Producto',c,': ',inventario[c].articulo);
        writeln('  Precio: $',inventario[c].precio:0:2);
        writeln('  Cantidad: ',inventario[c].cantidad);
        writeln;
       end;{ciclo de impresion}
     ReadKey;
    end;{fin de opcion 2 reporte de productos}
  end;{case}
 until opc=3;
end.