Pascal/Turbo Pascal - programa en pascal

program invent;

 uses crt;

 var codigo,cantidad:array[1..100] of integer;

 a:text;

 ci,cie:integer;

 encuentra:boolean;

 procedure buscainv(cod,can,na:integer);

 var i:integer;

 begin

 encuentra:=false;

 i:=0;

 while i<na do

 begin

 i:=i+1;

 if codigo[i]=cod then

 begin

 cantidad[i]:=cantidad[i]+can;

 encuentra:=true;

 end;

 end;

 end;

 procedure leer;

 begin

  assign(a,'e:/inventario.txt');

  reset(a);

  ci:=0;

  while not eof(a) do

 begin

  ci:=ci+1;

  readln(a,codigo[ci],cantidad[ci]);

 end;

  close(a);

  end;

  procedure escribir;

  begin

  rewrite(a);

  cie:=0;

  while cie<ci do

 begin

  cie:=cie+1;

  writeln(a,codigo[cie],' ',cantidad[cie]);

 end;

  close(a);

  end;

  procedure comprar;

 begin

  clrscr;

  encuentra:=false;

  leer;

  ci:=ci+1;

  writeln('introduce codigo');

  readln(codigo[ci]);

  writeln('introduce cantidad');

  readln(cantidad[ci]);

  buscainv(codigo[ci],cantidad[ci],ci-1);

  if encuentra then ci:=ci-1;

  escribir;

 end;

 begin

 {comprar;}

 readln;

 end.

{Espero estas aclaraciones te ayuden a entenderlo aunque el proceso no sea muy

 correcto pues los array no son para archivos de texto mas bien para registros}

program invent;

 uses

    crt;

 var

   codigo, cantidad : array[1..100] of integer;

   {Se crean dos variables con 1..100 elementos integer o sea numeros

    enteros}

    a : text;

    {Se establece a como variable fichero de tipo texto}

    ci, cie : integer;

   encuentra : boolean;

 procedure buscainv(cod,can,na:integer);

{procedimiento para buscar dentro del inventario}

 var

    i : integer;

    {variable de busqueda}

 begin

 encuentra := false;

 {para indicar si esiste o no}

 i := 0;

 while i < na do

 {blucle de busqueda se ejecutara siempre que i sea menor na sino

  finaliza}

 begin

 i := i + 1;

 if codigo[i] = cod then

 {compara si en el array codigo[i] se encuentra cod}

 begin

 cantidad[i] := cantidad[i] + can;

 {Suma a cantidad[i] el valor de can}

 encuentra := true;

 {In forma que lo encontro}

    end;

   end;

 end;

 procedure leer;

 begin

  assign(a,'e:/inventario.txt');

  {Asigna a [a] el archivo que se encuentra en la unidad [e:/]

   con nombre [inventario.txt]}

  reset(a);

  {Abre el archivo para lectura o escritura}

  ci:=0;

  while not eof(a) do

  {Ejecutara hasta que se encuentre al final del fichero }

 begin

  ci:=ci+1;

  readln(a,codigo[ci],cantidad[ci]);

  {Leemos el contenido y lo asignamos al array codigos y al

   array cantidad que en ese momento apunte ci}

 end;

  close(a);

  {Cerramos el fichero}

  end;

  procedure escribir;

  begin

  rewrite(a);

  {Creamos un fichero nuevo si el fichero existe se destruye}

  cie:=0;

  while cie < ci do

  {Se ejecutara hasta que cie se mayor que ci}

 begin

  cie:=cie+1;

  writeln(a,codigo[cie],' ',cantidad[cie]);

  {Escribimos en el fichero el contenido de codigo y cantidad que

   apunte cie}

 end;

  close(a);

  {Cerramos fichero}

  end;

  procedure comprar;

 begin

  clrscr;

  encuentra:=false;

  leer;

  {Este procedimiento lee el contenido del archivo}

  ci:=ci+1;

  writeln('introduce codigo');

  readln(codigo[ci]);

  writeln('introduce cantidad');

  readln(cantidad[ci]);

  buscainv(codigo[ci],cantidad[ci],ci-1);

  {Busca en el imbentario}

  if encuentra then

  ci:=ci-1;

  escribir;

  {Este procedimiento entra datos y despues los guarda en el

   archivo.

   Pero borrara todo lo que exista en el no añadira al archivo

   puesto que lo borra}

 end;

 begin

 {comprar;}

 readln;

 end.

   {Este programa crea un archivo de testo con dos entradas una

    sera los codigos y la otra sera la cantidad por linea de

    entrada en el archivo o sea sera linea 1 codigo cantidad

    linea 2 codigo cantidad y asi sucesiva mente

}