Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  traducelista
Language: PASCAL
Code:
     program TraduceLista;
  uses
    crt;
  const
      max = 3;

  var

    tLista: text;       (* Un fichero de texto *) 
    tListaTrad: text; (*fichero de salida*)
    sLinea: string;      (* La linea que leeremos *)

 begin 
    assign( tLista, 'lista.astm' );  (* Le asignamos nombre *)                 
    assign( tListaTrad, 'ltTraucida.astm');
    write( tListaTrad);

   {$I-} reset(tLista); {$I+}      (* Lo abrimos para leer datos *) 
   if ioresult <> 0 then
   begin
     writeln('Error lista.astm No Encontrado Pulse Una Tecla');
     readkey;
   end
   else begin
       while not eof( tLista) do
          begin
            readLn( tLista, sLinea );    (* Leemos una linea *)
            writeLn( sLinea );            (* Y la mostramos *) 

          end;
   end;
   close( tLista );                (* Finalmente cerramos *) 

end.
Comments: