Qbasic to dispaly 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 dispaly 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 to display 1,11,111,1111,11111

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

Qbasic to display 5,10,15,20,....10th term

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

Qbasic to display 1,4,9,16,....10th term

CLS
FOR I = 1 TO 10
PRINT I ^ 2
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 display multiplication table

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

Qbasic to check factorial

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

Qbasic to check factors

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

Qbasic to check whether 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 to check whether 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 to check whether 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 to find reverse of digit

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 to find product of digit

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 to find sum of digit

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 to print greatest among three numbers

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 to find odd or even

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

Qbasic to display Positive,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 to find volume of cylinder

CLS
INPUT "Enter the radius"; R
INPUT "Enter the height"; H
V =  22/7*R^2*H
PRINT "Volume of cylinder="; V
END 

Qbasic to find volume of cube

CLS
INPUT "Enter Length"; L
V = L ^ 3
PRINT "Volume of cube=";V
END

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 to find Area of square

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

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 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 to find Area of Circle

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

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