• Author / Uploaded
• Jaider Felipe Fray Torreglosa

Citation preview

12/11/2014

PROGRAMACION: EJERCICIOS RESUELTOS Y PROPUESTOS

0

  Más    Siguiente blog»

Crear blog   Acceder

PROGRAMACION MARTES, 1 DE JULIO DE 2008

EJERCICIOS RESUELTOS Y PROPUESTOS 1. (Ejercicio de Registro) Escriba un program a que lea datos de una persona 'P' (nom bre, edad, sexo, dirección, teléfono), los alm acene en un registro y los m uestre. 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}

Archivo del blog ▼  2008 (17) ▼  julio (4) ARCHIVOS Y FUNCIONES ARBOLES BINARIOS ENLACES DE INTERES EJERCICIOS RESUELTOS Y PROPUESTOS ►  junio (4) ►  mayo (9)

Datos personales Este blog ha sido elaborado por Ing. Mayra Ramirez Ver todo mi perfil

{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. 2. (Ejercicio de arreglo de registro) Usando el ejercicio anterior, supongam os que ahora deseam os guardar los datos de 20 personas y buscar cuál es la m ás joven. Program Mas_joven; Uses Crt; Type Personas : Record Nombre : String[30];  Edad : Integer;  Sexo : Char;  Direccion : String[50]; Telefono : string[12];  End; http://programacionunefa.blogspot.com/2008/07/ejercicios-resueltos-y-propuestos.html

1/5

12/11/2014

PROGRAMACION: EJERCICIOS RESUELTOS Y PROPUESTOS

arre_persona=array[1..20] of persona; Var persona:arre_persona; i, Menor : Integer; Nombre : String[30]; Begin Clrscr; For i := 1 to 20 do Begin Write(' Ingrese el Nombre de la persona ', i , ': '); Readln( persona[i].Nombre ); Write(' Ingrese su Edad: '); Readln( persona[i].Edad ); Write(' Ingrese su Sexo [M / F]: '); Readln( persona[i].Sexo ); Write(' Ingrese su Dirección: '); Readln( persona[i].Direccion ); Write(' Ingrese su Teléfono: '); Readln( persona[i].Telefono ) End; Menor := persona[1].Edad; For i := 2 to 20 do If persona[i].Edad