Friday, December 26, 2014

Qbasic program on howto find even or odd

CLS
INPUT A
IF A MOD 2 =0 THEN
PRINT "EVEN";
ELSE
PRINT "ODD";
END IF
END


SUB......END SUB
DECLARE SUB EOO(A)
INPUT A
CALL EOO(A)
END
SUB EOO(A)
IF A MOD A = 0 THEN
PRINT "EVEN"
ELSE
PRINT "ODD"
END IF
END SUB

FUNCTION....END FUNCTION

17 comments:

  1. Bro variable is not coming on output screen . it is coming ?

    ReplyDelete
  2. Thank you so much for this program.

    ReplyDelete
  3. declare funciton check$(n)
    cls
    input"enter any number";n
    print n;"is";check$(n)
    end
    function check$(n)
    if n mod 2=0 then
    check$="even"
    else
    check$="odd"
    endif
    end function

    ReplyDelete
  4. Thanks! It provided me 100 marks!

    ReplyDelete
  5. Thanks blogspot I am having my INFORMATION TECHNOLOGY (I.T) exam and you helped me in my Question in my exam.

    ReplyDelete
  6. THANKS BRO IN SHORT WE CAN WRITE 10 CLS
    20 IF A % 2 =0
    THEN PRINT "EVEN"
    ELSE
    PRINT "ODD"
    END IF
    END AND IF WE WILL WRITE IF COMMAND THE IT WILL BE NECESSARY TO WRITE END IF

    ReplyDelete