BASIC

El lenguaje BASIC (Beginners All-purpose Symbolic Instruction Code) se diseñó para que lo pudieran aprender fácilmente personas sin formación en programación y fue muy popular en toda una gama de ordenadores domésticos previos a los PC. Aunque las primeras versiones fueron compiladas, en muchos de los sistemas mencionados era un lenguaje interpretado.

La versión original incluía el número de cada línea de código fuente y las estructuras básicas de control eran el GOTO e instrucciones de salto condicional. A lo largo de los años ha evolucionado mucho y ha ido incorporando características de los lenguajes modernos.

Las versiones más modernas, como VisualBasic, han abandonado los números de línea y soportan librerías, objetos, memoria dinámica y muchas otras funciones.

A continuación, presentamos un ejemplo de programa en BASIC en su versión menos evolucionada. Conviene observar que añadir o quitar líneas al programa puede obligar a modificar los números de los GOTO, lo cual puede ser una fuente de errores que, en un programa largo y complejo, son difíciles de detectar.

10 REM Programa sencillo en BASIC
20 PRINT Opciones:
30 PRINT 1: Limpiar pantalla
40 PRINT 2: Saludar
50 INPUT ¿Opción escogida?; op
60 IF op = 1 THEN GOTO 80
70 IF op = 2 THEN GOTO 90
80 CLS
90 PRINT ¡Hola!
100 END

Una versión moderna de BASIC, el VisualBasic de Microsoft, se ha hecho muy popular debido a su entorno de desarrollo, que permite aprovechar fácilmente las capacidades gráficas de Windows y los objetos de las aplicaciones de Microsoft Office. Tiene todas las características de las versiones modernas de BASIC y muchas otras, como control de excepciones, gestión automática de memoria, programación orientada a objetos y componentes de control como Visual Basic Controls y ActiveX Controls, que se pueden añadir a un programa mientras se ejecuta.

A continuación se presenta un ejemplo de rutina para calcular factoriales:

Rutina y programa para calcular factoriales

 

Function factorial(n as Long)
    If (n <= 0) Then
    factorial = 1
    Else
        factorial = n * factorial(n - 1)
    End If
End Function

Dim fx(12) as Long
For i = 1 to 12
    fx(i) = factorial(i)
Next

Arriba
Cerrar