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 :

Twitter