Proyecto pcint conversor a numeros mayas

Proceso Proyecto_convertidor_maya
Repetir
Limpiar Pantalla
Escribir 'escoga una opcion'
escribir '1. Datos Estudiante'
escribir '2. Convertidor maya'
escribir '3. Salir'
Leer op
Segunop hacer
1:
Limpiar Pantalla
Escribir 'Ingreso a datos del estudiante'
Escribir 'Nombre: Edward Ottoniel Pac reyes'
Escribir 'Carne: 0906-15-8477'
esperar tecla

2:Limpiar Pantalla
Escribir 'ingreso al Convertidor maya'
Escribir 'ingrese el numero a convertir'
Leer n
Repetir
Si n>=8000 Y n<=159999 Entonces
n4<-trunc(n/8000)
n<-nMOD 8000
Sino
Si n>=400 Y n<=7999 Entonces
n3<-trunc(n/400)
n<-n MOD 400
Sino
Si n>=20 Y n<=399 Entonces
n2<-trunc(n/20)
n<-n MOD 20
FinSiFinSi
FinSi
Hasta Que n<20
Limpiar Pantalla
Escribir ''
Escribir 'Nivel 4 X8000'
Escribir n4
simbo<-may4(n4)
Escribir ''
Escribir 'Nivel 3 X400'Escribir n3
simbo<-may3(n3)
Escribir ''
Escribir 'Nivel 2 X20'
Escribir n2
simbo<-may2(n2)
Escribir ''
Escribir 'Nivel 1 X1'
Escribir n
simbo<-may(n)
EsperarTecla
FinSegun
Hasta Que op = 3
FinProceso





































SubProceso simbo<-may4(n4)
Si n4=0 Entonces;Escribir '0O';sino;
Si n4=1 Entonces;escribir '.';Sino;
Si n4=2Entonces;Escribir '..';Sino;
Si n4=3 Entonces;Escribir '...';Sino;
Si n4=4 Entonces;Escribir '....';Sino;
Si n4=5 Entonces;Escribir '-----';Sino;
Si n4=6Entonces;Escribir '.';Escribir '-----'; Sino;
Si n4=7 Entonces;Escribir '..';Escribir '-----';sino;
Si n4=8 Entonces;Escribir '...';Escribir '-----';Sino;Si n4=9 Entonces;Escribir '....';Escribir '-----';Sino;
Si n4=10 Entonces;Escribir '-----';Escribir '-----';Sino;
Si n4=11 Entonces;Escribir '.';...