A partir de las cadenas de caracteres 70809207 y Q, construir y
visualizar en la pantalla la cadena 70809207-Q.

PROGRAM EJER61; 
        USES CRT;

        VAR numero:LONGINT;
        VAR letra:STRING;
BEGIN
     ClrScr;

     numero:=56789312;
     letra:='F';

     WRITE ('EL NUMERO DEL DNI ES: ');
     WRITE (numero,'-',+ letra);
END.


PROGRAM EJER61;
        USES CRT;
        VAR cad1,cad2:STRING;
BEGIN
     cad1:='56789312';
     cad2:='X';

     ClrScr;

     WRITE('NIF:' + cad1 + '-' + cad2);
END.

Transformar la cadena "Esto es una prueba", en la cadena "Esto es
prueba".
Utilizar la función DELETE(S,P,N) que elimina N caracteres de la
cadena S, a partir de la posición P.

PROGRAM EJER62; 
        USES CRT;

        VAR frase:STRING;
BEGIN
     ClrScr;

     {Transforma la cadena "Esto es una prueba" en "Esto es prueba"}

     WRITELN ('Este programa suprime un numero determinado de
letras');
     WRITELN ('');

     frase:='Esto es una prueba';
     WRITELN (frase);

     DELETE (frase,9,4);
     WRITELN (frase);
END.

PROGRAM EJER62;
        USES CRT;
        VAR cad1,cad2:STRING;
BEGIN
     cad1:='Esto es una prueba';

     ClrScr;

     WRITELN(cad1);
     DELETE(cad1,9,4);
     WRITELN(cad1);
END.

Transformar la cadena Curso de Pascal en la cadena Curso de
Programación en Pascal.
Utilizar la función INSERT(SO,SD,P) que inserta la cadena SO en
la cadena SD a partir de la posición P.

PROGRAM EJER63; 
        USES CRT;

        VAR frase1:STRING;
        VAR frase2:STRING;
BEGIN
     ClrScr;

     {Este programa inserta la frase2 en la frase1}

     WRITELN ('Se introducira la frase2 en la frase1');
     WRITELN ('');

     frase1:='Curso de Pascal';
     frase2:='Programacion en ';

     WRITE ('Frase1: ');      WRITELN (frase1);
     WRITE ('Frase2: ');      WRITELN (frase2);
     WRITELN ('');

     insert (frase2,frase1,10);

     WRITELN (frase1);
END.


PROGRAM EJER63;
        USES CRT;
        VAR cad1,cad2:STRING;
BEGIN
     cad1:='Curso de Pascal';
     cad2:='Programacion en ';

     ClrScr;

     WRITELN(cad1);
     INSERT(cad2,cad1,10);
     WRITELN(cad1);
END.


Transformar los valores 91 y 8631217 almacenados en dos variables
de tipo REAL en la cadena 91-8631217. Previamente transformar los dos
valores numéricos a variables tipo cadena con la función STR(X,S)
que almacena en S, como una cadena alfanumérica, el valor X.

PROGRAM EJER64; 
        USES CRT;

        VAR valor1, valor2:REAL;
        VAR valor_1, valor_2:STRING;
BEGIN
     ClrScr;

     valor1:=91;
     valor2:=5550908;

     STR(valor1:5:2, valor_1);
     STR(valor2:10:2, valor_2);

     WRITELN (valor_1,' - ', + valor_2);
END.



PROGRAM EJER64;
        USES CRT;
        VAR val1,val2:REAL;
        VAR cad1,cad2:STRING;
BEGIN
     val1:=91;
     val2:=5550908;

     STR(val1,cad1);
     STR(val2,cad2);

     ClrScr;

     WRITELN(cad1 + '-' + cad2);
END.


Concatenar las cadenas El, hombre, invisible en una sola el hombre
invisible.
Utilizar la función CONCAT (S1,S2,S3...) que retorna la concatenación
de todas las cadenas pasadas como parámetros.

PROGRAM EJER65; 
        USES CRT;

        VAR S1, S2, S3:STRING;
        VAR cadena_final:STRING;
BEGIN
     ClrScr;

     S1:='El';
     S2:=' hombre';
     S3:=' invisible';

     cadena_final:=CONCAT(S1,S2,S3);

     WRITE (cadena_final);
END.


PROGRAM EJER65;
        USES CRT;
        VAR cad1,cad2,cad3,cad4,esp:STRING;
BEGIN
     cad1:='el';
     cad2:='hombre';
     cad3:='invisible';
     esp:=' ';

     cad4:=CONCAT(cad1,esp,cad2,esp,cad3);

     ClrScr;

     WRITELN(cad1);
     WRITELN(cad2);
     WRITELN(cad3);
     WRITELN(cad4);
END.

Extraer la cadena SOFIA de la cadena FILOSOIA. Utilizar la función
COPY(S,P,N), que devuelve una subcadena de S, de N caracteres, el
primero de los cuales ocupa la posición P de S.

PROGRAM EJER66; 
        USES CRT;

        VAR S1,S2:STRING;
BEGIN
     ClrScr;

     S1:='FILOSOFIA';

     S1:=COPY (S1,5,5); {'SOFIA'}

     WRITE (S1);
END.


PROGRAM EJER66;
        USES CRT;
        VAR cad1,cad2:STRING;
BEGIN
     cad1:='FILOSOFIA';
     cad2:=COPY(cad1,5,5);

     ClrScr;

     WRITELN(cad1);
     WRITELN(cad2);
END.

Obtener la longitud de la cadena esternocleidomastoideo, utilizando
la función LENGTH(S), que devuelve la longitud de la cadena S.

PROGRAM EJER67; 
        USES CRT;

        VAR cadena:STRING;
BEGIN
     ClrScr;

     WRITELN ('Introduzca una cadena para saber su longitud:');
     WRITELN ('');

     READLN (cadena);

     WRITELN ('');   WRITE ('La longitud de la cadena es de: ');

     WRITE (LENGTH(cadena),' caracteres');
END.


Obtener la primera posición en la que comienza la subcadena fragi
en la cadena supercalifragilisticoexpialidoso. Utilizar la función
POS(SB,S) que devuelve la posición de la primera aparición de
la subcadena SB en la cadena S.

PROGRAM EJER68; 
        USES CRT;

        VAR cadena:STRING;
        VAR subcadena:STRING;
        VAR posi:INTEGER;
BEGIN
     ClrScr;

     cadena:='supercalifragilisticoexpialidoso';
     subcadena:='fragi';

     posi:=POS(subcadena,cadena);

     WRITE (posi);
END.


PROGRAM EJER68;
        USES CRT;
        VAR cad1,cad2:STRING;
        VAR posi:INTEGER;
BEGIN
     cad1:='supercalifragilisticoexpialidoso';
     cad2:='fragi';
     posi:=POS(cad2,cad1);

     ClrScr;

     WRITE('Posicion: ');       WRITELN(posi);
END.


Transformar la cadena Lenguaje Pascal en la cadena LENGUAJE PASCAL.
Utilizar la función UPCASE(C) que transforma un carácter C a
mayúscula.

PROGRAM EJER69; 
        USES CRT;

        VAR cadena:STRING;
        VAR i:INTEGER;
BEGIN
     ClrScr;

     cadena:='Lenguaje Pascal';

     i:=0;

     FOR i:=1 TO LENGTH(cadena) DO
     cadena[i]:=UPCASE(cadena[i]);

     WRITE (cadena);
     i:= i + 1;
END.


PROGRAM EJER69;
        USES CRT;
        VAR i:INTEGER;
        VAR cad1:STRING;
BEGIN
     i:=0;
     cad1:='Lenguaje Pascal';

     ClrScr;

     WRITELN(cad1);

     WHILE i <= LENGTH(cad1) DO
     BEGIN
          cad1[i]:=UPCASE(cad1[i]);
          i:=i+1;
     END;

     WRITELN(cad1);
END.


Transformar la cadena "VACA" en la cadena "vaca".

PROGRAM EJER70; 
        USES CRT;

        VAR cadena:STRING;
        VAR i, v_ascii:INTEGER;
BEGIN
     ClrScr;

     cadena:='VACA';

     FOR i:=1 TO LENGTH (cadena) DO
     BEGIN
          v_ascii:=ORD (cadena[i]);
          cadena[i]:=(CHR(v_ascii+32));
     END;

     WRITE (cadena);
END.


PROGRAM EJER70;
        USES CRT;
        VAR i,val_asc:INTEGER;
        VAR cad1:STRING;
BEGIN
     i:=0;
     cad1:='VACA';

     ClrScr;

     WRITELN(cad1);

     WHILE i <= LENGTH(cad1) DO
     BEGIN
          val_asc:=ORD(cad1[i]);
          cad1[i]:=(CHR(val_asc+32));
          i:=i+1;
     END;

     WRITELN(cad1);
END.

Volver