Serie de Fibonacci en QBasic

Este post ha sido movido ACA

18 comentarios:

Anónimo dijo...

Gracias loco, parece que lo escribiste para mi :)
estaba buscando JUSTO esto, me vino como anillo al dedo.

Testiculo Izquierdo dijo...

Mario, gracias a vos por pasar por el blog ;)

Sil, basicamente el QBasic es un lenguaje de programación bastante antiguo y bastante simple. Como lo dije en el post, no iba a ser un post para mis habituales visitantes, pero espero haber servido a esos pocos que buscaban esto.
Por el cuento/libro, no lo leí, estoy buscando ahora por la net a ver si lo encuentro...
Terminé el libro de Graziano, conclusión:
te hace abrir los ojos más que un ají puta parió ;)

Saludos, ya en la ciudad arrasada por el poderoso hielo celestial.
DrGEN

Anónimo dijo...

Muy copado che, estoy estudiando QB y Visual Basic .net 2003 y la verdad que esta copado. Segui asi maquina.

Testiculo Izquierdo dijo...

Jor-L, me alegro que te haya gustado, lo mio en QBasic es sólo hobbie, así que seguro que al estudiarlo vas a encontrar mil cosas para mejorarle a los programas :)

Saludos,
DrGEN

Anónimo dijo...

esto de la serie de fibonacchi, me suean a uno de los secretos que esconde el santo grial, en el codigo da vinci!!!

el viejo

Testiculo Izquierdo dijo...

Querido Viejo:

Tienes toda la razón... no te metas en esto porque podrías desatar fuerzas ocultas que ni la imaginación de capussotto alcanza a elucubrar ;)

Saludos,
DrGEN

Anónimo dijo...

Muchas Gracias me ha servido mucho su blog, pues tenia una tarea sobre esto y no sabia como hacerlo, se lo agradezco mucho

Testiculo Izquierdo dijo...

Anónimo,

Me alegro que le haya sido útil.
Cuando tenga otra tarea, y no tenga ganas de hacerla, mándeme un mail y la resulvo por usted (vago!) ;)

Saludos,
DrGEN

Anónimo dijo...

>>>> muchisimas gracias por la informacion que nos brindas en este blog...!! nos ha sido muy util en una investigacion acerca de fibonacci en Qbasic que un no muy querido profesor nos dejo de tarea para el colegio y no teniamos ni idea de que era todo esto...!!!! y ahora gracias a usted nos ha sido claro fibonacci aplicado a Qbasic... infinitamente millones de gracias....!!! desde ya un gusto saludarlo desde paraguay,,,,!!! exitos !!

Testiculo Izquierdo dijo...

Muchísimas gracias a ustedes por comentar y me alegro haberles sido útil :)

Saludos,
DrGEN

Anónimo dijo...

>>>>> son incalculables los dias que estamos sin dormir practicamente resolviendo ejercicios sobre qbasic de los cuales ya hemos resuelto la mayoria gracias a arduas busquedas de informacion acerca de tales ejercicios y te queremos pedir un favor enorme,, tenemos un ejercicio del cual hasta hoy no hemos podido resolver y quicieramos saber si usted nos podria ayudar...??

Testiculo Izquierdo dijo...

Amigos del Paraguay:
Primero les aclaro que la programación no es mi fuerte, de hecho lo mío es la medicina, totalmente alejado del QBasic.

Pero siempre me encantaron los desafíos y el Qbasic me permitió plantearme muchas veces pequeños problemas que me resultaba placentero resover.

Ni siquiera estudié ni éste ni nigún otro lenguaje de programación, por lo que mis herramientas son bastantes limitadas, pero sería un honor para mi poder ayudarlos,
así que pásenme el problema y haré lo que pueda por resolverlo.

Saludos,
DrGEN

Anónimo dijo...

y dice asi>>>>desarrollar un programa que permita que el usuario introduzca su fecha de nacimiento, a partir del cual se le informara su edad....<<< intentamos esto pero nada...

cls
aa=0
an=0
fa=0
fn=0
e=0
input" ingrese fecha de na cimiento", fn

aa: fa mod 10000
an: fn mod 10000
e"an-aa
print" su edad es igual a", e
endif

pero no resulto... desde ya muchas gracias... esperare tu respuesta...!!

Testiculo Izquierdo dijo...

Es un problema con muchas soluciones:
la que les pongo acá, supongo que alcanzará, pero no es 100% certero, ya que no tiene en cuenta los años biciestos y toma a los meses como todos de 30 días. Hacer un programa que tenga en cuenta esto no es complicado, pero sería bastante más largo que este que propongo.

El Programa:
----- Comienzo -----------
CLS
fecha$ = DATE$
mes = VAL(MID$(fecha$, 1, 2))
dia = VAL(MID$(fecha$, 4, 2))
anio = VAL(MID$(fecha$, 7, 4))
PRINT "Hoy es el dia"; dia; " mes"; mes; " anio"; anio

PRINT "Introduzca la fecha de su naciemiento:"
INPUT "Dia :", dianac
INPUT "Mes :", mesnac
INPUT "Anio:", anionac

edaddia = dia - dianac
edadmes = mes - mesnac
edadanio = anio - anionac

IF edaddia < 0 THEN edaddia = 30 + edaddia: edadmes = edadmes - 1
IF edadmes < 0 THEN edadmes = 12 + edadmes: edadanio = edadanio - 1

diasvida = edaddia + (edadmes * 30) + (edadanio * 365)

PRINT
PRINT "Actualmente usted tiene "; edadanio; "anios, "; edadmes; "meses y "; edaddia; "dias de edad."
PRINT
PRINT "o lo que es igual, tiene "; diasvida; "dias de vida"
PRINT
COLOR 15
PRINT "DrGEN / El Mundo como yo lo veo"
PRINT "http://doctorgen.blogspot.com"

SLEEP
----- FIN -------------

Espero que les sea útil.
Saludos,
DrGEN

lcornejo dijo...

Hola Doctor Gen:
Soy uno mas de los nostalgicos de Qbasic. Y admiro profundamente tu paciencia y voluntad. Por otro lado esta muy bonito el diseño de las pantallas de tus ejemplos dedicados como los graficos de la serie de Fibonacci y el numero Phi.
Bueno, te cuento un poco: Yo tengo una pagina web que deje botada hace ya varios meses por muchos comentario s que lei en contra del lenguage BASIC ya sea de Visual Basic, Qbasic o GWBasic. Me desanime mucho y al leer tu pagina me emociona totalmente la cantidad de post que tienes. Yo tuve unos cuantos al pricipio y despues... el desanimo.
Si deseas visitar mi pagina en:
http://www.freewebs.com/lcsweb

Si pones un comentario te lo agradeceré.
Por si acaso este es mi mail
a.denavegar@gmail.com

lcornejo dijo...

Hola Dr. Gen:
No se si me recuerdas pero soy Luis del posteo del 15/2/08 5:06 PM. En tu entrada del viernes 17 de noviembre de 2006.

Bueno solo decirte que ya tengo mi blog y darte gracias por responder mi post aunque sea por mail.

Espero puedas visitar el blog. A mi me gusta la programacion pero ya encuentro que mi blog tedra mas campo ya que le he dado ese aspecto.

Es todo. Chau.

kirsys dijo...

necesito k me ayuden con esto urgente... es una terea de la escuela

construir una funcion que reciba como parametro un vector de 10 posiciones enteras y retorne la cantidad de numeros que pertenecen a los 30 primeros elementos de la serie fibonacci

por favor ayudenme a realizar esto debe de ser en lenguaje basic

kirsys dijo...

perdon mi tarea es esta

por favor necesito con urgencia k me ayuden a realizar un ejercicio es la tarea del cole y no epodido hacerla

dice los siguiente

realizar un menun las cuales llame las siguientes funciones
1. construir una funcion que reciba como parametro un entero y retorne 1 si dicho entero esta entre los 300 primeros elementos de la serie de fibonacci. debera retornar 0 si no es asi.

2. construir una funcion que reciba como parametro un vector de 10 `posiciones enteras y retorne la cantidad de numeros que pertenecen a los 30 primeros elementos de la serie fibonacci.

3. construir una funcion que reciba como parametro una matriz 3*4 entera y retorne la cantidad de numeros primos almacenada en la matriz.