Qbasic Program to print 123454321, 1234321, 12321, 121, 1 [Hint: insert (;) at the end of PRINT a*a; to print in Horizontally] (SUB/Function)

OUTPUT

QBASIC Program to Print the Display the Numeric Series 55555, 5555, 555, 55, 5 (SUB/FUNCTION Procedure)

CLS
n = 55555
FOR I = 1 TO 5
     PRINT n;
     n = n \ 10
NEXT I
END

QBASIC Program to Print the series 7, 22, 11, 34, 17, 52, 26, 13, 40, 20 (SUB/FUNCTION Procedure)

CLS
a = 7
FOR i = 1 TO 10
     PRINT a;
     IF a MOD 2 = 0 THEN
          a = a \ 2

     ELSE
          a = a * 3 + 1

QBASIC program to Print the Perfect Square numbers from 1 to 100 (1, 4, 9, 16, 25, 36, 49, 64, 81, 100)

In mathematics, a square number or perfect square is an integer that is the square of an integer. In other words, it is the product of some integer with itself. For example, 9 is a square number, since it equals 32 and can be written as 3 × 3.

CLS
FOR i = 1 TO 100
     n = SQR(i)

Program to print the Numeric Series 3, 10, 5, 16, 8 (Hill-stone Number)

Using FOR...NEXT

CLS
n = 3
FOR i = 1 TO 5
     PRINT n;
     IF n MOD 2 = 0 THEN
          n = n / 2

Program to Print the Fibonacci Series 1, 1, 2, 3, 5, 8 ... up to 10th term

Using FOR...NEXT

CLS
x = 1
y = 1
PRINT x; y;
FOR i = 1 TO 10
     z = x + y
     PRINT z;
     x = y

Write a program to print the numeric series 0.11111, 0.1111, 0.111 .... 0.1

Using FOR...NEXT

CLS
n = 0.11111
FOR i = 1 TO 5
     PRINT n;

WAP to print 0.1, 0.11, 0.111 .... up to 7th term.

Using FOR...NEXT

CLS
a = 0.1
FOR i = 1 TO 7
     PRINT a;

Write a program to print 5, 125, ... up to 7th term (QBASIC)

Using FOR...NEXT

CLS
n = 5
FOR i = 1 TO 7
     PRINT n;

QBASIC Program to print the series 0, 2, 4, 6, 8 ...... up to 100

Using FOR...NEXT

CLS
FOR i = 0 TO 100 STEP 2
      PRINT i;
NEXT i

QBASIC Program to print the series 1, 3, 5, 7, 9 ...... 25

Using FOR...NEXT

CLS
FOR i = 1 TO 25 STEP 2
      PRINT i;
NEXT i

QBASIC Program to print the series 10, 8, 6, 4, 2

Using FOR...NEXT

CLS
FOR i = 10 TO 1 STEP -2
      PRINT i;

NEXT i

QBASIC Program to print the series 1000, 500, 250, 125, 62.5

Using FOR...NEXT

CLS
n = 1000
FOR i = 1 TO 5
      PRINT n;

QBASIC Program to print the series 1, 27, 125, 343, 729

Using FOR...NEXT

CLS
n = 1
FOR i = 1 TO 5
      PRINT n ^ 3;

QBASIC Program to print the series 1, 8, 27, 64, 125...up to 10th term.

Using FOR...NEXT

CLS
FOR i = 1 TO 10
      PRINT i ^ 3;
NEXT i

QBASIC Program to print the series 1, 4, 9, 16, 25....up to 10th term.

Using FOR...NEXT

CLS
FOR i = 1 TO 10
     PRINT i ^ 2;
     NEXT i

QBASIC Program to print the series 5, 25, 125, 625, 3125 …. up to 7th terms.

Using FOR...NEXT

CLS
a = 5
FOR i = 1 TO 7
      PRINT a;
      a = a * 5