Wap to find whether the given no. is positive or negative

DECLARE SUB CHECK(N)
CLS
INPUT"ENTER ANY NO.";N
CALL CHECK(N$)
END

SUB CHECK(N)
IF N > 0 THEN
PRINT"POSITIVE NO."
ELSE IF N  < 0 THEN
PRINT"NEGATIVE NO."
ELSE
PRINT"ZERO"
END IF
END SUB

Comments

Post a Comment

Popular posts from this blog

MY FATHER

                                 FATHER     My father name is tej badhur thapa Magar.  He is head of our family. He is our super hero Bec he made our life better than his. He is now 47 years old. His profession is weding designer. He work very hard to full fill our needs and give us better life. I am very thankful of my father.
Read more
Wap to calculate distance travelled by body DECLARE FUNCTION DIS(U,T,A) CLS INPUT"ENTER VELOCITY";U INPUT"ENTER TIME";T INPUT"ENTER ACCELERATION";A PRINT"DISTANCE TRAVELLED BY BODY IS ";DIS(U,T,A) END FUNCTION DIS(U,T,A) DIS=U*T+1/2*A*T^2 END FUNCTION
Read more
Wap to find volume of cylinder DECLARE FUNCTION VOL(R,H) CLS INPUT"ENTER RADIUS";R INPUT"ENTER HEIGHT";H PRINT"VOLUME OF CYLINDER IS";VOL(R,H) END FUNCTION VOL(R,H) VOL=22/7*R^2*H END FUNCTION
Read more