To input the sides of triangle and to check whether a triangle can be formed or not. (Qbasic Code)
CLS
top:
INPUT "Enter the length of the first side of triangle"; a
INPUT "Enter the length of the second side of triangle"; b
INPUT "Enter the length of the third side of triangle"; c
IF a + b > c AND b + c > a AND c + a > b THEN
PRINT "Triangle can be formed"
ELSE
PRINT "Triangle can not be formed"
END IF
PRINT
INPUT "Do you want to check more (Y/N)?"; ans$
IF UCASE$(ans$) = "Y" THEN
GOTO top:
ELSE
SYSTEM
END IF
END
CLS
top:
INPUT "Enter the length of the first side of triangle"; a
INPUT "Enter the length of the second side of triangle"; b
INPUT "Enter the length of the third side of triangle"; c
IF a + b > c AND b + c > a AND c + a > b THEN
PRINT "Triangle can be formed"
ELSE
PRINT "Triangle can not be formed"
END IF
INPUT "Do you want to check more (Y/N)?"; ans$
IF UCASE$(ans$) = "Y" THEN
GOTO top:
ELSE
SYSTEM
END IF
END