Programación General > Pascal

 Juego De Palabras

(1/1)

micropais:
: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 --- uses crt,uraton,ucadenas;var cadena,cadenai:string;    cadena1,cadena2,cadena3,cadena4:string;    cadenaL,cadenaR:string;     longitud:byte;    a:integer;    tmp:char;    espera:integer;    dato:string; function rotar_izquierda(cadena:string):string;{ rota un caracter hacia la izquerda la cadena }    var        longitud:byte;        tmp:char;        a:integer;    begin      if cadena<>'' then      begin        longitud:=length(cadena);        tmp:=cadena[1];        for a:=1 to longitud do        begin        cadena[a]:=cadena[a+1];        end;        cadena[longitud]:=tmp;        rotar_izquierda:=cadena;      end      else      begin      rotar_izquierda:='';      end;    end; function rotar_derecha(cadena:string):string;{ rota un caracter hacia la derecha la cadena }     var        longitud:byte;        tmp:char;        a:integer;   begin        longitud:=length(cadena);        tmp:=cadena[longitud];      if cadena<>'' then      begin        for a:=longitud downto 1 do        begin        cadena[a]:=cadena[a-1];        end;        cadena[1]:=tmp;        rotar_derecha:=cadena;      end      else      begin      rotar_derecha:='';      end;   end;function cadena_inversa(ww:string):string;{ invierte la cadena de la forma "HOLA" ->"ALOH" }   var a:integer;       xx:string;   begin   xx:='';   for a:=length(ww) downto 1 do    begin    xx:=xx+(ww[a]);    end;    cadena_inversa:=xx;   end;  begintextcolor(7);clrscr; repeat readln(dato);clrscr; cadena:=dato;cadenai:=cadena_inversa(cadena);cadena1:=rotar_derecha(cadena);cadena2:=rotar_derecha(cadenai);        for a:=1 to length(cadena) do       begin       cadena1:=rotar_izquierda(cadena1);       cadena2:=rotar_izquierda(cadena2);        writeln(capitalizar(cadena1),' ',capitalizar(cadena2));       end; until dato='';  end.   

ATSAHOGEUL    :hola:

Navegación

[0] Índice de Mensajes