To find the area of rectangle (using SUB procedure) (Qbasic Code)

  • To find the area of rectangle (using SUB procedure) (Qbasic Code)
  • DECLARE SUB area(l,b)
    CLS
    INPUT "Enter the lenght of rectangle"; l
    INPUT "Enter the breadth of rectangle"; b
    CALL area(l, b)
    END

    SUB area (l, b)
    a = l * b
    PRINT "The area of rectangle is"; a
    END SUB
See Also
Using FUNCTION Procedure (View)

Share :

Facebook Twitter Google+
Back To Top

facebook main

counter

Powered by Blogger.