To input radius of a circle and allows user to choose to find the area or perimeter of the circle. (Qbasic Code)

- CLS

INPUT "Enter the radius of the circle"; r

PRINT

PRINT "To find the area, Press 1"

PRINT "To find the perimeter, Press 2"

PRINT

INPUT "Which do you want to find"; ch

PRINT

pi = 3.14

IF ch = 1 THEN

a = pi * r ^ 2

PRINT "Area of the circle is"; a

ELSEIF ch = 2 THEN

p = 2 * pi * r

PRINT "Perimeter of the circle is"; p

ELSE

PRINT "Selection Wrong";

END IF

END