Explicación detallada de los comandos QBASIC

Quick BASIC es similar a otras implementaciones tempranas de Microsoft BASIC, pero se diferencia en que QBASIC es un lenguaje de programación estructurado. En comparación con GW-BASIC, las principales mejoras de QBASIC son:

Tipos ampliados de variables y constantes

La longitud de los nombres de las variables:

Tipo de entero largo aumentado variables y variables de caracteres de longitud fija

Poder definir constantes numéricas y constantes de cadena

Proporcionar nuevas estructuras de selección

Declaraciones condicionales

IF < condition> THEN ELSE

Declaración de múltiples ramas SELECT

Estructura de bucle mejorada

Se agregaron los dos siguientes bucles:

bucle WHILE

WHILE <.Condition>

WEND

bucle DO

DO WHILE

Subrutinas y funciones como un módulo separado

Sin números de línea

Ejemplo de código ( asignación, operación de suma y visualización de resultados)

LET A=10

LET B=20

LET C=A+B

LET A=10

LET B=20

LET C=A+B

p>

PRINT C

LET puede ser omitido para ahorrar tiempo al escribir programas, además, PRINT se puede reemplazar directamente con "?". ¡Es muy importante que al participar en un concurso la primera línea de su programa sea CLS! Editar|Volver al inicio Tecla de acceso directo F5: ejecuta el programa (su función es equivalente a ejecutar) y continúa ejecutando el programa interrumpido;

Ctrl+Interrumpir: interrumpe el programa en ejecución;

Shift+F5: Vuelva a ejecutar el programa desde la primera instrucción;

F4: Vea la pantalla de resultados de ejecución cuando el programa se interrumpa. Presione F4 nuevamente para volver a la pantalla de código;

F1: Obtener ayuda.

F2: Cambia el programa principal o SUB o FUNCIÓN. Editar|Volver al principio pregunta de ejemplo Ejemplo 1:

El precio de un kilogramo de champiñones en el supermercado es 7,5 yuanes. Escriba un programa para ingresar el peso desde el teclado y la computadora calculará automáticamente el peso. precio total

Ingrese X

SUM=7.5*X

IMPRIMIR SUMA

END

Ejemplo 2:

Venta de sandías, 10 $1,4 por kilogramo por menos de 10 kilogramos, $0,7 por cada kilogramo por encima de 10 kilogramos Ingrese cuántos kilogramos desea comprar (debe ser un número natural) y luego genere el precio.

ENTRAR X

SI X<>FIX(X) ENTONCES ?"NO":IR A 1

SI X>10 ENTONCES SUMA=10*1.4+ (X-10)*0.7 ELSE SUM=X*1.4

PRINT SUM

END

Ejemplo 3:

Ingrese 10 letras , compare los tamaños y luego genere el más grande

DIM A$(10)

FOR I=1 TO 10

INPUT A$(I)

SIGUIENTE I

B$=A$(1)

PARA I=2 A 10

SI B$<A $ (I) ENTONCES B$=A$(I)

SIGUIENTE I

IMPRIMIR B$

FIN