QBasic programming to display odd or even number

CLS
INPUT  "Enter any number"; N
IF N MOD 2 = 0 THEN
PRINT "The  number is even"
ELSE
PRINT "The number is odd"
END IF
END

QBasic programming to display positive, negative or zero

Write a program 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 programming to find the volume of cylinder

Write a program to find the volume of cylinder.

CLS
INPUT "Enter radius "; r
INPUT "Enter height"; h
V = 22 / 7 * r ^ 2 * h
PRINT "Volume of cylinder= "; V
END

QBasic programming to find the volume of cube

Write a program to find the volume of cube.
CLS
INPUT "Enter length"; l
V = l ^ 3
PRINT "Volume of cube="; V
END

QBasic programming to find the volume of box

Write a program to find the volume of box.

CLS
INPUT "Enter length"; l
INPUT "Enter height";h
INPUT "Enter breadth"; b
V = l * b * h
PRINT "Volume of box="; V
END

QBasic programming to find the area of square

Write a program to find the area of square.

CLS
INPUT "Enter length "; l
A = l ^ 2
PRINT "Area of square="; A
END

QBasic programming to find the area of 4 walls

Write a program to find the area of 4 walls.

CLS
INPUT "Enter height"; h
INPUT "Enter breadth";b
INPUT "Enter length"; l
A = 2 * h * ( l + b)
PRINT "Area of 4 walls= "; A
END

Qbasic programming to find the area of triangle

Write a program to find the area of triangle.

CLS
INPUT "Enter base"; b
INPUT "Enter height "; h
A = 1 / 2 * b * h
PRINT "Area of triangle ="; A
END

QBasic programming to find the area of circle

Write a program to find the area of circle.

CLS
INPUT "Enter radius"; r
A= 22/7 * r ^ 2
PRINT "Area of circle= "; A
END

Find area of rectangle

Write a program to find the area of rectangle.

CLS
INPUT "Enter length";l
INPUT "Enter breadth";b
A =  l * b
PRINT "Area of rectangle=";A
END

MY FATHER❤️

My father's name is Baljit Rai. He is on his late 40. He is a bussinessman by profession. He has been the most favourite person for me in this whole world. He has been encouraging me to do well. How i am now is all because of him. Being a daughter of him has been a blessing for me. I have been showered by all his love and affection. He is the most kindest, most handsome, most hardworking gentleman. He is like a real superman who has been fulfilling all the needs of me and my family. He always teaches me to be a good person. He encourages me to be a better person everyday and to do good deeds only. 

I respect my father and adore him everyday not only on father's day. I am very thankful to him for everything he has done for me.