• Sábado 20 de Abril de 2024, 03:27

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.


Mensajes - .: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 / Re: Array De Caracteres
« en: Domingo 12 de Diciembre de 2004, 10:47 »
Hola a tod@s.

      Bueno.. os explico que me pasa. Después de las modificaciones que he estado realizando, cuando se ejecuta el programa (si quereis lo podeís comprobar) la cadena, queda tal y como está sin cambiar las letras  :blink:

Código: Text
  1.  
  2. PROGRAM arrPosicion;
  3.  
  4. USES crt;
  5.  
  6. CONST
  7.  
  8. bajo=1;
  9. alto=499;
  10.  
  11. TYPE
  12.  
  13.     intervalo=bajo..alto;
  14.  
  15. VAR    cadena:ARRAY [intervalo] OF CHAR;
  16.  
  17.  
  18. VAR
  19.  
  20.     i,n     :   INTEGER;
  21.     index   :   intervalo;
  22.     longitudCadena,posiciona:BYTE;
  23.     carac   :   CHAR;
  24.  
  25.  
  26. BEGIN
  27.  
  28.     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');
  29.     longitudCadena:=LENGTH(cadena);
  30.  
  31.     clrscr;
  32.     WRITELN ('');
  33.     WRITELN (' ========================');
  34.     WRITELN (' POESIAS');
  35.     WRITELN (' ========================');
  36.     WRITELN ('');
  37.     WRITELN ('');
  38.  
  39.      FOR i:=1 TO longitudCadena DO
  40.  
  41.         BEGIN
  42.  
  43.             IF cadena[i] = '&' THEN
  44.  
  45.               BEGIN
  46.  
  47.              WHILE cadena[i] <> '&' DO
  48.  
  49.                     BEGIN
  50.  
  51.                     cadena[i] := upCase(cadena[i]); {esto lo pasa a mayusculas}
  52.  
  53.                 i:=i+1;
  54.  
  55.                     END;
  56.  
  57.             END
  58.  
  59.  
  60.              ELSE i:=i+1;
  61.  
  62.      END;
  63.  
  64.      WRITELN (cadena);
  65.  
  66. END.
  67.  
  68.  
  69.  

          Agredecería mucho a quien me ayudase.

Saludos
Jesús  :hola:

3
Pascal / Re: Array De Caracteres
« en: Sábado 11 de Diciembre de 2004, 21:01 »
Hola Eugenio!

       Muchas Gracias por todo lo que me estás ayudando. Por favor, te dejo mi dirección de correo ya que me apetece mandarte un correo con lo que me sale y me ayudes si quieres y no sé tu e-mail. El mio es jgarrid2@hotmail.com

Saludos y Gracias
Jesús :huh:

4
Pascal / Re: Array De Caracteres
« en: Viernes 10 de Diciembre de 2004, 19:12 »
Hola a todos.

   Ante todo.. Muchas Gracias!! La verdad es que no poseo mucha experiencia en PASCAL, por lo que tengo unas duditas.

var
 Cadena: string[255];  {la m'axima longitud permitida]
  i : integer;
begin
 Cadena := 'Algo escrito por aqui jfjfiejdifjfusdafjsadfi';
  for i := 1 to Length(Cadena) do     <<----- Me dice que tome valor la i de 1 hasta la longitud de la cadena
  begin
      Cadena := upCase(Cadena); {esto lo pasa a mayusculas}
   end;
end.

  Pero si yo quiero que de la cadena escrita 'Algo escrito por aqui jfjfiejdifjfusdafjsadfi' me ponga en mayusculas de la primera e hasta la o de "por" y el resto lo deje IGUAL ¿Cómo lo hago?

GRACIAS por todo!!
Jesús  :D

5
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]