Saturday, November 9, 2019


QBASIC to display 1, 12, 123, 1234, 12345

CLS 
FOR I = 1 TO 5
FOR J = 1 TO I
PRINT J ;
NEXT J
PRINT 
NEXT I
END





QBASIC to display 1, 1, 2, 3, 5... 10th term

CLS
FOR I = 1 TO 5
FOR J = 1 TO I
NEXT I ;
NEXT J
PRINT
NEXT I 
END





QBASIC to print 5, 10, 15, 20... 10th term

CLS
A = 5
FOR I = 1 TO 10
PRINT A
A = A+5
NEXT I
END




QBASIC to print 5, 10, 15, 20... 10th term

CLS
A = 5
FOR I = 1 TO 10
PRINT A
A = A+5
NEXT I
END








QBASIC to print 1, 4, 9, 16... 10th term

CLS
FOR I = 1 TO 10
PRINT I ^ 2
NEXT I 
END




QBASIC to print 1, 11, 111, 1111, 11111

CLS
A = 1
FOR I = 1 TO 5
PRINT A
A = A*10+1
NEXT I
END




QBASIC to print 1, 22, 333, 4444, 55555

CLS
FOR I = 1 TO 5
FOR J = 1 TO I
PRINT I;
NEXT J
PRINT
NEXT I
END