elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Guía rápida para descarga de herramientas gratuitas de seguridad y desinfección


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Hola estoy intentado hacer una suma pero me sale SE ESPERABA FIN DE INSTRUCCION
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Hola estoy intentado hacer una suma pero me sale SE ESPERABA FIN DE INSTRUCCION  (Leído 1,356 veces)
Julio24quimic

Desconectado Desconectado

Mensajes: 1


Ver Perfil
Hola estoy intentado hacer una suma pero me sale SE ESPERABA FIN DE INSTRUCCION
« en: 10 Mayo 2019, 20:23 pm »

Hola estoy intentado hacer esta serie= pi^3/32=1-1/3¡+1/5¡-1/7¡+1/9¡...... Dim n As Integer
        Dim i As Integer
        Dim p As Integer
        Dim q As Integer
        Dim a As Double
        Dim b As Double
        Dim expo1 As Double
        Dim expo2 As Double
        Dim pi As Double
        'proceso
        n = Val(TextBox1.Text)
        a = 1
        b = 1
        i = 1
        p = 1
        q = 0
        expo1 = 0
        expo2 = 0
        Do While i <= n
            If i Mod 2 = 0 Then
                b = b / ((i + p) ^ 3))
                p = p + 2
                expo2 = expo2 + b
                b = 1
            Else
                a = a * (1 / ((i + q) ^ 3))
                q = q + 2
                expo1 = expo1 + a
                a = 1
            End If
            i = 1 + 1
        Loop
        pi = expo1 - expo2
        'salida
        Label3.Text = Str(pi)
    End Sub
me podrian ayudar por que me sale eso o si se puede hcer de una manera mas facil ayuda porfavor


En línea

Serapis
Colaborador
***
Desconectado Desconectado

Mensajes: 2.698


Ver Perfil
Re: Hola estoy intentado hacer una suma pero me sale SE ESPERABA FIN DE INSTRUCCION
« Respuesta #1 en: 11 Mayo 2019, 00:11 am »

En la línea: b = b / ((i + p) ^ 3))
Tienes 2 parentesis de apertura y 3 de cierre. Pero vamos, el error te lo debe cantar el propio editor al cambiar de color la línea afectada...

Debiera ser:
Código
  1. b = (b / ((i + p) ^ 3))

Aparte encuentro lun error semántico en la línea: i = 1 + 1
Supongo que la idea es incrementar 'i' en una unidad... si no generas un bucle infinito, salvo que n=2, porque 'i' al llegar ahí siempre será 2.
 
Luego debiera ser:
Código
  1. i = (i + 1)
Mi consejo es no usar variables que se presten a confusión por culpa de la fuente usada, 'i', 'l', 'o', mejor 'j', 'k', 'n'... a veces uno pued eno confundirlas nunca, pero al recurrir a alguien que transcribe, si puede errar y no darle importancia... (suele pasar en libros, por ejemplo, o a las prisas).


En cuanto al código se puede simplificar bastante...
Código
  1. Private Sub Command1_Click()
  2.    Dim n  As Integer, i As Integer
  3.    Dim expo1 As Double, expo2 As Double, v As Double
  4.    Dim pseudoPi As Double    
  5.    Const Pi As Double = 3.14159265358979
  6.  
  7.    'proceso
  8.    n = Val(TextBox1.Text)
  9.    i = 1
  10.    Do While (i <= n)
  11.        v = (1 / ((i + i - 1) ^ 3))
  12.        If (i And 1) Then
  13.            expo1 = (expo1 + v)
  14.        Else
  15.            expo2 = (expo2 + v)
  16.        End If
  17.        i = (i + 1)
  18.    Loop
  19.    pseudoPi = (expo1 - expo2)
  20.  
  21.    'salida
  22.    'Label3.Text = Str(pseudoPi) ' usa preferentemente cstr(x), porque  str(x) solo reconoce el '.' como separador de decimales.
  23.    Debug.Print "Calculado: " & CStr(pseudoPi) & vbCrLf & "Número Pi: " & CStr((Pi ^ 3) / 32)
  24. End Sub
  25.  


« Última modificación: 11 Mayo 2019, 00:14 am por NEBIRE » En línea

PirSys

Desconectado Desconectado

Mensajes: 6


Ver Perfil
Re: Hola estoy intentado hacer una suma pero me sale SE ESPERABA FIN DE INSTRUCCION
« Respuesta #2 en: 29 Agosto 2019, 19:05 pm »

creo que podrias utilizar un ciclo for next, antes que un do while. saludos

En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines