QBASIC Program to print the pattern 1, 22, 333, 4444, 55555 (SUB/FUNCTION Procedure)

OUTPUT

Qbasic Program to print the pattern 1, 12, 123, 1234, 12345 (With SUB/FUNCTION Procedure)

OUTPUT

Qbasic Program to print 123454321, 1234321, 12321, 121, 1 [Hint: insert (;) at the end of PRINT a*a; to print in Horizontally] (SUB/Function)

OUTPUT

QBASIC Program to Print the Display the Numeric Series 55555, 5555, 555, 55, 5 (SUB/FUNCTION Procedure)

CLS
n = 55555
FOR I = 1 TO 5
     PRINT n;
     n = n \ 10
NEXT I
END

QBASIC Program to Print the series 7, 22, 11, 34, 17, 52, 26, 13, 40, 20 (SUB/FUNCTION Procedure)

CLS
a = 7
FOR i = 1 TO 10
     PRINT a;
     IF a MOD 2 = 0 THEN
          a = a \ 2

     ELSE
          a = a * 3 + 1

QBASIC Program to display simple interest (SUB/FUNCTION Procedure)

CLS
PRINT "Enter the following... "
INPUT "Principle : "; p
INPUT "Time : "; t
INPUT "Rate : "; r
i = (p * t * r) / 100
PRINT "Simple Interest (I) = "; i
END

QBASIC Program to calculate the area of triangle when three sides are given

CLS
INPUT "Enter the value of first side : "; x
INPUT "Enter the value of second side : "; y
INPUT "Enter the value of third side : "; z
s = (x + y + z) / 2
a = (s * (s - a) * (s - b) * (s - c)) ^ (1 / 2)

QBASIC Program to print the area of parallelogram (Using SUB/FUNCTION Procedure)

CLS
INPUT "Enter Breadth : "; b
INPUT "Enter Height : "; h
a = b * h
PRINT "Area of Parallelogram is : "; a
END

QBASIC Program to print the area of triangle (with SUB/FUNCTION Procedure)

CLS
INPUT "Enter Breadth : "; b
INPUT "Enter Height : "; h
a = 1 / 2 * (b * h)
PRINT "Area of Triangle is "; a
END

QBASIC Program to print the area of 4 walls (SUB/FUNCTION Procedure Demo)

CLS
INPUT "Enter Breadth : "; b
INPUT "Enter Height : "; h
area = 2 * h * (l + b)
PRINT "Area of 4 walls = "; area
END