Escribir numeros a palabras hasta 4 digitos, Pascal

Escribir numeros a palabras hasta 4 digitos

program NumeroAPalabras;

var
    numero_origen : integer;
    numero_origen_original : integer;
    miles, centenas, decenas, unidades : integer;
    miles_str, centenas_str, decenas_str, unidades_str : string;
    entre_decenas_y_unidades : string;
    numero_ordinal : string;
    
begin

read(numero_origen);
    numero_origen_original := numero_origen;

miles := numero_origen DIV 1000;
numero_origen := numero_origen MOD 1000;

centenas := numero_origen DIV 100;
numero_origen := numero_origen MOD 100;

decenas := numero_origen DIV 10;
numero_origen := numero_origen MOD 10;

unidades := numero_origen;

case miles of
1 : miles_str := 'MIL ';
2 : miles_str := 'DOS MIL ';
3 : miles_str := 'TRES MIL ';
4 : miles_str := 'CUATRO MIL ';
5 : miles_str := 'CINCO MIL ';
6 : miles_str := 'SEIS MIL ';
7 : miles_str := 'SIETE MIL ';
8 : miles_str := 'OCHO MIL ';
9 : miles_str := 'NUEVE MIL ';
end;

case centenas of
1 : centenas_str := 'CIENTO ';
2 : centenas_str := 'DOSCIENTOS ';
3 : centenas_str := 'TRESCIENTOS ';
4 : centenas_str := 'CUATROCIENTOS ';
5 : centenas_str := 'QUINIENTOS ';
6 : centenas_str := 'SEISCIENTOS ';
7 : centenas_str := 'SETECIENTOS ';
8 : centenas_str := 'OCHOCIENTOS ';
9 : centenas_str := 'NUEVECIENTOS ';
end;

case decenas of
1 : decenas_str := 'DIECI';
2 : decenas_str := 'VEINTI';
3 : decenas_str := 'TREINTA';
4 : decenas_str := 'CUARENTA';
5 : decenas_str := 'DIECI';
6 : decenas_str := 'SESENTA';
7 : decenas_str := 'SETENTA';
8 : decenas_str := 'OCHENTA';
9 : decenas_str := 'NOVENTA';
end;

case unidades of
1 : unidades_str := 'UNO';
2 : unidades_str := 'DOS';
3 : unidades_str := 'TRES';
4 : unidades_str := 'CUATRO';
5 : unidades_str := 'CINCO';
6 : unidades_str := 'SEIS';
7 : unidades_str := 'SIETE';
8 : unidades_str := 'OCHO';
9 : unidades_str := 'NUEVE';
end;

if (decenas_str <> 'DIEZ') and (decenas_str <> 'VEINTI') and (decenas_str <> 'VEINTE') and (unidades_str <> '') then
    
    entre_decenas_y_unidades := ' Y ' 
        else
    entre_decenas_y_unidades := '';
    
    if (decenas = 1) and (unidades = 0) then
    decenas_str := 'DIEZ';
    if (decenas = 1) and (unidades = 2) then
    decenas_str := 'DOCE';
    if (decenas = 1) and (unidades = 3) then
    decenas_str := 'TRECE';
    if (decenas = 1) and (unidades = 4) then
    decenas_str := 'CATORCE';
    if (decenas = 1) and (unidades = 5) then
    decenas_str := 'QUINCE';
    
    numero_ordinal:= miles_str + centenas_str + decenas_str + entre_decenas_y_unidades + unidades_str;
    
    writeln(numero_origen_original, ' escrito en palabras es ', numero_ordinal);
end.


run \| edit \| history \| help	0

λ

                                      .NET NoSQL database for rapid development