[EI/ETIS/ETIX] 1º - Pro (Programación)

[Hunter John]

una pregunta sobre una cosilla que ya deberia saber hacer MUY bien pero como se hace (bien) para almacenar palabras en arrays....
digo "(bien)" porque yo tengo hechas un par de cosas pero no funcionan como deberian jeje ... muchas gracias

[Fer]

¿Almacenar palabras en Arrays?

No entiendo la dificultad xDD Igual es que no entiendo la pregunta o algo... ¿Qué es lo que probaste y qué es lo que no te va?

[Hunter John]

se que la pregunta es chorras total pero a lo que me refiero es que para hacerlo tienes que poner que lea caracteres hasta que encuentre un espacio no? y que cuando encuentre un espacio a los caracteres leidos los considere palabra y seguir no? o estoy diciendo muchas burradas?

[Fer]

No estás diciendo ninguna burrada, estás aprendiendo. Lo que acabas de decir está bien, claro. Empiezas y vas almacenando cada caracter leído en un string auxiliar. Si encuentras un caracter "espacio", el string anterior auxiliar para a ser una palabra que puedes meter en un array o en otro lado. Y sigues, inicializando de nuevo el string a "".

Corregidme si me equivoco.

[Hunter John]

pues el "problemilla" lo tengo con eso, no se muy bien como expresar eso bien... si me pudierais echar una manita.... muchas gracias

[agilismoftw]

Pregunta tonta de alumno inútil nº n-ésimo:

Se supone que si yo en un módulo tengo declaradas varias funciones, puedo utilizarlas dentro de otro procedimiento (declarado también en el mismo módulo) y luego exportarlo no?

[Fer]

Sí, de eso se trata. Creo recordar (aún se lo dije a alguien el otro día) que se hacía así:

Código: Seleccionar todo

module X interface;
export X = (Proced1, Proced);
export Y = (a,b);

Var a : integer;
Type v: char; {Ejemplos de variables o constantes a exportar}

Proced1 (variables)


Proced2 (variables)

End. {interface}


{en el mismo archivo}


module X implementation;

import

StandardInput;
StandardOutput;

Proced1; {sin variables}

BEGIN ... END {implementacion}


{Idem para Proced2}


End. {implementation}

Luego en el otro lado donde quieras importarlo:

Código: Seleccionar todo

program loquesea (input, output);

import X


BEGIN ... END.

Para compilar el módulo: gpc -fextended-pascal -c nombre_modulo.pas
Para compilar el programa principal (una vez compilados todos los módulos): gpc -fextended-pascal -fautomake nombre_programa_ppal.pas


Aer si os sirve de algo XD

EDITO: Si fueran varios módulos:

Código: Seleccionar todo

import X; Y; Z; {los que fueran}

[agilismoftw]

Sisi, si ya llevo bastante trabajando con módulos, el caso es que me da una serie de errores ininteligibles al ejecutar el procedimiento con las funciones dentro ;S

[Fer]

Sisi, si ya llevo bastante trabajando con módulos, el caso es que me da una serie de errores ininteligibles al ejecutar el procedimiento con las funciones dentro ;S

Pon qué errores pone, y a ver si somos capaces de solucionarlos...

PD: Da por seguro que sí XDD

[agilismoftw]

Cuando escribí caí en el típico error de decir "no me va" xDD luego logeo en ubuntu y os lo pego

[Fer]

Cuando escribí caí en el típico error de decir "no me va" xDD luego logeo en ubuntu y os lo pego

Pero no tienes el compilador de Windows para GNU Pascal? XD Va igual, e?

[agilismoftw]

Pues no, es el GNU-dev ése? xD Tendré que probarlo.

Bueno, ya he mirado.Te cuento, vamos por partes:

CABECERA DEL PROCEDIMIENTO Y CONTENIDO:

Código: Seleccionar todo

PROCEDURE informacion (VAR cadena : tCadena; NumLinea : Integer; NumPagina : Integer);

PROCEDURE informacion;

   
   
BEGIN
{with informacion_lineas DO BEGIN}
   informacion_lineas.primerapalabra := primerapalabra(cadena);
   informacion_lineas.ultimapalabra := ultimapalabra(cadena);
   informacion_lineas.numeropalabras := numeropalabras(cadena);
   informacion_lineas.numerolinea := NumLinea;
   informacion_lineas.numeropagina := NumPagina;
{END;}

END;

El WITH está comentado porque no me iba, así que puse registro.x xD. ¿Sabes por qué no me va? He seguido la sintaxis según el librillo éste.

INVOCO LA FUNCIÓN MANDÁNDOLE PARAMETROS:

Código: Seleccionar todo

informacion(cadena,1,1);

Voy a compilar y...

Código: Seleccionar todo

santi@Santi:/media/sda2/ITIS/Pro/Practica/Practica2$ gpc --extended-pascal --automake programa.pas
programa.pas: In main program:
programa.pas:13: error: request for field `primerapalabra' in something not
programa.pas:13: error:  a record, schema or object


Ahí lo tienes tío, gracias por adelantado.

EDIT: Se me olvidaba, el módulo, si lo compilo a parte, compila bien.

[Fer]

Según parece que pone, parece que importas mal el registro o algo, y te dice que no encuentra ese campo ("field") en esa cosa. Es decir, te dice que es una búsqueda por ese campo que no tiene se campo. Y eso de que si lo compilas aparte... Debe ser eso, que no importa bien

[agilismoftw]

Tengo un módulo de tipos aparte, en el cual exporto el tipo tRegistro. En el programa principal y el otro módulo importo el módulo tipos. No sé que puede faltar ;S

[Fer]

El compilador te dice claramente:

"request for field `primerapalabra' in something not a record, schema or object"

"solicitud del campo 'primerapalabra' en algo que no es un registro, esquema u objeto"


Mira a ver si le pones el nombre de la variable bien y no le pones el tipo, o alguna cosa similar.