Qbasic Program:Sum of Two numbers

1. Enter any two numbers and display its sum.

REM PROGRAM TO DISPLAY SUM OF TWO NUMBERS

CLS

INPUT “ENTER FIRST NUMBER”; A

INPUT “ENTER SECOND NUMBER”; B

S = A + B

PRINT “SUM OF TWO NUMBERS”; S

END

USING SUB PROCEDURE

DECLARE SUB SUM (A, B)

CLS

INPUT “ENTER FIRST NUMBER”; A

INPUT “ENTER SECOND NUMBER”; B

CALL SUM(A, B)

END

SUB SUM (A, B)

S = A + B

PRINT “SUM OF TWO NUMBERS”; S

END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION SUM (A, B)

CLS

INPUT “ENTER FIRST NUMBER”; A

INPUT “ENTER SECOND NUMBER”; B

S = SUM(A, B)

PRINT “SUM OF TWO NUMBERS”; S

END

FUNCTION SUM (A, B)

SU = A + B

SUM = SU

END FUNCTION

2. Enter any two numbers and display its difference.

REM PROGRAM TO DISPLAY DIFFERENCE OF TWO NUMBERS

CLS

INPUT “ENTER FIRST NUMBER”; A

INPUT “ENTER SECOND NUMBER”; B

D = A - B

PRINT “DIFFERENCE OF TWO NUMBERS”; D

END

USING SUB PROCEDURE

DECLARE SUB DIFF (A, B)

CLS

INPUT “ENTER FIRST NUMBER”; A

INPUT “ENTER SECOND NUMBER”; B

CALL DIFF(A, B)

END

SUB DIFF (A, B)

D = A - B

PRINT “DIFFERENCE OF TWO NUMBERS”; D

END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION DIFF (A, B)

CLS

INPUT “ENTER FIRST NUMBER”; A

INPUT “ENTER SECOND NUMBER”; B

DI = DIFF(A, B)

PRINT “DIFFERENCE OF TWO NUMBERS”; DI

END

FUNCTION DIFF (A, B)

D = A - B

DIFF = D

END FUNCTION

3. Enter any two numbers and display its product.

REM PROGRAM TO DISPLAY PRODUCT OF TWO NUMBERS

CLS

INPUT “ENTER FIRST NUMBER”; A

INPUT “ENTER SECOND NUMBER”; B

P = A * B

PRINT “PRODUCT OF TWO NUMBERS”; P

END

USING SUB PROCEDURE

DECLARE SUB PROD (A, B)

CLS

INPUT “ENTER FIRST NUMBER”; A

INPUT “ENTER SECOND NUMBER”; B

CALL PROD(A, B)

END

SUB PROD (A, B)

P = A * B

PRINT “PRODUCT OF TWO NUMBERS”; P

END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION PROD (A, B)

CLS

INPUT “ENTER FIRST NUMBER”; A

INPUT “ENTER SECOND NUMBER”; B

PR = PROD(A, B)

PRINT “PRODUCT OF TWO NUMBERS”; PR

END

FUNCTION PROD (A, B)

P = A * B

PROD = P

END FUNCTION

4. Enter any two numbers and display its average.

REM PROGRAM TO DISPLAY AVERAGE OF TWO NUMBERS

CLS

INPUT “ENTER FIRST NUMBER”; A

INPUT “ENTER SECOND NUMBER”; B

AV = (A + B) / 2

PRINT “AVERAGE OF TWO NUMBERS”; AV

END

USING SUB PROCEDURE

DECLARE SUB AVERAGE (A, B)

CLS

INPUT “ENTER FIRST NUMBER”; A

INPUT “ENTER SECOND NUMBER”; B

CALL AVERAGE(A, B)

END

SUB AVERAGE (A, B)

AV = (A + B) / 2

PRINT “AVERAGE OF TWO NUMBERS”; AV

END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION AVERAGE (A, B)

CLS

INPUT “ENTER FIRST NUMBER”; A

INPUT “ENTER SECOND NUMBER”; B

AVGR = AVERAGE(A, B)

PRINT “AVERAGE OF TWO NUMBERS”; AVGR

END

FUNCTION AVERAGE (A, B)

AV = (A + B) / 2

AVERAGE = AV

END FUNCTION

   

5. Enter any two numbers and display its sum, difference, product and average.

REM PROGRAM TO DISPLAY SUM, DIFFERENCE, PRODUCT AND AVERAGE  OF TWO NUMBERS

CLS

INPUT “ENTER FIRST NUMBER”; A

INPUT “ENTER SECOND NUMBER”; B

S = A + B

D = A – B

P = A * B

AV = (A + B) / 2

PRINT “SUM OF TWO NUMBERS”; S

PRINT “DIFFERENCE OF TWO NUMBERS”; D

PRINT “PRODUCT OF TWO NUMBERS”; P

PRINT “AVERAGE OF TWO NUMBERS”; AV

END

USING SUB PROCEDURE

DECLARE SUB SUM (A, B)

DECLARE SUB DIFF (A, B)

DECLARE SUB PROD (A, B)

DECLARE SUB AVERAGE (A, B)

CLS

INPUT “ENTER FIRST NUMBER”; A

INPUT “ENTER SECOND NUMBER”; B

CALL SUM(A, B)

CALL DIFF(A, B)

CALL PROD(A, B)

CALL AVERAGE(A, B)

END

SUB SUM (A, B)

S = A + B

PRINT “SUM OF TWO NUMBERS”; S

END SUB

SUB DIFF (A, B)

D = A - B

PRINT “DIFFERENCE OF TWO NUMBERS”; D

END SUB

SUB PROD (A, B)

P = A * B

PRINT “PRODUCT OF TWO NUMBERS”; P

END SUB

SUB AVERAGE (A, B)

AV = (A + B) / 2

PRINT “AVERAGE OF TWO NUMBERS”; AV

END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION SUM (A, B)

DECLARE FUNCTION DIFF (A, B)

DECLARE FUNCTION PROD (A, B)

DECLARE FUNCTION AVERAGE (A, B)

CLS

INPUT “ENTER FIRST NUMBER”; A

INPUT “ENTER SECOND NUMBER”; B

S = SUM(A, B)

D = DIFF (A, B)

P = PROD(A, B)

AV = AVERAGE(A, B)

PRINT “SUM OF TWO NUMBERS”; S

PRINT “DIFFERENCE OF TWO NUMBERS”; D

PRINT “PRODUCT OF TWO NUMBERS”; P

PRINT “AVERAGE OF TWO NUMBERS”; AV

END

FUNCTION SUM (A, B)

SU = A + B

SUM = SU

END FUNCTION

FUNCTION DIFF (A, B)

D = A - B

DIFF = D

END FUNCTION

FUNCTION PROD (A, B)

P = A * B

PROD = P

END FUNCTION

FUNCTION AVERAGE (A, B)

AVGR = (A + B) / 2

AVERAGE = AVGR

END FUNCTION

6. Enter any three numbers and display its sum, product and average.

REM PROGRAM TO DISPLAY SUM, PRODUCT AND AVERAGE  OF THREE NUMBERS

CLS

INPUT “ENTER FIRST NUMBER”; A

INPUT “ENTER SECOND NUMBER”; B

INPUT “ENTER THIRD NUMBER”; C

S = A + B + C

P = A * B * C

AV = (A + B + C) / 3

PRINT “SUM OF THREE NUMBERS”; S

PRINT “PRODUCT OF THREE NUMBERS”; P

PRINT “AVERAGE OF THREE NUMBERS”; AV

END

USING SUB PROCEDURE

DECLARE SUB SUM (A, B, C)

DECLARE SUB PROD (A, B, C)

DECLARE SUB AVERAGE (A, B, C)

CLS

INPUT “ENTER FIRST NUMBER”; A

INPUT “ENTER SECOND NUMBER”; B

INPUT “ENTER THREE NUMBERS”; C

CALL SUM(A, B, C)

CALL PROD(A, B, C)

CALL AVERAGE(A, B, C)

END

SUB SUM (A, B, C)

S = A + B + C

PRINT “SUM OF THREE NUMBERS”; S

END SUB

SUB PROD (A, B, C)

P = A * B * C

PRINT “PRODUCT OF THREE NUMBERS”; P

END SUB

SUB AVERAGE (A, B)

AV = (A + B + C) / 3

PRINT “AVERAGE OF THREE NUMBERS”; AV

END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION SUM (A, B, C)

DECLARE FUNCTION PROD (A, B, C)

DECLARE FUNCTION AVERAGE (A, B, C)

CLS

INPUT “ENTER FIRST NUMBER”; A

INPUT “ENTER SECOND NUMBER”; B

INPUT “ENTER THIRD NUMBER”; C

S = SUM(A, B, C)

P = PROD(A, B, C)

AV = AVERAGE(A, B, C)

PRINT “SUM OF THREE NUMBERS”; S

PRINT “PRODUCT OF THREE NUMBERS”; P

PRINT “AVERAGE OF THREE NUMBERS”; AV

FUNCTION SUM (A, B, C)

SU = A + B + C

SUM = SU

END FUNCTION

FUNCTION PROD (A, B, C)

P = A * B * C

PROD = P

END FUNCTION

FUNCTION AVERAGE (A, B, C)

AVGR = (A + B + C) / 3

AVERAGE = AVGR

END FUNCTION

7. Display sum of half of any two given numbers.

REM PROGRAM TO DISPLAY SUM OF HALF OF ANY TWO GIVEN NUMBERS

CLS

INPUT “ENTER FIRST NUMBER”; A

INPUT “ENTER SECOND NUMBER”; B

S = A / 2 + B / 2

PRINT “SUM OF HALF OF TWO NUMBERS”; S

END

USING SUB PROCEDURE

DECLARE SUB SUM (A, B)

CLS

INPUT “ENTER FIRST NUMBER”; A

INPUT “ENTER SECOND NUMBER”; B

CALL SUM(A, B)

END

SUB SUM (A, B)

S = A / 2 + B / 2

PRINT “SUM OF HALF OF TWO NUMBERS”; S

END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION SUM (A, B)

CLS

INPUT “ENTER FIRST NUMBER”; A

INPUT “ENTER SECOND NUMBER”; B

S = SUM(A, B)

PRINT “SUM OF HALF OF TWO NUMBERS”; S

END

FUNCTION SUM (A, B)

SU =  A / 2 + B / 2

SUM = SU

END FUNCTION

8. Input n number and print the sum of first n natural numbers.

REM CALCULATE SUM OF FIRST N NATURAL NUMBERS

CLS

INPUT “ENTER THE NUMBER”; N

S = N * (N + 1) / 2

PRINT “SUM OF”; N; “NUMBERS=”; S

END

USING SUB PROCEDURE

DECLARE SUB SUM(N)

CLS

INPUT “ENTER THE NUMBER”; N

CALL SUM (N)

END

SUB SUM (N)

S = N * (N + 1) / 2

PRINT “SUM OF”; N; “NUMBERS=”; S

END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION SUM(N)

CLS

INPUT “ENTER THE NUMBER”; N

PRINT “SUM OF”; N; “NUMBERS=”; SUM (N)

END

FUNCTION SUM (N)

S = N * (N + 1) / 2

SUM = S

END FUNCTION

9. Input n number and print the sum square of first n natural numbers.

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