• Viernes 23 de Agosto de 2019, 06:56

Autor Tema:  Array De Caracteres  (Leído 1727 veces)

.:Kioon:.

  • Nuevo Miembro
  • *
  • Mensajes: 5
    • Ver Perfil
Array De Caracteres
« en: Viernes 10 de Diciembre de 2004, 11:06 »
0
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

¡Un error ha ocurrido!

Class 'Geshi' not found