|
|
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Mensajes - thot_ohm
26
« en: Martes 28 de Junio de 2005, 23:59 »
Perro Enko, con eso de la ordenación burbuja me dejaste más frito de lo que estaba. Investigué en Google un poquito y ví varios ejemplos de ordenación con el método de la burbuja, que aunque no me ha quedado muy claro, lo que sí he visto es que tengo que tener los datos en un array (en mi caso sería uno bidimensional). Lo que se me ocurre es vaciar los resultados del filtro aplicado en el archivo al array (el cual imagino, deberá ser del tipo string) y aplicar el método burbuja a este array. Ahora bien, ¿como escribo en al arraylos datos del archivo filtrado? Me explico, en el procedimiento MostrarEMM, una vez que leo el archivo en la variable Datos empiezo a aplicar el mencionado filtro a punta de condicionales y directamente, muestro por pantalla el resultado. ¿En este punto es que tengo que cambiar la orden y ponerlo a que me lo escriba en el array? ¿Que instrucción utilizo para ésto? ¿Algo así?: write[f,c] donde f y c son unas variables que indican la fila y columna donde se va a escribir el registro. Disculpen a éste ignorante fastidioso jejeje 
27
« en: Lunes 27 de Junio de 2005, 23:34 »
Hola de nuevo: Enko, amablemente (y eficientemente), me ha ayudado en el desarrollo de éste código. Cuando pensaba que ya no iba a necesitar más ayuda y que ya era todo un experto   , se me presentó otro problema   . Me explico: El código lee unas entradas por teclado, las guarda en un archivo y luego debe mostrar por pantalla algunos de los registros guardados (en base a ciertos criterios) y ordenarlos alfabéticamente por el nombre. Ok. La parte de mostrar los que cumplen ciertos criterios está lista, no hay problema en eso. Ahora, lo de ordenar alfabéticamente, me ha enredado la vida. Tuve la idea de vaciar inicialmente el resultado de la lectura en base a ciertos criterios (filtro) en un array bidimensional y luego aplicar un algoritmo de ordenación que encontré posteado en este mismo foro (siempre el bueno de Enko). Confieso que lo del array bidimensional lo conozco en la teoría, mas no en la práctica. Puedo intuir y creo saber como manejarlo  . Ahora bien, ¿Es ésta la mejor técnica? Por otro lado me vuelvo un ocho intentando aplicar el algoritmo de Enko a ésta teoría. Help me please!! Adjunto el archivo .pas con mi código y el código copiado de éste mismo foro (gracias Enko). program DemoOrd; uses CRT; var {Variables para la primera parte del demo} PosLetra : integer; {para la segunda parte del demo} Palabra1,Palabra2 : string; Ord1, Ord2 : integer; begin ClrScr; PosLetra := Ord('a'); WriteLn(PosLetra); PosLetra := Ord('z'); WriteLn(PosLetra); ReadKey; ClrScr; {Fin Primera Parte del Demo} Write('Ingese una palabra cualquiera: '); ReadLn(Palabra1); Write('Ingese una palabra cualquiera que empieze con una letra distinta: '); ReadLn(Palabra2); Ord1 := Ord(Palabra1[1]); {Seria la primera letra de la palabra} Ord2 := Ord(Palabra2[1]); {Seria la primera letra de la segunda palabra} WriteLn('A continuacion se escribiran las palabras ordenadas alfabeticamente'); WriteLn(''); WriteLn('Presione una tecla'); ClrScr; if Ord1 < Ord2 then begin WriteLn(Palabra1); WriteLn(Palabra2); end else if Ord2 < Ord1 then begin WriteLn(Palabra2); WriteLn(Palabra1); end else if Ord1 = Ord2 then begin Writeln('Se suponia que tenian que empezar con letras distintas'); end; readkey; end.
28
« en: Sábado 18 de Junio de 2005, 15:39 »
Gracias compañero. Ya lo recibí. Ahora mismo me pongo a leerlo. Estamos a la orden para cualquier cosa.
29
« en: Jueves 16 de Junio de 2005, 21:58 »
Modifiqué la rutina original por la sugerencia que me dabas, quedó ésto: procedure mostrararchivo; {Muestra los datos almacenados en el archivo} var c,l: integer; begin abrearchivo; l:= 5; while not (Eof (Archivo)) do begin ClrScr; read (Archivo,Datos); with datos do begin c:= 5; gotoxy(c,l); write ('Nombre: ', Nombre); c:= c + 20; gotoxy(c,l); write ('Edad: ', Edad); c:= c + 8; gotoxy(c,l); write ('Grado: ', Grado); c:= c + 10; gotoxy(c,l); write ('Promedio: ', Prom:0:2); l:= l + 1; end end; readln; close (archivo); end;
El error persiste. Me explico. No muestra nada en pantalla. Qué estoy haciendo mal? Estoy más perdido que un pinguino en el desierto. Sugieranme una línea de acción please!!!
30
« en: Jueves 16 de Junio de 2005, 21:32 »
Yo también soy autodidacta y me devoro cuanto manual pasa por mis manos. Si puedes enviamelo a thot_ohm@yahoo.com. mil gracias
31
« en: Jueves 16 de Junio de 2005, 15:51 »
Vamos por partes (siguiendo tu rutina): 1.- Assign(Archivo,Ruta): Esto lo hago en el procedimiento abrearchivo. ¿Es correcto hacerlo así? Me explico, al hacerlo en una rutina aparte, ¿la orden assign es válida cuando regresa al procedimiento origen? 2.- Reset(Archivo): Igualmente, se realiza en el procedimiento abrearchivo. La pregunta sería la misma que en 1. Lo demás de esa rutina esta perfectly clear. Thanx.En cuanto a lo del problema con el promedio,pues me quedé asi: . Yo lo he probado para adelante y para atrás y me ha funcionado. No sé si tenga que ver, pero estoy compilando con FreePascal. Probé con el ejemplo que tu dices (el de introducirle un unico valor 2) y el resultado me da un 2.00 tan grande como la copa de un pino jejeje (es un decir). En éste foro, uno si se siente que forma parte de algo. Gracias por eso y por la ayuda (aunque sean repetitivas las gracias, un servidor siempre estará agradecido).
32
« en: Jueves 16 de Junio de 2005, 00:18 »
De nuevo yo trancado en éste bendito programa!!! Ya tengo listas mis rutinas para leer y almacenar datos. Ahora estoy intentando crear una rutina que me muestre los datos que están en el archivo por pantalla (tengo que hacer que salgan en orden alfabético y que cumplan ciertos parámetros, pero vayamos por partes). Hice esta rutina: procedure mostrararchivo; {Muestra los datos almacenados en el archivo} var c,l: integer; begin abrearchivo; l:= 5; with Datos do begin while not (Eof (Archivo)) do begin ClrScr; read (Archivo,Datos); c:= 5; gotoxy(c,l); write ('Nombre: '); write (nombre); c:= c + 20; gotoxy(c,l); write ('Edad: '); write (edad); c:= c + 8; gotoxy(c,l); write ('Grado: '); write (grado); c:= c + 10; gotoxy(c,l); write ('Promedio: '); write (prom :0 :2); c:= c + 15; l:= l + 1; end end; close (archivo); readln; end;
Datos es una variable donde guardo los datos almacenados en el archivo (adjunto el archivo .pas completo para quien le quiera echar un vistazo). Ahora bien, ésta rutina, aparentemente no hace nada porque no me muestra nada en pantalla. Las dudas: Está bien estructurada la rutina? Será que no estoy guardando adecuadamente en el archivo? Agradecido de antemano por la ayuda.
33
« en: Miércoles 15 de Junio de 2005, 16:44 »
Le dí para arriba y le dí para abajo y al final la que funcionó fue ésta: if (Actual.Mes > Nacimiento.Mes) then Datos.Edad:= Actual.Anio - Nacimiento.Anio; if (Actual.Mes < Nacimiento.Mes) then Datos.Edad:= Actual.Anio - Nacimiento.Anio - 1; if (Nacimiento.Mes = Actual.Mes) then if (Actual.Dia >= Nacimiento.Dia) then Datos.Edad:= Actual.Anio - Nacimiento.Anio else Datos.Edad:= Actual.Anio - Nacimiento.Anio - 1;
Así se quedará jejeje. Gracias.
34
« en: Miércoles 15 de Junio de 2005, 14:57 »
No se recomieda usar pormedio para valores mayores a 7 porque el promedio es preciso con series +/- inferiores a 7. Si son mayores a 7 hay que usar promedio con parametro Student "t" que es un poco m'as complicado.
Con razón recomendaban eso jejeje. Yo por dármelas de arrecho me volví un ocho. O sea como decimos en Venezuela: Por hacer una gracia me salió una morisqueta  . En cuanto a lo de la notación científica mil gracias, eso era lo que necesitaba.
35
« en: Miércoles 15 de Junio de 2005, 14:43 »
Si el mes actual es mayor que el mes del nacimiento es porque no cumplió los años y hay que restarle un 1
Si el mes actual es mayor al mes de nacimiento es porque SÍ cumplió años. Esto es lo que me tiene frikie. En ese caso quedaría así (digo yo ): if (Actual.Mes > Nacimiento.Mes) then Datos.Edad:= Actual.Anio - Nacimiento.Anio else if (Nacimiento.Mes = Actual.Mes) and (Actual.Dia >= Nacimiento.Dia) then Datos.Edad:= Actual.Anio - Nacimiento.Anio -1 else Datos.Edad:= Actual.Anio - Nacimiento.Anio;
Ahora bien, en ésta parte del código: else if (Nacimiento.Mes = Actual.Mes) and (Actual.Dia >= Nacimiento.Dia) then Datos.Edad:= Actual.Anio - Nacimiento.Anio -1
evalúa que si el mes de nacimiento es igual al actual y el día de nacimiento es MAYOR o IGUAL al actual le reste -1 a la resta del año actual menos el año de nacimiento. Es decir, que no ha cumplido años. Pero sí habría cumplido años si éste condicional es cierto , por lo que no habría que restarle 1. Si seguimos con la parte final del condicional: else Datos.Edad:= Actual.Anio - Nacimiento.Anio;
se está evaluando que si no se cumple (que el mes de nacimiento sea igual al mes actual y que el dia actual sea mayor o igualal día de nacimiento) no le reste 1. Es decir que sí habría cumplido años ¿?. ¿No es esto incorrecto? Tal como acabo de analizar el código, tal como estaba estaría bien: if (Actual.Mes > Nacimiento.Mes) then Datos.Edad:= Actual.Anio - Nacimiento.Anio else if (Nacimiento.Mes = Actual.Mes) and (Actual.Dia >= Nacimiento.Dia) then Datos.Edad:= Actual.Anio - Nacimiento.Anio else Datos.Edad:= Actual.Anio - Nacimiento.Anio - 1;
Ahora bien, que te parece si anidamos otro condicional. Algo así: if (Actual.Mes > Nacimiento.Mes) then Datos.Edad:= Actual.Anio - Nacimiento.Anio else if (Nacimiento.Mes = Actual.Mes) and (Actual.Dia >= Nacimiento.Dia) then Datos.Edad:= Actual.Anio - Nacimiento.Anio else if (Nacimiento.Mes = Actual.Mes) and (Actual.Dia < Nacimiento.Dia) then Datos.Edad:= Actual.Anio - Nacimiento.Anio - 1 else if (Nacimiento.Mes < Actual.Mes) then Datos.Edad:= Actual.Anio - Nacimiento.Anio - 1
Voy a correrlo y posteo los resultados a ver si funcionó. No me canso de darte las gracias por la ayuda. Y disculpa el fastidio 
36
« en: Martes 14 de Junio de 2005, 16:27 »
Gracias Enko, pero el error persiste cuando trato de calcular la edad de alguien que haya nacido el día anterior o el posterior a la fecha actual. Por ejemplo, calculo la edad de alguien nacido el 13/06/1985 me dice que tiene 20 años y si le pongo a calcular de alguien nacido el 15/06/1985 dice que tiene 19 años. Tu código es más limpio que el mío y lo he seguido mentalmente para revisarle la lógica y lo veo perfecto (a no ser que sea mi lógica la que está mal ). Te envío adjunto a éste mensaje el código del programa completo por si lo quieres compilar y probarlo tu mismo a ver si yo estoy haciendo algo mal. De nuevo gracias! program corocoras; uses dos, crt; type TFecha = record Anio: word; Mes: word; Dia: word; end; TDatos = record Nombre: string; Edad: integer; Grado: byte; Prom: real; end; var Datos: TDatos; Archivo: File of TDatos; procedure calculaedad; var dds: word; Nacimiento, Actual: TFecha; begin getdate(Actual.Anio, Actual.Mes, Actual.Dia, dds); writeln ('La fecha actual es: ', Actual.Dia, '/', Actual.Mes, '/', Actual.Anio); write ('D¡a: '); readln (Nacimiento.Dia); write ('Mes: '); readln (Nacimiento.Mes); write ('A¤o: '); readln (Nacimiento.Anio); if (Actual.Mes > Nacimiento.Mes) then Datos.Edad:= Actual.Anio - Nacimiento.Anio else if (Nacimiento.Mes = Actual.Mes) and (Actual.Dia >= Nacimiento.Dia) then Datos.Edad:= Actual.Anio - Nacimiento.Anio else Datos.Edad:= Actual.Anio - Nacimiento.Anio - 1; {if (Actual.Mes > Nacimiento.Mes) then Datos.Edad:= Actual.Anio - Nacimiento.Anio - 1; if (Actual.Mes < Nacimiento.Mes) then Datos.Edad:= Actual.Anio - Nacimiento.Anio; if (Nacimiento.Mes = Actual.Mes) then if (Actual.Dia >= Nacimiento.Dia) then Datos.Edad:= Actual.Anio - Nacimiento.Anio - 1 else Datos.Edad:= Actual.Anio - Nacimiento.Anio;} end; procedure obtenernotas; var i: byte; key: char; Notas: Array[1..10] of real; SumNotas: real; begin i:= 0; repeat i:= i + 1; write ('Intoduzca la nota: '); readln (Notas[i]); SumNotas:= SumNotas + Notas[i]; write ('¨Desea introducir otra nota? (s/n): '); readln (key); if i = 10 then write ('Ya se tienen 10 notas del alumno'); until (key = 'n') or (key = 'N') or (i = 10); Datos.Prom:= SumNotas / i; write ('El promedio es ', Datos.Prom); readln; end; procedure obtenerdatos; begin clrscr; write ('Introduzca el nombre: '); readln (Datos.Nombre); writeln ('Fecha de nacimiento: '); calculaedad; write ('Grado: '); readln (Datos.Grado); write ('Notas: '); obtenernotas; end; procedure almacenardatos; begin end; begin obtenerdatos; almacenardatos; writeln ('Nombre: ' ,Datos.Nombre); writeln ('Edad: ' ,Datos.Edad); writeln ('Grado: ' ,Datos.Grado); writeln ('Notas: ' ,Datos.Prom); readln; end.
37
« en: Martes 14 de Junio de 2005, 16:01 »
Hola de nuevo. Siguiendo con el desarrollo del programa, tengo que calcular el promedio de unas notas. En las especificaciones que me dieron en la Universidad me dicen que se recomienda que no sean mayor a 7 notas. De todas maneras yo quiero hacer que calcule el promedio de n notas (por hacer el programa más flexible). Para seguir con el planteamiento del problema acá está el código que hice: var i: byte; key: char; Notas: Array[1..10] of real; SumNotas: real; begin i:= 0; repeat i:= i + 1; write ('Intoduzca la nota: '); readln (Notas[i]); SumNotas:= SumNotas + Notas[i]; write ('¨Desea introducir otra nota? (s/n): '); readln (key); if i = 10 then write ('Ya se tienen 10 notas del alumno'); until (key = 'n') or (key = 'N') or (i = 10); Datos.Prom:= SumNotas / i; write ('El promedio es ', Datos.Prom); readln; end;
Datos.Prom es una variable declarada en la cabecera del programa (este código es nada más el procedimiento en discusión). Inicialmente, había hecho Notas: Array[1..n] of real;
Pero cuando compilo me da un error que la variable es demasiado larga (¿?). Le dí una longitud al arreglo de 10 para no estancarme ahí y seguir con el procedimiento. Yo sé que se puede hacer NOtas: Array[1..MaxNotas] of real;
Donde MaxNotas es una constante con un valor "x". Mi pregunta es: ¿Puedo darle al arreglo una longitud declarada por una variable? Es decir ¿Puede el arreglo tener una longitud variable? Otra cosa: Cuando muestro el promedio por pantalla aparece en notación científica. ¿Como se hace para especificar el número de decimales que queremos que aparezcan? Gracias por la ayuda.
38
« en: Lunes 13 de Junio de 2005, 17:34 »
Creo que ya dí con lo que era. Mira a ver: if (Actual.Mes > Nacimiento.Mes) then Datos.Edad:= Actual.Anio - Nacimiento.Anio; if (Actual.Mes < Nacimiento.Mes) then Datos.Edad:= Actual.Anio - Nacimiento.Anio - 1; if (Nacimiento.Mes = Actual.Mes) then if (Actual.Dia >= Nacimiento.Dia) then Datos.Edad:= Actual.Anio - Nacimiento.Anio else Datos.Edad:= Actual.Anio - Nacimiento.Anio - 1;
Sugerencias bien recibidas...
39
« en: Lunes 13 de Junio de 2005, 17:21 »
Hola de nuevo!! Tengo un problemita. Por dármelas de "galán_programador_superarrecho" le dije a mi novia para que ingresara su fecha para que le calculara la edad (estupideces de uno...) y resultó que le salió 19 años cuando ella tiene 20 (nació el 01 de Mayo de 1985). Me puse a revisar a fondo la rutina y me di cuenta que éste condicional if (Nacimiento.Mes >= Actual.Mes) and (Nacimiento.Dia >= Actual.Dia) then Datos.Edad:= Actual.Anio - Nacimiento.Anio else Datos.Edad:= Actual.Anio - Nacimiento.Anio - 1;
sólo es verdadero cuando el mes Y el día de nacimiento son mayores o iguales al mes y día actuales. Ahora bien, se puede dar el caso que el mes de nacimiento sea mayor (o incluso igual) al mes actual pero que el día de nacimiento sea menor al día actual (como sucede en éste caso), por lo que el condicional se evaluaría falso ejecutando esta parte del código else Datos.Edad:= Actual.Anio - Nacimiento.Anio - 1;
siendo ésto incorrecto por haber cumplido ésta persona años ya. Por ejemplo (que sé que está medio enredado): Hoy es 13 de Junio de 2005, mi novia nació el 01 de Mayo de 1985. El mes actual, efectivamente, es mayor que el mes de nacimiento, pero el día de nacimiento es menor. El if es falso y se ejecuta el else. Modifiqué un poco tu rutina he hice este: if (Nacimiento.Mes > Actual.Mes) then Datos.Edad:= Actual.Anio - Nacimiento.Anio; if (Nacimiento.Mes < Actual.Mes) then Datos.Edad:= Actual.Anio - Nacimiento.Anio - 1; if (Nacimiento.Mes = Actual.Mes) then if (Nacimiento.Dia >= Actual.Dia) then Datos.Edad:= Actual.Anio - Nacimiento.Anio else Datos.Edad:= Actual.Anio - Nacimiento.Anio - 1;
Lo he revisado y lo veo "lógicamente" bien. Pero, obviamente debe haber algún error ya que el error persiste; sigue diciendo que tiene 19 años en vez de 20. Ayudame a ver que es lo que estoy haciendo mal... ¿¿¿O es que mi novia me engañó en la edad??? jajaja
40
« en: Viernes 10 de Junio de 2005, 23:02 »
Respondí tu pregunta en la otra discusión que posteaste.
41
« en: Viernes 10 de Junio de 2005, 19:36 »
Hola!! Yo estoy empezando a trabajar con Pascal. Pero veamos si te puedo ayudar... Cuando estés en Pascal, para generar el .exe a partir del .pas, abres el menú compile y luego haces click en make. O simplemente, presionas F9 y de una vez te genera el .exe. A lo mejor ya lo has hecho, pero luego no consigues el "bendito" ejecutable. Es probable que en las opciones tengas configurado como destino de los ejecutables la carpeta en la que tienes instalado Pascal (o cualquier otro incógnito directorio). Para cambiar esto: options/directories. Puedes buscar el ejecutable, que seguramente ya esté en tu PC, con el buscador de windows a ver donde lo metió. Normalmente es el mismo nombre que el archivo .pas. Good luck. Espero haberte ayudado.
42
« en: Viernes 10 de Junio de 2005, 17:01 »
Me gusta mucho más este código. Se entiende mejor (más limpio). El que yo hice era parecido al tuyo, pero me gustó más el tuyo (honores al maestro jejeje). En cuanto a lo de TurboPascal (TP) y FreePascal (FP), no sé cual sea mejor. Tenía el TP pero tuve que comprar un disco duro nuevo y lo perdí. FP lo veo más "amigable", me refiero a que marca con distintos colores las palabras clave y lo que son comentarios y textos a mostrar en pantalla. ¿Que opinas tú? Sea lo que sea, no está de más tener TP. Mi mail es thot_ohm@yahoo.com, aunque creo eso lo puedes ver en mi perfil, ¿no?  . Bueno, estimado, ya no lo molesto más (por ahora jejeje). Seguramente según vaya desarrollando el programa necesitaré de nuevo tu invaluable ayuda. Muchas gracias por todo.
43
« en: Jueves 9 de Junio de 2005, 23:39 »
Ok listo!! No entendía mucho lo que hacía la función, pero a medida que la iba utilizando en el programa le iba agarrando el hilo. Acá tienes el código. program CalculaEdad; uses dos, crt; type TFecha = record Anio: word; Mes: word; Dia: word; end; const dias: array [0..6] of string = ('Domingo','Lunes','Martes','Mi‚rcoles','Jueves', 'Viernes','S bado'); var a, m, d, dds: word; Nacimiento, Actual: TFecha; Edad: integer; begin clrscr; getdate(a,m,d,dds); writeln ('Hoy es ', dias[dds], ', ', d:0, '/', m:0, '/', a:0); writeln ('Introduzca la fecha de nacimiento:'); writeln ('D¡a:'); readln (Nacimiento.Dia); writeln ('Mes:'); readln (Nacimiento.Mes); writeln ('Año:'); readln (Nacimiento.Anio); if (Nacimiento.Mes >= m) and (Nacimiento.Dia >= d) then Edad:= (a - Nacimiento.Anio) else Edad:= a - Nacimiento.Anio - 1; writeln ('La edad es: ' ,Edad); readln; end.
Ahora bien, cree la constante 'dias' para ver como funcionaba realmente esta funcion GETDATE. Pero realmente, el saber el día de la semana es irrelevante en el programa que necesito. De hecho, la orden de mostrar el día de hoy es para saber si lo estaba haciendo bien  .Voy a probar a quitar la constante 'dias' y que sólo me tome el día, mes y año. Por otro lado, yo tengo el FreePascal, pero no tiene ningún archivo de ayuda  . Puedo bajar estos archivos de algún sitio? Es mejor Turbo Pascal 7 que el FreePascal? y por último, donde puedo bajar el TP7? Disculpa si ya estoy pasado de preguntón, pero tu ayuda me animó bastante a continuar.
44
« en: Jueves 9 de Junio de 2005, 21:30 »
Disculpa que se me olvidaba.
¿Como hago para que la rutina obtenga la fecha del sistema?
45
« en: Jueves 9 de Junio de 2005, 21:28 »
Muchas gracias Enko!!! Me ayudaste enormemente. Ya hice la rutina, te la adjunto para que la veas y me des tu opinión. program CalculaEdad; uses crt; type TFecha = record Anio: integer; Mes: byte; Dia: byte; end; var Nacimiento, Actual: TFecha; Edad: integer; begin clrscr; Actual.Dia:= 9; Actual.Mes:= 6; Actual.Anio:= 2005; writeln ('Introduzca la fecha de nacimiento:'); writeln ('D¡a:'); readln (Nacimiento.Dia); writeln ('Mes:'); readln (Nacimiento.Mes); writeln ('Año:'); readln (Nacimiento.Anio); if (Nacimiento.Mes >= Actual.Mes) and (Nacimiento.Dia >= Actual.Dia) then Edad:= (Actual.Anio - Nacimiento.Anio) else Edad:= Actual.Anio - Nacimiento.Anio - 1; writeln ('La edad es: ' ,Edad); readln; end.
De nuevo mil gracias por el recibimiento y la ayuda.
46
« en: Jueves 9 de Junio de 2005, 15:31 »
Hola a todos. Estoy iniciandome en el mundo de la programación, por lo que espero que no se rían mucho si pregunto algo que ya esté trillado. En la universidad me pidieron hacer un programa (en Pascal), que entre otras cosas, necesita calcular la edad de una persona a partir de la fecha de nacimiento. Intuitivamente: edad:= fechaactual - fechanacimiento (digo yo... ). Confieso mi total fracaso a la hora de diseñar una rutina que haga esto. Estoy seguro que debe haber una rutina "estandar" que ejecute esta acción. Pueden ayudarme a conseguirla?? Por otro lado ¿hay que declarar algún tipo de dato para que el computador lea la fecha adecuadmente? De antemano gracias por recibir en el grupo a este aprendiz de programador. Mil gracias!!!
|
|
|
Mostrar Mensajes
