Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  hj
Language: PASCAL
Code:
program tp3crea;
type
    tregi=record
                
                Nrosocio:integer;
                Apellido:string[15];
                Nombre:string[15];
                Categoria:char;
                Edad:integer;
                Sexo:char;
                Estado:char;
    end;
    tarchi=file of tregi;
var
   vsocio:tarchi;
   vregi:char;
   votro:char;
begin
     Assign(vsocio,'c:\utn\club.dat');
     Rewrite(vsocio);
     Close(vsocio);
end.
          
          
Comments: