CLS
INPUT "ENTER ANY NUMBER"; N
FOR I = 1 TO 10
PRINT N; "X"; I; "="; N * I
NEXT I
END
USING SUB PROCEDURE
DECLARE SUB MUL (N)
CLS
INPUT "ENTER ANY NUMBER"; N
CALL MUL (N)
END
SUB MUL (N)
FOR I = 1 TO 10
PRINT N; "X"; I; "="; N * I
NEXT I
END SUB
USING FUNCTION PROCEDURE
DECLARE FUNCTION MUL (N)
CLS
INPUT "ENTER ANY NUMBER"; N
M = MUL(N)
END
FUNCTION MUL (N)
FOR I = 1 TO 10
PRINT N; "X"; I; "="; N * I
NEXT I
END FUNCTION
No Comments