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 " Ax² + 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 < x1= "; -B / (2 * A); " x2= "; -B / (2 * A); ">
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 " Ax² + bx + C = 0"
INPUT " COEFICIENTE A: ", A
INPUT " COEFICIENTE B: ", B
INPUT " COEFICIENTE C: ", C
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 < x1= "; -B / (2 * A); " x2= "; -B / (2 * A); ">