Project Work Of Computer!!

                           QBasic Program
1.Wap to input any number and check whether the given no.Is divisiblr by 3 and 7 or not using function procedure.

CLS
INPUT" ENTER ANY NO";N
IF NMOD 3=0 THEN
PRINT"THE GIVEN NO IS DIVISIBLE BY 3 AND7"
ELSE
PRINT"THE GIVEN NO IS NOT DIVISIBLE BY 3 AND 7"
END IF
END

2.Wap  to input any number and check whether the given no is positive or negative.

CLS
INPUT"ENTER ANY NO";N
IF N>0 THEN
PRINT"THE GIVEN NO IS POSITIVR"
ELSE IF N<0 THEN
PRINT"THE GIVEN NO IS NEGATIVE"
END IF
END

3.Wap to input any number and display whether it is odd or even.

CLS
INPUT"ENTER ANY NO";N
IF N MOD 2=0 THEN
PRINT" THE GIVEN NO IS EVEN"
ELSEIF
PRINT"THE GIVEN NO IS ODD"
END IF
END

4.Wap to enter any two number and display any one.

CLS
INPUT"ENTER ANY TWO NO";A,B
IF A< B THEN
PRINT "THE SMALLER NO IS ";A
ELSEIF A>B THEN
PRINT"THE SMALLER NO IS";B
END IF
END


5.Wap to enter any three number and display the middle number.

CLS
INPUT"ENTER ANY THREE NO";A,B,C
IFA>B AND A<C OR A<B AND A>C THEN
PRINT"THE MIDDLE NO IS";A
ELSEIF B>A AND B<C OR B<A AND B>C THEN
PRINT"THE MIDDLE NO IS";B
ELSE
PRINT"THE MIDDLE NO IS";C
END IF
END

6. Wap  to test whether a user input no is completely divisible by 13 or not.

CLS
INPUT"ENTEF ANY NUMBER";N
IF N MOD 13=O THEN
PRINT"THE GIVEN NO IS DIVISIBLE BY 13"
ELSE
PRINT"THE GIVRN NO IS NOT DIVISIBLE BY 13"
END UF
END

7. Wap to define a function procedure which returnd whether a input no is positive,negative or zero.

CLS
INPUT"ENTER ANY NUMBER"N
IF N>0 THEN
PRINT"NUMBER IS POSITIVE"
ELSEIF N<0 THEN
PRINT"NUMBER IS NEGATIVE"
ELSE
PRINT"NUMBER IS ZERO"
END IF
END

8.Wap to input a year and dispaly whether that year is leap year or not.

CLS
INPUT"ENTER YEAR";Y
IF Y MOD 4=0 AND IF Y MOD 100<=0  OR Y MOD 400=0 THEN
PRINT"THE GIVRN YEAR IS LEAP YEAR"
ELSE
PRINT"THE GIVEN YEAR IS NOT LEAP YEAR"
END IF
END


9.Input the age of a person and find out whether the person id eligible to drive or not.

CLS
INPUT"ENTER YOUR AGE";A
IF A> 16 THEN
PRINT"YOU ARE RLIGIBLE TO VOTE"
ELSR
PRINT"YOU ARE NOT ELIGIBLE TO VOTE"
END IF
END

10.Wap to enter any three no and display the greatest one using sub procedure.

CLS
INPUT"ENTER THREE NO";A,B,C
IF A>B AND A>C THEN
PRINT"THE GREATER NO IS";A
ELSEIFB>A AND B>C THEN
PRINT"THE GREATER NO IS";B
ELSE
PRINT"THE GREATER NO IS";C
END IF
END

           
                     !!ŤHANK YOÛ!!