REM CALCULATE SUM OF SQUARE OF FIRST N NATURAL NUMBERS
CLS
INPUT “ENTER THE NUMBER”; N
S = N * (N + 1) * (2 * N + 1) / 6
PRINT “SUM OF SQUARE OF ”; N; “NUMBERS=”; S
END
USING SUB PROCEDURE
DECLARE SUB SUMSQ(N)
CLS
INPUT “ENTER THE NUMBER”; N
CALL SUMSQ(N)
END
SUB SUMSQ (N)
S = N * (N + 1) * (2 * N + 1) / 6
PRINT “SUM OF SQUARE OF ”; N; “NUMBERS=”; S
END SUB
USING FUNCTION PROCEDURE
DECLARE FUNCTION SUMSQ(N)
CLS
INPUT “ENTER THE NUMBER”; N
PRINT “SUM OF SQUARE OF ”; N; “NUMBERS=”; SUMSQ (N)
END
FUNCTION SUMSQ (N)
S = N * (N + 1) * (2 * N + 1) / 6
SUMSQ = S
END FUNCTION
No Comments