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.

[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:

$Ax^2 + Bx + C = 0\,$

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