QBASIC to display Positive, Negative or Zero

QBASIC to display Positive, Negative or Zero

CLS
INPUT "Enter any number"; N
IF N>0 THEN
PRINT "The number is positive"
ELSEIF N<0 THEN
PRINT " The number is negative"
ELSE
PRINT "The number is zero"
END IF

END

QBASIC to find Volume of Cylinder

QBASIC to find Volume of Cylinder

CLS
INPUT "Enter the radisu"; R
INPUT "Enter the height"; H
V =  22/7*R^2*H
PRINT "Volume of cylinder="; V
END

QBASIC to find Volume of Cube

QBASIC to find Volume of Cube

CLS
INPUT "Enter the length"; L
V = L^3
PRINT "Volume of cube="; V
END

QBASIC to find Volume of box

QBASIC to find Volume of box

CLS
INPUT "Enter the length"; L
INPUT "Enter the breadth": B
INPUT "Enter the height"; H
V = L*B*H
PRINT "Volume of box="; V
END 

QBASIC to find Area of Square

QBASIC to find Area of Square

CLS
INPUT "Ente the length"; L
A = L^2
PRINT "Area of square="; A
END

QBASIC to find Area of four walls

QBASIC to find Area of four walls

CLS
INPUT "Enter the length"; L
INPUT "Enter the breadth"; B
INPUT "Enter the height"; H
A = 2*H*(L+B)
PRINT "Area of four walls="; A
END

My Father

My father name is pemba sherpa. He is 32 years old. He is from morahang,terathum.he is very caring and loving person. He works in chocolates factory which is in saudi arabia.he is very energetic and powerful person. He is working their for our education and livelihood. I love my father very much ❤️ . He also love us very much. In last i want to say he is very nice and loving type of person.


                THANK  YOU 👏👏❤️