To find volume cylinder (Qbasic code)
CLS
LET pi = 3.14
INPUT "Enter the value of radius"; r
INPUT "Enter the height"; h
v = pi * r ^ 2 * h
PRINT "The volume of the cylinder is"; v
END
CLS
LET pi = 3.14
INPUT "Enter the value of radius"; r
INPUT "Enter the height"; h
v = pi * r ^ 2 * h
PRINT "The volume of the cylinder is"; v
END