QBASIC
De Wikipedia, la enciclopedia libre
(Quick Beginner's All-Purpose Symbolic Instruction Code) es una variante del lenguaje de programación BASIC. No es capaz de compilar ejecutables independientes. El código fuente es compilado en una forma intermedia desde el ambiente integrado de desarrollo y luego esta forma intermedia es ejecutada (interpretada) a demanda. Fue creado con el objetivo de reemplazar a BASICA y GW-BASIC y fue distribuido junto con MS-DOS 5.0 y versiones subsiguientes, incluyendo Windows 95. Su diseño fue basado en el anterior QuickBASIC 4.5, pero carecía de los elementos del compilador y enlazador de QuickBASIC.
Microsoft dejó de distribuir QBASIC en siguientes versiones de Windows. Actualmente es distribuido únicamente a través del sitio web de Microsoft para usuarios con licencia de uso de MS-DOS. El entorno de desarrollo de QBASIC incluye varias características aún raras en entornos de desarrollo actuales.
QBASIC fue también utilizado para enseñar programación a principiantes.
Tabla de contenidos |
[editar] Sintaxis
Al igual que QuickBASIC, pero a diferencia de otras versiones de Microsoft BASIC, QBASIC es un lenguaje con Programación estructurada, con soporte de construcciones como subrutinas y bucles while. Las líneas numeradas, un concepto generalmente asociado con BASIC, son soportadas por cuestiones de compatibilidad, pero no son necesarias o consideradas una buena práctica de programación. QBASIC soporta también tipos de datos definidos por el usuario.
[editar] Ejemplo de programa
El siguiente es un muy sencillo programa de "hola mundo" escrito en QBASIC:
PRINT "Hola mundo" INPUT "Ingrese Su Nombre: ", Nombre$ PRINT "Su Nombre es: " + Nombre$ 'Esto es un comentario
Programa para resolver una ecuación de segundo grado:
CLS
PRINT " RESOLUCION DE UNA ECUACION DE SEGUNDO GRADO"
PRINT " Ax2 + bx + C = 0"
PRINT
INPUT " COEFICIENTE A: ", A
INPUT " COEFICIENTE B: ", B
INPUT " COEFICIENTE C: ", C
PRINT
IF A = 0 THEN
REM A=0
IF B = 0 THEN
REM A=0 Y B=0
IF C = 0 THEN
REM A=0, B=0 Y C=0
PRINT " SIN ECUACION"
ELSE
PRINT C; "= 0, IMPOSIBLE"
END IF
ELSE
REM ECUACION DE PRIMER GRADO
PRINT " ECUACION DE PRIMER GRADO"
PRINT " X="; -C / B
END IF
ELSE
D = B ^ 2 - 4 * A * C
IF D > 0 THEN
PRINT " SOLUCION DOBLE"
PRINT " X1="; (-B + SQR(D)) / (2 * A)
PRINT " X2="; (-B - SQR(D)) / (2 * A)
ELSE
REM D <= 0
IF D = 0 THEN
PRINT " SOLUCION UNICA"
PRINT " X1=X2="; -B / (2 * A)
ELSE
REM D < 0
PRINT " RAIZ IMAGINARIA"
PRINT " X1= "; -B / (2 * A); "+"; ABS(SQR(-D) / (2 * A)); "i"
PRINT " X2= "; -B / (2 * A); "-"; ABS(SQR(-D) / (2 * A)); "i"
END IF
END IF
END IF
