Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Program Datos;
- Uses Crt;
- Type
- Persona : Record
- Nombre : String[30];
- Edad : Integer;
- Sexo : Char;
- Direccion : String[50];
- Telefono : string[12];
- End;
- Var
- P: Persona;
- Begin
- Clrscr;
- {carga del registro}
- Write(' Ingrese su Nombre: ');
- Readln( P.Nombre );
- Write(' Ingrese su Edad: ');
- Readln( P.Edad );
- Write(' Ingrese su Sexo [M / F]: ');
- Readln( P.Sexo );
- Write(' Ingrese su Dirección: ');
- Readln( P.Direccion );
- Write(' Ingrese su Teléfono: ');
- Readln( P.Telefono )
- { fin carga del registro}
- {mostrar información del registro}
- Writeln(' El Nombre es: ' , P.Nombre );
- Writeln(' La Edad es:’ ,P.Edad );
- Writeln(' El sexo de la persona es:’ , P.Sexo );
- Writeln(' La Dirección es: ', P.Direccion );
- Writeln(' el numero de Teléfono es: ' ,P.Telefono );
- {fin mostrar información del registro}
- End.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement