identification division.
program-id. add-prog.
environment division.
data division.
working storage section.
77 a pic 999.
77 b pic 999.
77 c pic 9(4).
procedure division.
a-para.
display (1, 1) erase.
display (10, 10) "enter the value of a".
accept a.
display (12, 10) "enter the value of b".
accept b.
compute c = a + b.
display (15, 10) "the sum of a and b = " c.
compute c = a * b.
display (17, 10) " the product of a and b = " c.
compute c = a - b.
display (19, 10) " the result of a - b = " c.
stop run.
IDENTIFICATION DIVISION.
PROGRAM-ID. RAVENDRA-PANDEY.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 A PIC 9(5).
77 B PIC 9.
PROCEDURE DIVISION.
DISP.
DISPLAY "TYPE THE NUMBER OF A".
ACCEPT A.
DIVIDE 2 BY A GIVING B.
IF (B = 0)
DISPLAY "THE NUMBER IS EVEN"
ELSE
DISPLAY "THE NUMBER IS ODD".
STOP RUN.
IDENTIFICATION DIVISION.
PROGRAM-ID. RAVENDRA PANDEY.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 A PIC 999.
77 B PIC 999.
77 C PIC 999.
77 D PIC 999.
77 E PIC 999.
77 AD PIC 9999.
77 SB PIC 999.
77 ML PIC 9999.
77 DI PIC 999.
PROCEDURE DIVISION.
DISP.
DISPLAY " ENTER THE VALU OF A ".
ACCEPT A.
DISPLAY " ENTER THE VALU OF B ".
ACCEPT B.
DISPLAY " ENTER THE VALU OF C ".
ACCEPT C.
DISPLAY " ENTER THE VALU OF D ".
ACCEPT D.
DISPLAY " ENTER THE VALU OF E ".
ACCEPT E.
COMPUTE AD = A + B.
COMPUTE SB = C - D.
COMPUTE ML = AD * SB.
COMPUTE DI = ML / E.
DISPLAY "(( A + B) * (C - D)) / E = " DI.
STOP RUN.
IDENTIFICATION DIVISION.
PROGRAM-ID RAVENDRA-PANDEY.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 A PIC 9(3).
77 L PIC 9 VALUE 0.
PROCEDURE DIVISION.
DISP.
DISPLAY "TYPE THE NUMBER".
ACCEPT A.
DIVIDE A BY 2 GIVING A ROUNDED REMAINDER L.
IF (L = 0)
DISPLAY "THE NUMBER IS EVEN"
ELSE
DISPLAY "THE NUMBER IS ODD".
STOP RUN.
IDENTIFICATION DIVISION.
PROGRAM-ID. RAVENDRA-PANDEY.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 X PIC 999.
77 N PIC 99.
77 S PIC 9999V99.
PROCEDURE DIVISION.
DISP.
DISPLAY "ENTER THE VALUE OF X, N".
ACCEPT X.
ACCEPT N.
COMPUTE S = (1 + X) **N.
DISPLAY S.
STOP RUN.
IDENTIFICATION DIVISION.
[Link]-PANDEY.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 A PIC 99.
77 B PIC 99.
77 C PIC 9 VALUE 0.
77 RES PIC 999.99.
PROCEDURE DIVISION.
DISP.
DISPLAY "ENTER THE VALUE OF A :-".
ACCEPT A.
DISPLAY "ENTER THE VALUE OF B :-".
ACCEPT B.
DISPLAY "WHAT YOU WANT TO DO ?".
DISPLAY "1 ADD 2 SUB 3 MUL 4 DIV".
ACCEPT C.
IF (C = 1)
COMPUTE RES = A + B
GO TO S
ELSE
IF (C = 2)
COMPUTE RES = A - B
GO TO S
ELSE
IF (C = 3)
COMPUTE RES = A * B
GO TO S
ELSE
IF (C = 4)
COMPUTE RES = A / B
GO TO S
ELSE
DISPLAY "INVILED ENTRY"
GO TO Q.
S.
DISPLAY "RESULT IS :-" RES.
Q.
STOP RUN.
IDENTIFICATION DIVISION.
PROGRAM-ID RAVENDRA-PANDEY.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 A PIC 999.
77 B PIC 999.
77 SUM PIC 9999.
77 SUB PIC 9999.
77 MUL PIC 9999.
77 DIV PIC 9999V99.
PROCEDURE DIVISION.
DISP.
DISPLAY "ENTER THE VALUE OF A,B".
ACCEPT A.
ACCEPT B.
COMPUTE SUM = (A + B).
COMPUTE SUB = (A - B).
COMPUTE MUL = (A * B).
COMPUTE DIV = (A / B).
DISPLAY "SUM==" SUM.
DISPLAY "SUB==" SUB.
DISPLAY "MUL==" MUL.
DISPLAY "DIV==" DIV.
STOP RUN.
IDENTIFICATION DIVISION.
PROGRAM-ID. RAVENDRA-PANDEY
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 I PIC 999V99.
77 P PIC 999.
77 R PIC 999.
77 T PIC 999.
PROCEDURE DIVISION.
DISP.
DISPLAY "ENTER THE VALUE OF P".
ACCEPT P.
DISPLAY "ENTER THE VALUE OF R".
ACCEPT R.
DISPLAY "ENTER THE VALUE OF T".
ACCEPT T.
COMPUTE I = P * ( 1 + R / 100 ) ** T.
DISPLAY I.
STOP RUN.
IDENTIFICATION DIVISION.
PROGRAM-ID. RAVENDRA-PANDEY.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 BASIC PIC 9999V9.
77 PAY PIC 9999V99.
PROCEDURE DIVISION.
DISP.
DISPLAY "ENTER THE VALUE OF BASIC".
ACCEPT BASIC.
IF BASIC > 6000
COMPUTE PAY = BASIC + 1000.
IF BASIC < 6000
COMPUTE PAY = BASIC + 1500.
IF BASIC < 5000
COMPUTE PAY = BASIC + 2000.
DISPLAY PAY.
STOP RUN.