Wednesday, October 16, 2019

QBASIC to find Positive or Negative using SUB

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


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

No comments:

Post a Comment

Subscribe to: Post Comments (Atom)
  • QBASIC to display 1, 1, 2, 3, 5, 8.. upto 10th term using SUB
    DECLARE SUB SERIES ( ) CLS CALL SERIES END SUB SERIES ( ) A = 1 B = 1 FOR I = 1 TO 5 PRINT AA PRINT B A = A +B B = A + B NEXT I...
  • My Father
      My father My father name is Prem kumar Sunuwar.He is 39 years old.He is a mansion.He is my super hero of my life. He always help and su...
  • Experience of JM
    During my time in high school I had it really good moments, but my best moments that I've experienced are in a particular class during ...