Plantemiento 13.

NUMERO ARABIGO

ENTRADA: ingrasar un numero de 1 a 20.
PROCESO: INGRESAR DATOS.
SALIDA:mostrar si es positivo o negativo
                si el numero es par o impar,
                el numero escrito en letras,
                escrito en la numeracion  romana.


 Proceso Numero_Arabigo
    Escribir "Ingrese un numero entre 1 y 20:";
Leer numero;
  Si numero >= 0 Entonces;
    Escribir "Numero POSITIVO";
Sino;
  Escribir "Numero NEGATIVO";
FinSi;
  residuo = numero mod 2;
Si residuo = 0 Entonces;
   Escribir "Numero PAR";
Sino;
   Escribir "Numero IMPAR";
FinSi;
Escribir "Escritura en espanol:";
   Segun numero Hacer;
1: Escribir "Uno";
2: Escribir "Dos";
3: Escribir "Tres";
4: Escribir "Cuatro";
5: Escribir "Cinco";
6: Escribir "Seis";
7: Escribir "Siete";
8: Escribir "Ocho";
9: Escribir "Nueve";
10: Escribir "Diez";
11: Escribir "Once";
12: Escribir "Doce";
13: Escribir "Trece";
14: Escribir "Catorce";
15: Escribir "Quince";
16: Escribir "Dieciseis";
17: Escribir "Diecisiete";
18: Escribir "Dieciocho";
19: Escribir "Diecinueve";
20: Escribir "Veinte";

-1: Escribir "Menos Uno";
-2: Escribir "Menos Dos";
-3: Escribir "Menos Tres";
-4: Escribir "Menos Cuatro";
-5: Escribir "Menos Cinco";
-6: Escribir "Menos Seis";
-7: Escribir "Menos Siete";
-8: Escribir "Menos Ocho";
-9: Escribir "Menos Nueve";
-10: Escribir "Menos Diez";
-11: Escribir "Menos Once";
-12: Escribir "Menos Doce";
-13: Escribir "Menos Trece";
-14: Escribir "Menos Catorce";
-15: Escribir "Menos Quince";
-16: Escribir "Menos Dieciseis";
-17: Escribir "Menos Diecisiete";
-18: Escribir "Menos Dieciocho";
-19: Escribir "Menos Diecinueve";
-20: Escribir "Menos Veinte";
FinSegun;
Escribir "Escritura en ingles:";
Segun numero Hacer;
1: Escribir "One";
2: Escribir "Two";
3: Escribir "Three";
4: Escribir "Four";
5: Escribir "Five";
6: Escribir "Six";
7: Escribir "Seven";
8: Escribir "Eight";
9: Escribir "Nine";
10: Escribir "Ten";
11: Escribir "Eleven";
12: Escribir "Twelve";
13: Escribir "Thirteen";
14: Escribir "Fourteen";
15: Escribir "Fifteen";
16: Escribir "Sixteen";
17: Escribir "Seventeen";
18: Escribir "Eighteen";
19: Escribir "Nineteen";
20: Escribir "Twenty";

1: Escribir "Minus One";
-2: Escribir "Minus Two";
-3: Escribir "Minus Three";
-4: Escribir "Minus Four";
-5: Escribir "Minus Five";
-6: Escribir "Minus Six";
-7: Escribir "Minus Seven";
-8: Escribir "Minus Eight";
-9: Escribir "Minus Nine";
-10: Escribir "Minus Ten";
-11: Escribir "Minus Eleven";
-12: Escribir "Minus Twelve";
-13: Escribir "Minus Thirteen";
-14: Escribir "Minus Fourteen";
-15: Escribir "Minus Fifteen";
-16: Escribir "Minus Sixteen";
-17: Escribir "Minus Seventeen";
-18: Escribir "Minus Eighteen";
-19: Escribir "Minus Nineteen";
-20: Escribir "Minus Twenty";
FinSegun;
Escribir "Escritura en numeracion romana:";
Segun numero Hacer;
1: Escribir "I";
2: Escribir "II";
3: Escribir "III";
4: Escribir "IX";
5: Escribir "V";
6: Escribir "VI";
7: Escribir "VII";
8: Escribir "VIII";
9: Escribir "IX";
10: Escribir "X";
11: Escribir "XI";
12: Escribir "XII";
13: Escribir "XIII";
14: Escribir "XIV";
15: Escribir "XV";
16: Escribir "XVI";
17: Escribir "XVII";
18: Escribir "XVIII";
19: Escribir "XIX";
20: Escribir "XX";
FinSegun;
FinProceso