[ Foro de Pascal ]

linea

cordial saludo profesor nacho.
queria pedirte me ayudaras en indicarme el quivalente del suguiente  fragmento de codigo en lenguaje c++ , a pascal:

FILE  * ent = fopen("EJEM.ENT", "rt");
FILE  * sal = fopen("EJEM.ENT", "wt");

typedef struct
{
  long  p;
   char dir;
} T_Animal;

int main ()
{
   T_Animal  gato[15];
    long  t,l, pasos=0;
    int  n,i;
   fscanf( ent, "%ld  %ld  %ld", &l , &t ,&n);
   for ( i=1; i<=n;i++)
     {
      fscant( ent, "%ld %c", &gato[i].p , &gato[i].dir);
      if (gato[i].dir=='D') gato[i].dir=1;
 }

agradeciendo por tu atencion y toda la ayuda que nos brindas y de la cual aprendemos tanto en tu foro.

se que va de archivos por supuesto pero claro aqui en c++ al especificarsen parametros por referencia creo &, me confunde un poco y me gustaria me ayudaras a transformar este codigo en pascal.

Olvídate de los parámetros por referencia: es un requisito de la orden "scanf", que es el equivalente a ReadLn.

Ese programa se limita a leer un primer dato y luego otros n datos más de un fichero de texto.