PROJECT WORK OF COMPUTER

QBasic program

1.   WAP to input any number and check whether the given no. Is divisible by 3 and 7 or not using function procedure.

CLS
INPUT" ENTER ANY NUMBER";N
IF N MOD 3=0 AND N MOD 7=0 THEN
PRINT"THE GIVEN NUMBER IS DIVISIBLE BY 3 AND 7"
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 NUMBER";N
IF N>0 THEN
PRINT"THE GIVEN NUMBER IS POSITIVE"
ELSE IF N<0 THEN
PRINT"THE GIVEN NUMBER IS NEGATIVE"
END IF
END

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

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

4.   WAP to enter any two numbers and display any one.

CLS
INPUT"ENTER ANY TWO NUMBER";A,B
IF A< B THEN
PRINT "THE SMALLEST NUMBER IS ";A
ELSE
PRINT"THE SMALLEST NUMBER IS";B
END IF
END

5.   WAP to enter any three numbers and display the middle number.

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

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

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

7.    WAP to define a function procedure which returns 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 display 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 GIVEN 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 ELIGIBLE TO VOTE"
ELSE
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 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