qinformación detallada básica

QBASIC es una variante del lenguaje BASIC (Código de instrucción simbólica multiusos para principiantes) Fue desarrollado por Microsoft Corporation de Estados Unidos y lanzado con MS-DOS 5.0 en 1991. No se puede compilar en un archivo ejecutable independiente. El código fuente primero se compila en un código intermedio en el entorno de desarrollo integrado (IDE) y luego el código intermedio se interpreta y ejecuta en el IDE. Fue diseñado para reemplazar GW-BASIC y está integrado en MS-DOS 5.0 y posteriores (incluido Windows 95). QBASIC se basa en QuickBASIC 4.5, que Microsoft lanzó anteriormente, pero ha eliminado las partes de compilación y cableado de este último. Introducción básica Nombre extranjero: Código de instrucción simbólica multiusos para principiantes Abreviatura: QBasic Tipo: Empresa de desarrollo de lenguajes informáticos: Microsoft de los Estados Unidos Características, situación actual, gramática, teclas de método abreviado, ejemplos, características El lenguaje básico es un lenguaje informático de alto nivel. Es simple y fácil de aprender, fácil de usar, favorecido por la mayoría de los usuarios de computadoras. Las expresiones del lenguaje Basic son similares a las expresiones matemáticas y las declaraciones son similares al lenguaje natural, que los principiantes pueden dominar muy fácilmente. El último desarrollo del lenguaje Basic, Visual Basic 6.0 y 7.0, tiene una interfaz de programación visual amigable. y potente programación orientada a objetos La capacidad y sus funciones de publicación y consulta en línea no solo permiten a los usuarios escribir aplicaciones con cualquier función de manera conveniente y sencilla, sino que también se adaptan mejor a la llegada de la era de Internet. Ejecutando qbasic en Windows 8 Situación actual Microsoft ya no integra QBASIC en versiones más nuevas de Windows. Sin embargo, los usuarios de Windows 98 pueden encontrarlo en el directorio \TOOLS\OLDMSDOS del CD y, en los CD de Windows 95, se almacena en el directorio \OTHER\OLDMSDOS. El sitio web de Microsoft indica que su soporte técnico sólo está disponible para usuarios autorizados de MS-DOS. QBASIC tenía un entorno de desarrollo integrado encomiable y un potente depurador integrado, todo lo cual era refrescante para esa época. Hasta el día de hoy, QBASIC sigue siendo el tema de muchos libros de programación para principiantes. Sintaxis Similar a Quick BASIC pero diferente de otras implementaciones tempranas de BASIC de Microsoft, 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 Longitud del nombre de la variable: 40 caracteres Se agregaron variables de caracteres de longitud fija y enteros largos para definir constantes numéricas y constantes de cadena de caracteres Una nueva estructura de selección declaración condicional IF < condición> THEN ELSE sentencia de múltiples ramas SELECT ha mejorado la estructura del bucle y ha agregado las siguientes dos sentencias de bucle: WHILE bucle WHILE WEND DO Loop DO WHILE LOOP Las subrutinas y funciones como módulos separados no requieren números de línea Ejemplos de código (asignación, operación de suma y visualización de resultados) LET?A=10LET?B=20LET?C= A+BPRINT?C Para guardar Al escribir programas, no es necesario escribir LET; PRINT se puede reemplazar directamente con "?"

Una cosa es muy importante: ¡al participar en el concurso, la primera línea del programa debe ser CLS! Teclas de acceso directo Teclas de acceso directo de QBASIC 7.1: F5: ejecuta el programa y continúa ejecutando el programa interrumpido; Ctrl+Interrumpir: interrumpe el programa en ejecución; Shift+F5: vuelve a ejecutar el programa desde la primera instrucción; ejecutando la pantalla de resultados y presione F4 nuevamente para volver a la pantalla de código F1: Obtener ayuda. F2: Cambia el programa principal o SUB, FUNCIÓN. F9: Agregar punto de interrupción. Alt+Entrar: Pantalla completa. Shift+F5: reinicia el programa cuando finaliza. Ctrl+Insertar: copia el texto seleccionado en el portapapeles (Ctrl+C no es válido) Mayús+Insertar: pega el texto en el portapapeles. (Ctrl+V no es válido) Ejemplo Ejemplo 1: Un kilogramo de hongos en el mercado cuesta 7,5 yuanes. Escriba un programa, ingrese el peso en el teclado y la computadora calculará automáticamente el precio total de ENTRADA 1,4 yuanes por kilogramo por debajo de 10. kilogramos, 0,7 yuanes por kilogramo por encima de 10 kilogramos Ingrese cuántos kilogramos desea comprar (debe ser un número natural) y cuánto es la producción.

¿ENTRADA?XIF?X<>FIX(X)?THEN"NO":¿IR A?1IF?X>10?THEN?SUM=10*1.4+(X-10)*0.7?ELSE?SUM=X*1.4PRINT? SUMEND Ejemplo 3: Ingrese 10 letras, compare los tamaños y genere la más grande DIM?A$(10)FOR?I=1?TO?10INPUT?A$(I)NEXT?IB$=A$(1)FOR ? I=2?TO?10IF?B$

HP de Home 2 menos puntos de ataque PRINT?Text$?'Mostrar texto DOLOOP?WHILE?INKEY$?=?""?'Pausar ataque?=?INT(RND?*?20)?'Determinar aleatoriamente los puntos de ataque Text$ ?= ?STRING$(12,?"?")?+?Nombre2$Texto$?=?Texto$?+?"?ataque?"?+?Nombre1$?+?"?"?+?STR$( Ataque) ?'Primero piense en el texto que se mostrará HP1?=?HP1?-?Attack?'Reste los puntos de ataque del HP del jugador 1 PRINT?Text$?'Muestre el texto IF?HP1?<=?0?OR? ?<=?0?ENTONCES?SALIR?DO?Si el HP del jugador 1 o 2 es menor o igual a 0, salga del bucleDOLOOP?WHILE?INKEY$?=?""?'PauseCLSLOOPIF?HP1?<=?0? ENTONCES ?PRINT?STRING$(12,?"?")?+?Nombre2$?+?"?win"IF?HP2?<=?0?THEN?PRINT?STRING$(12,?"?")? + ?Nombre1$?+?"?ganar"SI?HP1?<=?0?Y?HP2?<=?0?ENTONCES?PRINT?STRING$(12,?"?")?+?"Doble?ganar ! " Aquí hay un programa de dibujo muy largo: DRAWTOOL.BAS CLS DO SCREEN 1 SCREEN 0 PRINT TAB(16); "Herramienta de dibujo" PRINT STRING$(40, "*") PRINT "Ayuda:" PRINT "Presione la letra resaltada. "PARA I = 1 A 8 LEER S$, S IR A ImprimirHLWord ImprimirHLWordBack: SIGUIENTE RESTAURAR DATOS "HorizontalBAR", 1, "UprightBAR", 1, "CrossBARs", 1, "BiasBAR1", 8 DATOS "BiasBAR2", 8, "DiagonalBARs", 1, "DiffuseBARs", 2, "Salir", 1 ElseKey: K$ = INPUT$(1) SELECCIONAR CASO UCASE$(K$) CASE "H" GOTO HorizontalBAR HorizontalBARBack: CASE "U" GOTO UprightBAR UprightBARBack : CASO "C" IR A CrossBARs CrossBARsBack: CASO "1" IR A BiasBAR1 BiasBAR1Back: CASO "2" IR A BiasBAR2 BiasBAR2Back: CASO "D" IR A DiagonalBARs DiagonalBARsBack: CASO "I" IR A DiffuseBARs DiffuseBARsBack: CASO "E" FINALIZAR CASO DE LO CONTRARIO GOTO ElseKey FINAL SELECCIONAR FINAL DE BUCLE ImprimirHLPalabra: SI S = 1 ENTONCES COLOR 15 IMPRIMIR IZQUIERDA$(S$, 1); IMPRIMIR MEDIO$(S$, 2) ELSE COLOR 7);

IMPRIMIR IZQUIERDA$(S$, S - 1); COLOR 15 IMPRIMIR MID$(S$, S, 1) COLOR 7 IMPRIMIR MID$(S$, S + 1) FINAL SI IR A PrintHLWordBack HorizontalBAR: PANTALLA 1 PARA I = 1 A 200 PSET (I, 100) DO: BUCLE MIENTRAS INKEY$ = "" SIGUIENTE I PANTALLA 0 GOTO HorizontalBARBack UprightBAR: PANTALLA 1 FOR I = 1 A 200 PSET (100, I) DO: BUCLE MIENTRAS INKEY$ = "" SIGUIENTE I PANTALLA 0 IR A UprightBARBack CrossBARs: PANTALLA 1 PARA I = 1 A 200 PSET (I, 100) PSET (100, I) HACER: BUCLE MIENTRAS INKEY$ = "" SIGUIENTE I PANTALLA 0 IR A CrossBARsBack BiasBAR1: PANTALLA 1 PARA I = 1 A 200 PSET (I, I) HACER: BUCLE MIENTRAS INKEY$ = "" SIGUIENTE I PANTALLA 0 GOTO BiasBAR1Back BiasBAR2: PANTALLA 1 PARA I = 1 A 200 PSET (I, 200 - I) HACER: BUCLE MIENTRAS INKEY$ = "" SIGUIENTE I PANTALLA 0 IR A BiasBAR2Back DiagonalBARs: PANTALLA 1 PARA I = 1 A 200 PSET (I, I) PSET (I, 200 - I) HACER: BUCLE MIENTRAS INKEY$ = "" SIGUIENTE I PANTALLA 0 IR A DiagonalBARsBack DiffuseBARs: PANTALLA 1 PARA I = 1 A 200 PSET (I, 100) PSET (100, I) PSET (I, I) PSET (I, 200 - I) DO: LOOP WHILE INKEY$ = "" NEXT I SCREEN 0 GOTO DiffuseBARsBack Mapa de ruta: CLS Salida del cálculo de entradaEND