PROGRAM TO DISPLAY SUM, PRODUCT, DIFFERENCE AND PRODUCT OF TWO / THREE 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

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) / 2
AVERAGE = AVGR
END FUNCTION

Comments

Unknown said…
Write a program in qbasic that accepts a number,a character and a string and displays that same.
September 5, 2018 at 6:53 AM
Unknown said…
Do this hack to drop 2lb of fat in 8 hours

Well over 160k women and men are utilizing a simple and SECRET "liquid hack" to drop 2 lbs each night as they sleep.

It's proven and it works on everybody.

Here's how you can do it yourself:

1) Get a drinking glass and fill it with water half the way

2) And now do this proven hack

and become 2 lbs lighter the next day!
February 22, 2020 at 9:31 PM
Unknown said…
Thanks it help me a lot.
March 6, 2020 at 1:15 PM
Christmas said…
A teacher wishes to average a large (and unknown) number of test scores, where the scores can range from 0 to 100. The scores are entered from the terminal and the desired output is simply the average.


Please help 🥺
May 18, 2020 at 4:18 PM
Unknown said…
Thanks, it helps me a lot.
December 13, 2020 at 9:22 PM
Arpan said…
please slve it bro please please please please

Write a program in QBASIC and draw a flowchart
to print all the numbers divisible by 6 between
a & b where a & b should be taken input from user.

5. Write a program in QBASIC and draw a flowchart to
print the following series :
0, 7 , 15 , …. N terms( N should be taken input from
user)
January 20, 2021 at 7:34 PM
Unknown said…
To swap variables using function procedure
July 18, 2021 at 8:57 PM
Post a Comment

Popular posts from this blog

PROGRAM TO FIND SQUARE, CUBE, SQUARE ROOT AND CUBE ROOT OF GIVEN NUMBER

7. Display square of an input number. REM PROGRAM TO DISPLAY SQUARE OF AN INPUT NUMBER CLS INPUT “ENTER ANY NUMBER”; N S = N ^ 2 PRINT “SQUARE OF NUMBER ”; S END USING SUB PROCEDURE DECLARE SUB SQUARE (N) CLS INPUT “ENTER ANY NUMBER”; N CALL SQUARE(N) END SUB SQUARE (N) S = N ^ 2 PRINT “SQUARE OF NUMBER “; S END SUB USING FUNCTION PROCEDURE DECLARE FUNCTION SQUARE (N) CLS INPUT “ENTER ANY NUMBER”; N S = SQUARE(N) PRINT “SQUARE OF NUMBER “; S END FUNCTION SQUARE (N) SQ= N ^ 2 SQUARE = SQ END FUNCTION 8. Display cube of an input number. REM PROGRAM TO DISPLAY CUBE OF AN INPUT NUMBER CLS INPUT “ENTER ANY NUMBER”; N C = N ^ 3 PRINT “CUBE OF NUMBER ”; C END USING SUB PROCEDURE DECLARE SUB CUBE (N) CLS INPUT “ENTER ANY NUMBER”; N CALL CUBE(N) END SUB CUBE (N) C = N ^ 3 PRINT “CUBE OF NUMBER “; C END SUB USING FUNCTION PROCEDURE DECLARE FUNCTION CUBE (N) CLS INP
Read more

PALINDROME AND ARMSTRONG PROGRAMS

120.  WAP to input any number and check whether the given no. is palindrome or not. CLS INPUT "ENTER ANY NUMBER"; N A = N S = 0 WHILE N < > 0 R = N MOD 10 S = S * 10 + R N = N \ 10 WEND IF A = S THEN PRINT A; "IS PALINDROME" ELSE PRINT A; "IS NOT PALINDROME" END IF END USING SUB PROCEDURE DECLARE SUB PALIN (N) CLS INPUT "ENTER ANY NUMBER"; N CALL PALIN (N) END SUB PALIN (N) A = N S = 0 WHILE N < > 0 R = N MOD 10 S = S * 10 + R N = N \ 10 WEND IF A = S THEN PRINT A; "IS PALINDROME" ELSE PRINT A; "IS NOT PALINDROME" END IF END SUB USING FUNCTION PROCEDURE DECLARE FUNCTION PALIN (N) CLS INPUT "ENTER ANY NUMBER"; N P = PALIN ((N)) IF P = N THEN PRINT N; "IS PALINDROME" ELSE PRINT N; "IS NOT PALINDROME" END IF END FUNCTION PALIN (N) S = 0 WHILE N < > 0 R = N MOD 10
Read more