Pasaje de números a letras

Si lo escribiste con Lazarus, en las opciones de compilación tienes esa configuración estilo "C".

 
Estás en lo cierto, trabajo analizando los caracteres numéricos uno a uno y recursivamente en grupos.

Este es el código:

delphi

unit Literales;
 
interface
 
uses
  Windows, SysUtils, StrUtils;
 
function ToLiteral(N: String): String;
 
implementation
 
function ToLiteral(N: String): String;
function Numeros(N: String): String;
const
suf: array[0..7]of string=('e','i','ta y ','ta','','to ','ientos ','ientos ');
uni: array[0..19]of string=('','uno','dos','tres','cuatro','cinco','seis','siete','ocho','nueve',
'diez','once','doce','trece','catorce','quince','dieciseis','diecisite','dieciocho','diecinueve');
dec: array[2..9]of string=('veint','trein','cuaren','cincuen','sesen','seten','ochen','noven');
cen: array[1..9]of string=('cien','dosc','tresc','cuatroc','quin','seisc','setec','ochoc','noevec');
var
  tm: String;
  i: integer;
begin
  for i:= 1 to Length(N) do
  begin
    tm:= Numeros(copy(N, i, 3*WORD((i>3)and(i<5))+6*WORD(i>6))); // se copian 0, 3 ó 6 caracteres
    if i = 1 then                          // Unidades
      Result:= uni[ord(N[i])-48]
    else if (i = 2) and (N[i] = '1') then  // Decenas
      Result:= uni[ord(N[1])-38]
    else if (i = 2) and (N[i] > '1') then
      Result:=dec[ord(N[i])-48]+suf[WORD((N[i]='2')and(N[i-1]>'0'))+2*WORD(N[i]>'2')+WORD((N[i]>'2')
      and(N[i-1]='0'))]+Result
    else if (i = 3) and(N[i] >= '1')then   // Centenas
      Result:= cen[ord(N[i])-48]+suf[3+WORD(N[i]='1')+WORD((N[i]='1')and(N[i-1]>'0')or(N[i-2]>'0'))+
      3*WORD(N[i]>'1')]+Result
    else if (i = 4) and (tm = 'uno') then  // Millares
      Result:= 'mil ' + Result
    else if (i = 4) and (tm <> '') then
      Result:= tm + ' mil ' + Result
    else if (i = 7) and (N[i] = '1') then  //Millones
      Result:= 'un millón ' + Result
    else if (i = 7) and (tm <> '') then
      Result:= tm +  ' millones ' + Result
    else if (i = 13) and (N[i] = '1') then //Billones
      Result:= 'un billón ' + Result
    else if (i = 13) and (tm <> '') then
      Result:= tm + ' billones ' + Result
    else if (i = 19) and (N[i] = '1') then //Trillones
      Result:= 'un trillón ' + Result
    else if (i = 19) and (tm <> '') then
      Result:= tm + ' trillones ' + Result;
  end;
  Result:= Trim(Result);
end;
begin
  Result:= Numeros(ReverseString(N));
  if Result = '' then Result:= 'cero';
end;
 
end.

Saludos.

 

Efectivamente lo escribí en Lazarus y con esas directivas.

Pues encontré un bug en mi código que debo corregir y con ello aprovecho para recortarlo a 54 líneas:
 

unit Literales;
 
interface
 
uses
  Windows, SysUtils, StrUtils;
 
function ToLiteral(N: String): String;
 
implementation
 
function ToLiteral(N: String): String;
function Numeros(N: String): String;
const
suf: array[0..7]of string=('e','i','ta y ','ta','','to ','ientos ','ientos ');
uni: array[0..19]of string=('','uno','dos','tres','cuatro','cinco','seis','siete','ocho','nueve',
'diez','once','doce','trece','catorce','quince','dieciseis','diecisite','dieciocho','diecinueve');
dec: array[2..9]of string=('veint','trein','cuaren','cincuen','sesen','seten','ochen','noven');
cen: array[1..9]of string=('cien','dosc','tresc','cuatroc','quin','seisc','setec','ochoc','noevec');
mil: array[0..7]of string=(' mi',' tri',' cuari',' quinti',' sexti',' septi', ' octi',' noni');
var
  tm: String;
  i: integer;
begin
  for i:= 1 to Length(N) do
  begin
    tm:= Numeros(copy(N, i, 3*WORD((i>3)and(i<5))+6*WORD(i>6))); // se copian 0, 3 ó 6 caracteres
    if i = 1 then                          // Unidades
      Result:= uni[ord(N[i])-48]
    else if (i = 2) and (N[i] = '1') then  // Decenas
      Result:= uni[ord(N[1])-38]
    else if (i = 2) and (N[i] > '1') then
      Result:=dec[ord(N[i])-48]+suf[WORD((N[i]='2')and(N[i-1]>'0'))+2*WORD(N[i]>'2')+WORD((N[i]>'2')
      and(N[i-1]='0'))]+Result
    else if (i = 3) and(N[i] >= '1')then   // Centenas
      Result:= cen[ord(N[i])-48]+suf[3+WORD(N[i]='1')+WORD((N[i]='1')and(N[i-1]>'0')or(N[i-2]>'0'))+
      3*WORD(N[i]>'1')]+Result
    else if (i = 4) and (tm = 'uno') then  // Millares
      Result:= 'mil ' + Result
    else if (i = 4) and (tm <> '') then
      Result:= tm + ' mil ' + Result
    else if (i>6) and (((i-1) mod 6) = 0) and (tm = 'uno') then
      Result:= 'un' + mil[(i-7) div 6] + 'llón ' + Result
    else if (i>6) and (((i-1) mod 6) = 0) and (tm <> '') then
      Result:= tm + mil[(i-7) div 6] + 'llones ' + Result;
  end;
  Result:= Trim(Result);
end;
begin
  Result:= Numeros(ReverseString(N));
  if Result = '' then Result:= 'cero';
end;
 
end.

Como mi amigo cram llegó a los nonillones, aprovecho para implementar hasta ese número y recortarlo. Se podría recortar otras cuatro líneas más, pero me da un poco de pereza.

Saludos.

Muy interesante solución Escafandra. Y bueno que hayas detectado el bug.

Nunca me gustaron las soluciones usando fuerza bruta, siempre es bueno desmenuzar el problema primero y hallar una solución elegante.

El tema de la recursividad no es para los que andan en pañales y bien utilizado puede sorprender, como en el caso del imbatible QuickSort.

Hace poco intenté solucionar un problema usando recursividad, pero con lo que tengo en mente más interrupciones, ya es suficiente y lo dejé.

Respecto del código de Dragonlair, quiero decir algo: No sabía que Lazarus podía interpretar semejantes sentencias, parece híbrido no pascal. En verdad me sorprendió.

Creo que el desafío puede darse por más que resuelto.    Lo marcaré como resuelto si puedo. Y si luego alguien se prende bueno.

Al final mi código fue el más extenso. Aun así, pienso utilizarlo ya que comprendo su "lógica" (lógicamente).

Saludos

Buenas a todos, como nuevo en este foro encontre este post de hace un tiempo y me sirvio mucho el codigo de escafandra por cierto, muchas gracias a ti y a todos los participantes de este reto.

Comento sin embargo que al menos en mi pais ( URUGUAY ) , por ej. la cantidad 61241, se diria

sesenta y un mil doscientos cuarenta y uno, vean la sutil diferencia con el numero 1.. que dependiendo si es ultimo digito o no, su valor en letras

cambia entre UNO y UN.

estoy "tratando" de entender mejor dicho codigo y mejorarlo para interpretar el numero 1.

saludos.

Comento sin embargo que al menos en mi pais ( URUGUAY ) , por ej. la cantidad 61241, se diria
 
sesenta y un mil doscientos cuarenta y uno, vean la sutil diferencia con el numero 1.. que dependiendo si es ultimo digito o no, su valor en letras
cambia entre UNO y UN.

Bienvenido al foro, leobidi.

Una rápida adaptación puede ser esta:

unit Literales;
// 61001 se lee sesenta y un mil uno
// La versión previa leía sesenta y uno mil uno
 
 
interface
 
uses
  Windows, SysUtils, StrUtils;
 
function ToLiteral(N: String): String;
 
implementation
 
function ToLiteral(N: String): String;
function Numeros(N: String): String;
const
suf: array[0..7]of string=('e','i','ta y ','ta','','to ','ientos ','ientos ');
uni: array[0..19]of string=('','un','dos','tres','cuatro','cinco','seis','siete','ocho','nueve',
'diez','once','doce','trece','catorce','quince','dieciseis','diecisite','dieciocho','diecinueve');
dec: array[2..9]of string=('veint','trein','cuaren','cincuen','sesen','seten','ochen','noven');
cen: array[1..9]of string=('cien','dosc','tresc','cuatroc','quin','seisc','setec','ochoc','noevec');
mil: array[0..7]of string=(' mi',' tri',' cuari',' quinti',' sexti',' septi', ' octi',' noni');
var
  tm: String;
  i: integer;
begin
  for i:= 1 to Length(N) do
  begin
    tm:= Numeros(copy(N, i, 3*WORD((i>3)and(i<5))+6*WORD(i>6))); // se copian 0, 3 ó 6 caracteres
    if i = 1 then                          // Unidades
      Result:= uni[ord(N[i])-48]
    else if (i = 2) and (N[i] = '1') then  // Decenas
      Result:= uni[ord(N[1])-38]
    else if (i = 2) and (N[i] > '1') then
      Result:=dec[ord(N[i])-48]+suf[WORD((N[i]='2')and(N[i-1]>'0'))+2*WORD(N[i]>'2')+WORD((N[i]>'2')
      and(N[i-1]='0'))]+Result
    else if (i = 3) and(N[i] >= '1')then   // Centenas
      Result:= cen[ord(N[i])-48]+suf[3+WORD(N[i]='1')+WORD((N[i]='1')and(N[i-1]>'0')or(N[i-2]>'0'))+
      3*WORD(N[i]>'1')]+Result
    else if (i = 4) and (tm = 'un') then  // Millares
      Result:= 'mil ' + Result
    else if (i = 4) and (tm <> '') then
      Result:= tm + ' mil ' + Result
    else if (i>6) and (((i-1) mod 6) = 0) and (tm = 'un') then
      Result:= 'un' + mil[(i-7) div 6] + 'llón ' + Result
    else if (i>6) and (((i-1) mod 6) = 0) and (tm <> '') then
      Result:= tm + mil[(i-7) div 6] + 'llones ' + Result;
  end;
 // Result:= Trim(Result);
end;
begin
  Result:= Numeros(ReverseString(N));
  if Result = '' then Result:= 'cero';
  if Result[Length(Result)-1] = 'u' then Result:= Result + 'o';
end;
 
end.

Saludos.