1. Determine la salida al ejecutarse las siguientes sentencias.
var
cad : string[5];
cad1 : string[10];
cad2 : string[3];
cad3 : string[25];
i,j : integer;
.......
cad:='Fabuloso';
ca1:=cad;
delete (str1,4,length(cad)-3);
cad:=cad1;
cad3:=copy(cad2,1,2);
2. Determina la salida del siguiente programa
program cadenas1;
var
cad1 : string[6];
cad2 : string[20]:
cad3 : string[25];
aux : string[10];
i,j : integer;
begin
cad1:='Julio';
cad2:='alejandro';
j:=pos('x',cad2);
aux:=cad2;
delete(cad2,j+1,length(cad2)-j);
cad3:=cad2;
i:=length(cad3);
cad2:=aux;
aux:=cad3;
cad3:=concat(cad3,cad1);
cad3:=cad3+aux;
writeln(cad1,' ',cad2,' ',cad3,' ',i,' ',j)
end.
3. Determine la salida de este otro programa
program cadenas2;
var
cad,aux : string[25];
cas1 : string[25];
cad2 : string[3];
k,m,n : integer;
begin
cad:='Picapiedra';
m:=length(cad);
n:=pos(' ',cad);
cad1:=cad;
k:=pos(' ',cad1);
writeln(m,n,cad1:m,cad2:n);
end.
4. ¿Cual es la salida del siguiente programa?
for i:= 1 to 4 do
write(cadena[1]);
writeln;
cadena[1]:='b';
cadena[4]:='j';
for i:=1 to 4 do
write(cadena[i]);
cadena[1]:='d';
grande:=cadena+'musa';
writeln;
writeln;
end.
5. Escriba una funcion buscar que reciba como parametro una cadena y devuelva la posicion de la primera ocurrencia del caracter 'i', por ejemplo si el parametro recibido se llama cad y su valor es 'Cocina', la funcion devera devolver 4
6. Modifique el programa anterior para reciba ademas un parametro de tipo char, que sera el caracter que buscara la funcion.
7. Escriba un programa que reciba una frase y sustituya la secuencia de dos blancos por uno solo, ejemplo 'La casa es muy bonita', debera dar como resultado 'La casa es muy bonita'
8. Escriba un programa que visualize cada palabra de una frase en renglones separados.
9. Escriba un program que determine cuantas veces aparece cada letra de una frase. Ejemplo: 'Roberto Garcia', el resultado sera, R=1, o=2, b=1, e=1, r=2, t=1, G=1, a=2, c=1, i=1
