Tutorial de introducción a QBASIC
1. Imprimir matriz cuadrada
Entrada: 3, 4
Salida: ****
****
****
cls
entrada n,m
para i=1 a n
para j =1 a m
imprimir "*";
siguiente j
imprimir
siguiente i
fin
2. Triángulo (1)
Entrada: 5
Salida: *
**
* **
****
*****
cls
entrada n
para i=1 a n
para j=1 a i
imprimir "*";
siguiente j
imprimir
siguiente i
final
3. Triángulo (2)
Entrada: 5
Salida: *
**
***
****
*****
cls
ingrese n
para i=1 a n
imprima spc(n-i);
para j=1 a i
imprimir "*";
siguiente j
imprimir
siguiente i
fin