• Lunes 16 de Septiembre de 2019, 16:21

Autor Tema:  Juego De Palabras  (Leído 818 veces)

micropais

  • Miembro activo
  • **
  • Mensajes: 93
    • Ver Perfil
Juego De Palabras
« en: Domingo 18 de Diciembre de 2005, 15:02 »
0
:ph34r: Up otxetorud y or = Rup otxetorud yo = texto puro y duro :ph34r:
comprueba con este miniprograma los resultados que ademas son son reversibles ,o leelo de derecha a izquierda .... o mejor prueba con palabras como NABUCO o alguna que se te suene mucho o se te  ocurra.


Código: Text
  1.  
  2. uses crt,uraton,ucadenas;
  3. var cadena,cadenai:string;
  4.     cadena1,cadena2,cadena3,cadena4:string;
  5.     cadenaL,cadenaR:string;
  6.  
  7.     longitud:byte;
  8.     a:integer;
  9.     tmp:char;
  10.     espera:integer;
  11.     dato:string;
  12.  
  13. function rotar_izquierda(cadena:string):string;
  14. { rota un caracter hacia la izquerda la cadena }
  15.     var
  16.         longitud:byte;
  17.         tmp:char;
  18.         a:integer;
  19.     begin
  20.       if cadena<>'' then
  21.       begin
  22.         longitud:=length(cadena);
  23.         tmp:=cadena[1];
  24.         for a:=1 to longitud do
  25.         begin
  26.         cadena[a]:=cadena[a+1];
  27.         end;
  28.         cadena[longitud]:=tmp;
  29.         rotar_izquierda:=cadena;
  30.       end
  31.       else
  32.       begin
  33.       rotar_izquierda:='';
  34.       end;
  35.     end;
  36.  
  37. function rotar_derecha(cadena:string):string;
  38. { rota un caracter hacia la derecha la cadena }
  39.      var
  40.         longitud:byte;
  41.         tmp:char;
  42.         a:integer;
  43.    begin
  44.         longitud:=length(cadena);
  45.         tmp:=cadena[longitud];
  46.       if cadena<>'' then
  47.       begin
  48.         for a:=longitud downto 1 do
  49.         begin
  50.         cadena[a]:=cadena[a-1];
  51.         end;
  52.         cadena[1]:=tmp;
  53.         rotar_derecha:=cadena;
  54.       end
  55.       else
  56.       begin
  57.       rotar_derecha:='';
  58.       end;
  59.    end;
  60. function cadena_inversa(ww:string):string;
  61. { invierte la cadena de la forma "HOLA" ->"ALOH" }
  62.    var a:integer;
  63.        xx:string;
  64.    begin
  65.    xx:='';
  66.    for a:=length(ww) downto 1 do
  67.     begin
  68.     xx:=xx+(ww[a]);
  69.     end;
  70.     cadena_inversa:=xx;
  71.    end;
  72.  
  73.  
  74. begin
  75. textcolor(7);
  76. clrscr;
  77.  
  78. repeat
  79.  
  80. readln(dato);
  81. clrscr;
  82.  
  83. cadena:=dato;
  84. cadenai:=cadena_inversa(cadena);
  85. cadena1:=rotar_derecha(cadena);
  86. cadena2:=rotar_derecha(cadenai);
  87.  
  88.        for a:=1 to length(cadena) do
  89.        begin
  90.        cadena1:=rotar_izquierda(cadena1);
  91.        cadena2:=rotar_izquierda(cadena2);
  92.  
  93.        writeln(capitalizar(cadena1),' ',capitalizar(cadena2));
  94.        end;
  95.  
  96. until dato='';
  97.  
  98.  
  99. end.
  100.  
  101.  
  102.  


ATSAHOGEUL    :hola: