Programar Bajo Consola en Gambas

Es muy sencillo programar bajo consola en Gambas. A continuación les presento un programa que calcula la serie armonica de N numeros.

Analisis: en primer lugar se debe pedir al usuario el valor de N, luego se debe acumular la suma dada (variable suma), y en tercer lugar se deben realizar N iteraciones (usaremos un bucle for).

Comenzando: Ahora Iniciamos Gambas y selecionamos Nuevo Proyecto y elegimos el Tipo Aplicación de Consola. En las opciones podemos elegir que tipo de aplicación de consola realizaremos. Si no seleccionamos ninguna posteriormente podremos agregarlas. Una vez que colocamos el nombre a nuestro proyecto de consola colocamos la codoficación que resuelve el problema planteado.

Codificación: Muy sencilla:

‘ Gambas module file

PUBLIC SUB Main()
‘Declaramos las variables que usara el programa
DIM I AS Integer
DIM N AS Integer
DIM Suma AS Float

‘Inicializamos la variable Suma en 0
Suma = 0
PRINT “¿Cuanto terminos desea Sumar?”
INPUT N
‘por medio de INPUT se ingresa los datos solicitados

FOR I = 1 TO N
Suma = Suma + 1 / I
NEXT
‘Despues del ciclo for que realiza las sumas sucesivas
‘se presentan por consola los resultados
PRINT “La suma de los “, N & ” primeros terminos es: “, Suma
‘El comando WAIT permite, por lo menos en este caso, que el
‘programa permanezca activo 3 segundos despues de su ejecucion
WAIT 3
END

3 comentarios en “Programar Bajo Consola en Gambas

    • jjmoncar dijo:

      Muchos objetos son para entornos graficos, particularmente no lo he probado, pero es posible que si funcione. solo hay que experimentar un poco a ver si funciona.

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s