Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - Myth.ck

Páginas 1 2 3 4 5 6 7 8
#21
Programación General / Re: Manuales y libros de Delphi
20 Mayo 2009, 16:24 PM
Cita de: DarK_FirefoX en 21 Junio 2008, 03:29 AM
Por otra parte, una lastima que no mucha gente conozca delphi, me gustaria comentar mis dudas...

Lo cual lo hace mas interesante aún, porque la verdad es un lenguaje muy potente.

Salu2!
#22
Java / Re: metodo de ordenamiento
20 Mayo 2009, 15:48 PM
Código (scheme) [Seleccionar]
function quicksort(array)
     var list less, greater
     if length(array) ≤ 1 
         return array 
     select and remove a pivot value pivot from array
     for each x in array
         if x ≤ pivot then append x to less
         else append x to greater
     return concatenate(quicksort(less), pivot, quicksort(greater))

Salu2!
#23
Programación General / Re: Manuales y libros de Delphi
20 Mayo 2009, 14:41 PM
Download  :o

Thxs!

Salu2!

Edit:Great! Lo baje, es muy completo... Recomendado!
#24
Ejercicios / Ejercicio Conversión
19 Mayo 2009, 04:12 AM
Hola miren este problema:
Convertir un número entero de base 2 a base 4 por el método directo.

El método directo consiste en por ejemplo

Entrada: 1101001100

Separa el dígito de a dos, en este caso por ser la base de llegada igual a 4. En consecuencia:

11-01-00-11-00

Por conversión quedaría:

31030

Espero que eso no haya causado problemas.

Ahora este es el siguiente algoritmo que me gustaría que chekaran aver si existe una forma más fácil y como poder optimizarlo.

Código (scheme) [Seleccionar]
algoritmo Convierte;

variables
  dig_4,n_2,acu_n4,cnt_0,i son enteros;
  cnt_0_f es logico;
inicio
  leer n_2;
  acu_n4=0;
  cnt_0_f=verdadero;
  si n_2==0 entonces
    escribir "0";
  mientras n_2<>0 hacer
  inicio
    dig_4=n_2%100;
    en caso dig_4 sea
    1:
    inicio
    dig_4=1;
    cnt_0_f=falso;
    final;
    10:
    inicio
    dig_4=2;
    cnt_0_f=falso;
    final;
    11:
    inicio
    dig_4=3;
    cnt_0_f=falso;
    final;
    0:
   inicio
      si cnt_0_f==verdadero entonces
      cnt_0=cnt_0+1;
      dig_4=0;
    final;
    final;
    acu_n4=(acu_n4*10)+dig_4;
    n_2=n_2\100;
  final;
  mientras acu_n4<>0 hacer
  inicio
    dig_4=acu_n4%10;
    escribir dig_4;
    acu_n4=acu_n4\10;
  final;
  si cnt_0<>0 entonces
    para i=1 hasta cnt_0 hacer
    inicio
      escribir "0";
    final;
final
#25
Ejercicios / Re: Ejercicios Básicos
19 Mayo 2009, 01:37 AM
Aqui un nuevo reto, espero que lo resuelvan rápido aplicando el mejor método.  :xD

Mostrar los k primeros numeros naturales que verifiquen la condicion de poseer una cantidad impar de divisores

Suerte!
#26
.NET (C#, VB.NET, ASP) / Re: Abrir y cerrar bandeja.
18 Mayo 2009, 20:48 PM
De nada meta.

Salu2!
#27
.NET (C#, VB.NET, ASP) / Re: Ayudas o sugerencias - programa signo zodiaco
18 Mayo 2009, 18:11 PM
Pues de nada.
Cuando uno ayuda, tambien aprende muchas cosas, ya que no soy un Gurú de la programación.
Sin mas que decir.

Salu2!
#28
.NET (C#, VB.NET, ASP) / Re: Ayudas o sugerencias - programa signo zodiaco
18 Mayo 2009, 16:00 PM
Si  :xD anoche estuve hablando con el y aclarando un par de dudas que tenia. El problema creo que se ha solucionado.
#29
.NET (C#, VB.NET, ASP) / Re: Ayudas o sugerencias - programa signo zodiaco
18 Mayo 2009, 01:49 AM
Ahora arreglado el tema de la entrada con mayuscula o minuscula... Usando Ucase() Solo falta depurar un poco más los signos, pero creo que ya esta bien.

Código (vb) [Seleccionar]
Dim dia As String
Dim mes As String
Dim reponse As Boolean
Private Sub Form_Load()
    dia = InputBox("Ingrese dia", "Signos")
    If dia = "" Then
        End
    End If
    While (dia < 1) Or (dia > 31) Or (dia = "")
        MsgBox "Error, los meses solo contienen dias entre 1 y 31", vbOKOnly
        dia = InputBox("Ingrese dia", "Signos")
    Wend
    dia = Val(dia)
    mes = InputBox("Ingrese mes", "Signos")
    mes = UCase(mes)
    Select Case mes
        Case "ENERO"
        If dia < 21 Then
            MsgBox "CAPRICORNIO", vbOKOnly
        Else: MsgBox "ACUARIO", vbOKOnly
        End If
        Case "FEBRERO"
        If dia < 20 Then
            MsgBox "ACUARIO", vbOKOnly
        Else: MsgBox "PISCIS", vbOKOnly
        End If
        Case "MARZO"
        If dia < 21 Then
            MsgBox "PISCIS", vbOKOnly
        Else:  MsgBox "ARIES", vbOKOnly
        End If
        Case "ABRIL"
        If dia < 21 Then
             MsgBox "ARIES", vbOKOnly
        Else: MsgBox "TAURO", vbOKOnly
        End If
        Case "MAYO"
        If dia < 21 Then
            MsgBox "TAURO", vbOKOnly
        Else: MsgBox "GEMINIS", vbOKOnly
        End If
        Case "JUNIO"
        If dia < 21 Then
            MsgBox "GEMINIS", vbOKOnly
        Else: MsgBox "CANCER", vbOKOnly
        End If
        Case "JULIO"
        If dia < 24 Then
           MsgBox "CANCER", vbOKOnly
        Else: MsgBox "LEO", vbOKOnly
        End If
        Case "AGOSTO"
        If dia < 24 Then
            MsgBox "LEO", vbOKOnly
        Else: MsgBox "VIRGO", vbOKOnly
        End If
        Case "SETIEMBRE"
        If dia < 24 Then
            MsgBox "VIRGO", vbOKOnly
        Else: MsgBox "LIBRA", vbOKOnly
        End If
        Case "OCTUBRE"
        If dia < 24 Then
           MsgBox "LIBRA", vbOKOnly
        Else: MsgBox "ESCORPIO", vbOKOnly
        End If
        Case "NOVIEMBRE"
        If dia < 22 Then
            MsgBox "ESCORPIO", vbOKOnly
        Else: MsgBox "SAGITARIO", vbOKOnly
        End If
        Case "DICIEMBRE"
        If dia < 22 Then
            MsgBox "SAGITARIO", vbOKOnly
        Else: MsgBox "CAPRICORNIO", vbOKOnly
        End If
        Case Else
        MsgBox "Error", vbOKOnly
End Select
End
End Sub
#30
.NET (C#, VB.NET, ASP) / Re: Ayudas o sugerencias - programa signo zodiaco
18 Mayo 2009, 01:08 AM
Código (vb) [Seleccionar]
Dim dia As String
Dim mes As String
Dim reponse As Boolean
Private Sub Form_Load()
    dia = InputBox("Ingrese dia", "Signos")
    If dia = "" Then
        End
    End If
    While (dia < 1) Or (dia > 31) Or (dia = "")
        MsgBox "Error, los meses solo contienen dias entre 1 y 31", vbOKOnly
        dia = InputBox("Ingrese dia", "Signos")
    Wend
    dia = Val(dia)
    mes = InputBox("Ingrese mes", "Signos")
    Select Case mes
        Case "enero"
        If dia < 21 Then
            MsgBox "CAPRICORNIO", vbOKOnly
        Else: MsgBox "ACUARIO", vbOKOnly
        End If
        Case "febrero"
        If dia < 20 Then
            MsgBox "ACUARIO", vbOKOnly
        Else: MsgBox "PISCIS", vbOKOnly
        End If
        Case "marzo"
        If dia < 21 Then
            MsgBox "PISCIS", vbOKOnly
        Else:  MsgBox "ARIES", vbOKOnly
        End If
        Case "abril"
        If dia < 21 Then
             MsgBox "ARIES", vbOKOnly
        Else: MsgBox "TAURO", vbOKOnly
        End If
        Case "mayo"
        If dia < 21 Then
            MsgBox "TAURO", vbOKOnly
        Else: MsgBox "GEMINIS", vbOKOnly
        End If
        Case "junio"
        If dia < 22 Then
            MsgBox "GEMINIS", vbOKOnly
        Else: MsgBox "CANCER", vbOKOnly
        End If
        Case "julio"
        If dia < 23 Then
           MsgBox "CANCER", vbOKOnly
        Else: MsgBox "LEO", vbOKOnly
        End If
        Case "agosto"
        If dia < 23 Then
            MsgBox "LEO", vbOKOnly
        Else: MsgBox "VIRGO", vbOKOnly
        End If
        Case "setiembre"
        If dia < 23 Then
            MsgBox "VIRGO", vbOKOnly
        Else: MsgBox "LIBRA", vbOKOnly
        End If
        Case "octubre"
        If dia < 23 Then
           MsgBox "LIBRA", vbOKOnly
        Else: MsgBox "ESCORPIO", vbOKOnly
        End If
        Case "noviembre"
        If dia < 22 Then
            MsgBox "ESCORPIO", vbOKOnly
        Else: MsgBox "SAGITARIO", vbOKOnly
        End If
        Case "diciembre"
        If dia < 22 Then
            MsgBox "SAGITARIO", vbOKOnly
        Else: MsgBox "CAPRICORNIO", vbOKOnly
        End If
        Case Else
        MsgBox "Error", vbOKOnly
End Select
End Sub
Páginas 1 2 3 4 5 6 7 8