Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

ayuda con esta matriz urgente

Estas en el tema de ayuda con esta matriz urgente en el foro de Visual Basic clásico en Foros del Web. estoy haciendo un proyecto para mañana y me e quedado atorado el planteamiento es así CALCULA LA SUMA DE UN VECTOR CON "N" ELEMENTOS, Y ...
  #1 (permalink)  
Antiguo 24/10/2010, 18:31
 
Fecha de Ingreso: octubre-2010
Mensajes: 7
Antigüedad: 8 años, 11 meses
Puntos: 0
ayuda con esta matriz urgente

estoy haciendo un proyecto para mañana y me e quedado atorado

el planteamiento es así

CALCULA LA SUMA DE UN VECTOR CON "N" ELEMENTOS, Y DETERMINA SU MEDIA ARITMETICA.

solucion que e encontrado:

Module Module1

Sub Main()
Dim n, i As Integer
Dim suma, media As Double
WriteLine("Digite el numero de elementos a introducir")
n = ReadLine()
WriteLine()
WriteLine("NOTA: SI VAS A DIGITAR VALORES CON DECIMALES, ATENCION PON COMA Y NO PUNTO")
WriteLine("----------------------------_____________________--------------------------")
Dim vector(n) As Double
For i = 1 To n
WriteLine()
WriteLine(" Digita el valor del elemento " & i)

vector = (suma) + vector(1)
Código HTML:
---------- AKA ES DONDE ME E ATORADO ME SALE SUBRAYADO EN ASUL

Next
media = (suma) / (n)
WriteLine(" la suma de los elementos es:" & CDec(suma))
WriteLine(" La media de los elementos es: " & CDec(media))
WriteLine()
WriteLine("Preciona enter para salir")
WriteLine("___________________________")
End Sub

End Module

en el programa la secuancia donde dice vector = (suma) + vector(1) me sale subrayado y me dice un valor de tipo double no se puede convertir en 1-matriz dimencional de double y ya probé de todo y no me sale nada puedes ayudarme
  #2 (permalink)  
Antiguo 25/10/2010, 00:39
Avatar de erbuson  
Fecha de Ingreso: noviembre-2009
Mensajes: 701
Antigüedad: 9 años, 9 meses
Puntos: 53
Respuesta: ayuda con esta matriz urgente

Hola, antes de nada, no inicies por favor una nueva pregunta si tienes un post abierto para este tema ya que la gente no sabrá donde contestarte y el foro estará hecho un desastre.

Ahora, independientemente del error, ¿ Estas seguro que solicitas ayuda para Visual Basic 6.0 ?

Veo algunas similitudes, pero también veo diferencias sustanciales y por lo que veo la duda no la tienes en como calcular la media sino en como hacer el programa.

Por ejemplo esta linea en VB 6 no tiene ningun sentido ya que vector es una matriz por lo tanto no puede udilizarse así y (suma) no se porqué esta entre paréntesis.

vector = (suma) + vector(1)

Saludos
__________________
Agradecer a quien te enseñó, es enseñar lo que de él aprendiste.
Recuerda: Decir gracias, poco cuesta y mucho vale ...
  #3 (permalink)  
Antiguo 25/10/2010, 03:11
Avatar de pkj
pkj
 
Fecha de Ingreso: julio-2006
Ubicación: Órbita sincrónica
Mensajes: 899
Antigüedad: 13 años, 1 mes
Puntos: 29
Respuesta: ayuda con esta matriz urgente

Ese lenguaje no es vb clásico, más bien parece vb 2005 o algo así.
Tambien parece ser que lo estás haciendo para mostrar en consola, no en forms.
De todas formas te paso tu código modificado y que debería funcionar si lo pones en un botón de un formulario. Haz los cambios que necesites.

Código vb:
Ver original
  1. Dim n, i As Integer
  2.     Dim suma, media As Double
  3.     n = InputBox("Digite el numero de elementos a introducir")
  4.     Dim vector(n) As Double
  5.     For i = 1 To n
  6.       vector(i) = InputBox(" Digita el valor del elemento " & i)
  7.  
  8.       suma = suma + vector(i)
  9.  
  10.     Next
  11.     media = suma / n
  12.     MsgBox(" la suma de los elementos es:" & CDec(suma) & vbCrLf & _
  13.     " La media de los elementos es: " & CDec(media))
Saludos
__________________
No hay preguntas tontas, solo gente estup..., ¡No!, ¿como era? No hay gente que pregunte a tontos... ¡Nooo!... ¡Vaya cabeza!

Etiquetas: matriz
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 23:16.