• Martes 23 de Abril de 2024, 18:23

Mostrar Mensajes

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.


Temas - .:Kioon:.

Páginas: [1]
1
Pascal / Ayuda Acceso A Archivos-ficheros
« en: Miércoles 12 de Enero de 2005, 20:31 »
Hola a tod@s.

    Tengo un problema que desde hace unos dias no me deja dormir. Me estoy familiarizando con los archivos en Pascal y he creado el siguiente programa.

PROGRAM LeerFecha;

VAR

    ArchivoTexto : TEXT;
    CadenaFecha : STRING;

BEGIN

    ASSIGN(ArchivoTexto,'FECHA.TXT');
    RESET(ArchivoTexto);

    READLN(ArchivoTexto,CadenaFecha);
    WRITELN(ArchivoTexto);

    CLOSE(ArchivoTexto);

END.

      Como se puede observar es muy sencillito. Lo tengo guardado en una carpeta, llamada fecha y dentro de ella el fichero FECHA.TXT

    El programa me compila correctamente, pero cuando le doy a RUN me da el siguiente error.

Runtime error 105 at 0x004010A1
      0x004010A1 main, line 14 of c:/fecha/leerfecha.pas

En el fichero de texto tengo puesto solo:

Miercoles 12/1/2005

Gracias a tod@s y un saludo!!

 :blink:

2
Pascal / Array De Caracteres
« en: Viernes 10 de Diciembre de 2004, 11:06 »
Hola a tod@s.

  Desde hace dias, estoy metido en un bucle  :huh: que hace que no pueda salir. Tengo que hacer un ejercicio y no sigo adelante. Imaginaros, tenermos un array de caracteres y me piden que tengo que poner en mayusculas y centrarlo (tb subrayarlo) el titulo que como podemos ver a continuación esta entre &&. Pues cuando utilizo un FOR parece que no me deja, dice expresion no valida. Agradeceria a todo el mundo que me pueda ayudar!!!!!

PROGRAM arrCaracteres;

USES crt;

CONST

bajo=1;
alto=499;

TYPE

    intervalo=bajo..alto;

VAR    cadena:ARRAY [intervalo] OF CHAR;


VAR

    i,n     :   INTEGER;
    index   :   intervalo;
    longitudCadena,posiciona:BYTE;
    carac   :   CHAR;


BEGIN

    cadena:=('&colof¢n&Luz...$Cuando mis l grimas te alcancen$la fusi¢n de mis ojos$ya no ser  llorar$sino ver.$&abrojos&A un tal q asesin¢ a diez$y era la imagen del vicio,$muerto,el Soberano Juez$le salv¢ del sacrificio');
    longitudCadena:=LENGTH(cadena);
    carac:='&';
    clrscr;
    WRITELN ('');
    WRITELN (' ========================');
    WRITELN (' POESIAS');
    WRITELN (' ========================');
    WRITELN ('');
    WRITELN ('');

    FOR i:=LOW(cadena) TO longitudcadena DO

        FOR cadena='&' TO '&' DO <<<<<<<<<<<<<NO ME DEJA

SALUDOS
JESÚS

Páginas: [1]