# Display greatest among three no. (sub)
DECLARE SUB GREAT(a,b,c)
CLS
INPUT "Enter first number";a
INPUT "Enter second number";b
INPUT "Enter third number";c
CALL GREAT(a,b,c)
END
SUB GREAT(a,b,c)
IF a> b AND a >c THEN
PRINT"the greatest no is ";a
ELSEIF b> a AND b>c THEN
PRINT" the greatest no is ";b
ELSE
PRINT"the greatest no is ";c
END IF
END FUNCTION
DECLARE SUB GREAT(a,b,c)
CLS
INPUT "Enter first number";a
INPUT "Enter second number";b
INPUT "Enter third number";c
CALL GREAT(a,b,c)
END
SUB GREAT(a,b,c)
IF a> b AND a >c THEN
PRINT"the greatest no is ";a
ELSEIF b> a AND b>c THEN
PRINT" the greatest no is ";b
ELSE
PRINT"the greatest no is ";c
END IF
END FUNCTION
Comments
Post a Comment