QBasic Programming

To check whether the given number is prime or composite

CLS

INPUT “Enter any number”;N

C=0

FOR I =1 To 10

IF N MOD I=0  THEN C=C+1

NEXT I 

IF C=2 THEN 

PRINT “ The given number is prime”

ELSE

PRINT”The given number is composite”

END IF 

END 

QBasic Programming

To display 1,11,111,1111,11111

CLS

A=1

I=11111

DO

PRINT A

A=A*10+1

I=I+1

LOOP UNTIL I<=1

END

QBasic Programming

To display 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 Programming

To display 1,12,123,1234,12345

CLS

FOR I = 1 To 5

FOR J = 1 To I

PRINT J;

NEXT I 

PRINT 

NEXT I

END

QBasic Programming

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 Programming

To display 1,4,9,16,......10th term

CLS

I=1

WHILE I < =10

PRINT I ^2

I= I+1

WEND

END

QBasic Programming

To display 1,1,2,3,5,.....10th term

CLS 

A=1

B=1

FOR I = 1To 10

PRINT A

C=A+B

A=B

B=C

NEXT I

END

QBasic Programming

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 Programming

To display factorial of any number

CLS

INPUT”Enter any number”;N

F=1

FOR I=1 To N

F=F*I

NEXT I

PRINT”Factorial”;F

END

QBasic Programming

To display Factors of any number

CLS

INPUT”Enter any number”;N 

FOR I = 1 To N

IF N MOD I =0 THEN PRINT I

NEXT I

END

QBasic Programming

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 given number is armstrong “
ELSE
PRINT”The given number is not armstrong”
END IF 

QBasic Programming

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 given number is palindrome"
ELSE 
PRINT "The given number is not palindrome""
END IF 
END

QBasic Programming

To display 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 Progarmming

To display product 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

QBaic Programming

To display 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 digit";S
END

QBasic Programming

To display greatest among 3 numbers

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

QBasic Programming

To display  odd or even

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

QBasic Programming

To find the positive, negative or zero

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

QBasic Programming

To find the volume of cylinder

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

QBasic Programming

To find the volume of cube

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

QBasic Programming

To find the volume of box

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

QBasic Programming

To find area of 4 walls

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

QBasic Programming

 To find area of square

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

QBasic Programming

 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 Programming

To find the area of circle

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

QBasic Programming

To find the area of rectangle

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