elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.
 
Inicio Ayuda Buscar Ingresar Registrarse
28 Mayo 2012, 21:48  


Tema destacado: Sigue las noticias más importantes de elhacker.net en ttwitter!

+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General (Moderador: Littlehorse)
| | |-+  Gente, Ayuda para Convertir Codigo
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Gente, Ayuda para Convertir Codigo  (Leído 630 veces)
kevinxp06

Desconectado Desconectado

Mensajes: 2


Ver Perfil
Gente, Ayuda para Convertir Codigo
« en: 23 Abril 2011, 22:06 »

Chicos, aunque casi siempre navego en la pagina, y es la precursora de mis ganas de aprender a programar, me veo imposibilitado de covertir un simple codigo.
Necesito convertir un este codigo a PSEINT, o en su defecto, al menos realizar uno parecido.
Puedo hacer el codigo en Java, en C+ y este... pero no puedo realizar la formula en PSEint, me siento totalmente vulnerable. Si alguien me da una mano, desde ya agradecido.

Este es el codigo:

Código
function MakeArray(n) {
 
  this.length = n;
 
  for (var i = 1; i <=n; i++) {
 
    this[i] = 0;
  }
}
 
days = new MakeArray(7);
 
days[0] = "Sábado"
days[1] = "Domingo"
days[2] = "Lunes"
days[3] = "Martes"
days[4] = "Miércoles"
days[5] = "Jueves"
days[6] = "Viernes"
 
months = new MakeArray(12);
 
months[1] = "Enero"
months[2] = "Febrero"
months[3] = "Marzo"
months[4] = "Abril"
months[5] = "Mayo"
months[6] = "Junio"
months[7] = "Julio"
months[8] = "Agosto"
months[9] = "Septiembre"
months[10] = "Octubre"
months[11] = "Noviembre"
months[12] = "Diciembre"
 
function compute(form) {
  var val1 = parseInt(form.day.value, 10)
 
  if ((val1 < 0) || (val1 > 31)) {
     alert("Day is out of range")
  }
 
  var val2 = parseInt(form.month.value, 10)
 
  if ((val2 < 0) || (val2 > 12)) {
     alert("Month is out of range")
  }
 
  var val2x = parseInt(form.month.value, 10)
 
  var val3 = parseInt(form.year.value, 10)
 
  if (val3 < 1900) {
     alert("You're that old!")
  }
 
  if (val2 == 1) {
     val2x = 13;
     val3 = val3-1
  }
 
  if (val2 == 2) {
     val2x = 14;
     val3 = val3-1
  }
 
  var val4 = parseInt(((val2x+1)*3)/5, 10)
  var val5 = parseInt(val3/4, 10)
  var val6 = parseInt(val3/100, 10)
  var val7 = parseInt(val3/400, 10)
  var val8 = val1+(val2x*2)+val4+val3+val5-val6+val7+2
  var val9 = parseInt(val8/7, 10)
  var val0 = val8-(val9*7)
 
  form.result1.value = months[val2]+" "+form.day.value +", "+form.year.value
  form.result2.value = days[val0]
}


« Última modificación: 23 Abril 2011, 23:20 por Novlucker » En línea
kevinxp06

Desconectado Desconectado

Mensajes: 2


Ver Perfil
Re: Gente, Ayuda para Convertir Codigo
« Respuesta #1 en: 23 Abril 2011, 22:08 »

Disculpen, me falto decir que la idea es conocer el dia de la semana, o sea Lunes, martes, miercoles.etc...
Los datos a ingresar son: la fecha numerica del dia, el numero del mes y el año.

No me dan los parentesis de la formula en pseint, no se que ocurre.

Si alguien puede darme una mano, lo agradeceria.
y antes de que se presente el inoportuno comentario, no es una tarea, ni un trabajo, ni nada por el estilo.
Estoy migrando desde windows a linux y deseo aprender a programar.
Me dirigi a un amigo programador para que me colaborara con algunos ejercicios, de los cuales he resuelto todos, pero este me tiene intrigado.
Lo mas lejos que he llegado ah sido esto, luego de varios intentos, pero no funciona:

Proceso diasemana2
   Escribir "Ingrese un Dia de la Semana (0-6 Siendo 0 Domingo)"
   Leer dia
   Escribir "Ingrese el Mes (1-12)"
   leer mes
   Escribir "Ingrese el Año"
   leer año
   v1<-dia
   v2<-mes
   v3<-año
   v4<-((mes+1)*3/5)
   v5<-(año/v4)
   v6<-(año/100)
   v7<-(año/400)
   v8<-dia+(mes*2)+v4+v3+v5-v6+v7+2
   v9<-(v8/7)
   v0<-v8-(v9*7)
   diasem<-v0
   Si dia>6 o dia < 0 & mes < 1 o mes > 12 Entonces
      Escribir "Error en el ingreso"
   Sino
   FinSi
   Escribir v0
FinProceso


« Última modificación: 23 Abril 2011, 22:54 por kevinxp06 » En línea
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Powered by SMF 1.1.16 | SMF © 2006-2008, Simple Machines