Qbasic

1, 11, 111, 1111, 11111

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

Qbasic

1, 22, 333, 4444, 55555

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

Qbasic

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

5, 10, 15, 20,……..up to 10^th term

CLS

A = 5

FOR I = 1 TO 10

PRINT A

A = A+5

NEXT I 

END

Qbasic

1, 4, 9, 16,……..up to 10^th term

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

Qbasic

1, 1, 2, 3, 5,……..up to 10^th term

CLS

A = 1

B = 1

FOR I = 1 TO 10

PRINT A

C = A +  B

A = B

B = C

NEXT I

END

Qbasic

Qbasic to display multiplication table

CLS
INPUT "Enter any number"; N
FOR I = 1 TO 10
PRINT N ; "X' ; I ; "=" ; N*I
NEXT I
END

Qbasic

Qbasic to display factorial

CLS
INPUT "Enter any number"; N
F = 1
FOR I = 1 TO N
F = F*I
NEXT I
PRINT "Factorial="; F
END

Qbasic

Qbasic to display factor

CLS
INPUT "Enter any number"; N
FOR I = 1 TO N
IF N MOD I = 0 THEN PRINT I
NEXT I
END

Qbasic

Qbasic to display the given number is prime or composite

CLS
INPUT "Enter any number"; N
C = 0
FOR I = 1 TO N
IF N MOD I = 0 THEN C = C+1
NEXT I
IF C = 2 THEN
PRINT "The number is prime"
ELSE
PRINT "The number is composite"
END IF
END

Qbasic

Qbasic to display the given number is palindrome or not

CLS
INPUT "Enter any number"; N
A = N
S = 0
WHILE N <> 0
R = N MOD 10
S = S*10+R
N = N\10
WEND
IF A= S THEN
PRINT " The number is palindrome"
ELSE
PRINT "The number is not palindrome"
END IF
END

Qbasic

Qbasic to display the given number is armstrong or not

CLS
INPUT 'Enter any number'; N
A = N
S = 0
WHILE N <> 0
R = N MOD 10
S = S+R^3
N = N\10
WEND
IF A=S THEN
PRINT "The number is armstrong"
ELSE
PRINT "The number is not armstrong"
END IF
END

Qbasic

Qbasic to find the reverse of digits

CLS
INPUT "Enter any number"; N
S = 0
WHILE N<> 0
R = N MOD 10
S = S*10+R
N = N\10
WEND
PRINT "Reverse of digits="; S
END

Qbasic

Qbasic to find the products of digits

CLS
INPUT "Enter any number'; N
P = 1
WHILE N<> 0
R = N MOD 10
P = P*R
N = N\10
WEND
PRINT "Product of digits="; P
END

Qbasic

Qbasic to find the sum of digits

CLS
INPUT "Enter any number"; N
S = 0
WHILE N<> 0
R = N MOD 10
S = S+R
N = N\10
WEND
PRINT "Sum of digits="; S
END

Qbasic

Qbasic to display the greatest among three number

CLS
INPUT "Enter any three number"; A, B, C
IF A>B AND A>C THEN
PRINT "The greatest number is"; A
ELSEIF B>A AND B>C THEN
PRINT "The greatest number is"; B
ELSE
PRINT "The greatest number is"; C
END IF
END

Qbasic

Qbasic to display the given number is odd or even

CLS
INPUT "Enter any number"; N
IF N MOD 2 = 0 THEN
PRINT "The number is even number"
ELSE
PRINT "The number is odd number"
END IF
END

Qbasic

Qbasic to display the given number is positive or negative or zero

CLS
INPUT "Enter any number"; N
IF N>0 THEN
PRINT "The number is positive"
ELSEIF N<0 THEN
PRINT " The number is negative"
ELSE
PRINT "The number is zero"
END IF
END

Qbasic

Qbasic to find volume of cylinder

CLS
INPUT "Enter the radisu"; r
INPUT "Enter the height"; h
V =  22/7*r^2*h
PRINT "Volume of cylinder="; V
END

Qbasic

Qbasic to find volume  of cube

CLS
INPUT "Enter the length"; l
V = l^3
PRINT "Volume of cube="; V
END

Qbasic

Qbasic to find volume of box

CLS
INPUT "Enter the length"; l
INPUT "Enter the breadth": b
INPUT "Enter the height"; h
V = l*b*h
PRINT "Volume of box="; V
END

Qbasic

Qbasic to find area of four walls

CLS
INPUT "Enter the length"; l
INPUT "Enter the breadth"; b
INPUT "Enter the height"; h
A = 2*h*(l+b)
PRINT "Area of four walls="; A
END

Qbasic

Qbasic to find area of square

CLS
INPUT "Ente the length"; l
A = l^2
PRINT "Area of square="; A
END

Qbasic

Qbasic to find area of triangle

ClS
INPUT "Enter base"; b
INPUT "Enter height"; h
A = 1/2*b*h
PRINT "Area of triangle="; A
END

Qbasic

Qbasic to find area of circle

CLS
INPUT "Enter the radius"; r
A = 22/7*r^2
PRINT "Area of circle="; A
END

Qbasic

Qbasic to find area of rectangle

CLS

INPUT "Enter the length"; L
INPUT "Enter the breadth"; B
A = L*B
PRINT "Area of rectangle="; A
END