DISPLAY PROFIT, LOSS, PROFIT PERCENTAGE, LOSS PERCENTAGE, COST PRICE, SELLING PRICE



48. calculate profit

REM PROGRAM TO CALCULATE PROFIT
CLS
INPUT “ENTER COST PRICE”; CP
INPUT “ENTER SELLING PRICE”; SP
P = SP - CP
PRINT “PROFIT AMOUNT=”; P
END

USING SUB PROCEDURE

DECLARE SUB PROFIT (CP, SP)
CLS
INPUT “ENTER COST PRICE”; CP
INPUT “ENTER SELLING PRICE”; SP
CALL PROFIT(CP, SP)
END

SUB PROFIT(CP, SP)
P = SP - CP
PRINT “PROFIT AMOUNT=”; P
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION PROFIT (CP, SP)
CLS
INPUT “ENTER COST PRICE”; CP
INPUT “ENTER SELLING PRICE”; SP
PRINT “PROFIT AMOUNT=”; PROFIT(CP, SP)
END

FUNCTION PROFIT(CP, SP)
P = SP – CP
PROFIT = P
END FUNCTION

49. calculate loss

REM PROGRAM TO CALCULATE LOSS
CLS
INPUT “ENTER COST PRICE”; CP
INPUT “ENTER SELLING PRICE”; SP
L = CP - SP
PRINT “LOSS AMOUNT=”; L
END

USING SUB PROCEDURE

DECLARE SUB LOSS (CP, SP)
CLS
INPUT “ENTER COST PRICE”; CP
INPUT “ENTER SELLING PRICE”; SP
CALL LOSS(CP, SP)
END

SUB LOSS (CP, SP)
L = CP - SP
PRINT “LOSS AMOUNT=”; L
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION LOSS (CP, SP)
CLS
INPUT “ENTER COST PRICE”; CP
INPUT “ENTER SELLING PRICE”; SP
PRINT “LOSS AMOUNT=”; LOSS(CP, SP)
END

FUNCTION LOSS (CP, SP)
L = CP – SP
LOSS = P
END FUNCTION

50. calculate profit percentage

REM PROGRAM TO CALCULATE PROFIT PERCENTAGE
CLS
INPUT “ENTER COST PRICE”; CP
INPUT “ENTER SELLING PRICE”; SP
PP = ((SP – CP) / CP) * 100
PRINT “PROFIT PERCENTAGE=”; PP
END

USING SUB PROCEDURE

DECLARE SUB PROFITP (CP, SP)
CLS
INPUT “ENTER COST PRICE”; CP
INPUT “ENTER SELLING PRICE”; SP
CALL PROFITP(CP, SP)
END

SUB PROFITP (CP, SP)
PP = ((SP – CP) / CP) * 100
PRINT “PROFIT PERCENTAGE=”; PP
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION PROFITP (CP, SP)
CLS
INPUT “ENTER COST PRICE”; CP
INPUT “ENTER SELLING PRICE”; SP
PRINT “PROFIT PERCENTAGE=”; PROFITP(CP, SP)
END

FUNCTION PROFITP(CP, SP)
PP = ((SP – CP) / CP) * 100
PROFIT = PP
END FUNCTION

51. calculate loss percentage

REM PROGRAM TO CALCULATE LOSS PERCENTAGE
CLS
INPUT “ENTER COST PRICE”; CP
INPUT “ENTER SELLING PRICE”; SP
LP = ((CP – SP) / CP) * 100
PRINT “LOSS PERCENTAGE=”; LP
END

USING SUB PROCEDURE

DECLARE SUB LOSSP (CP, SP)
CLS
INPUT “ENTER COST PRICE”; CP
INPUT “ENTER SELLING PRICE”; SP
CALL LOSSP(CP, SP)
END

SUB LOSSP (CP, SP)
LP = ((CP – SP) / CP) * 100
PRINT “LOSS PERCENTAGE=”; LP
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION LOSSP (CP, SP)
CLS
INPUT “ENTER COST PRICE”; CP
INPUT “ENTER SELLING PRICE”; SP
PRINT “LOSS PERCENTAGE=”; LOSSP(CP, SP)
END

FUNCTION LOSSP (CP, SP)
LP = ((CP – SP) / CP) * 100
LOSS = LP
END FUNCTION

52. calculate selling price  where profit percentage and cost price is given

REM PROGRAM TO CALCULATE SELLING PRICE WHERE PROFIT PERCENTAGE AND COST PRICE IS GIVEN
CLS
INPUT “ENTER COST PRICE”; CP
INPUT “ENTER PROFIT PERCENTAGE”; PP
SP = CP * (100 + PP) / 100
PRINT “SELLING PRICE=”; SP
END

USING SUB PROCEDURE

DECLARE SUB SELLINGP (CP, PP)
CLS
INPUT “ENTER COST PRICE”; CP
INPUT “ENTER PROFIT PERCENTAGE”; PP
CALL SELLINGP(CP, PP)
END

SUB SELLINGP(CP, PP)
SP = CP * (100 + PP) / 100
PRINT “SELLING PRICE=”; SP
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION SELLINGP (CP, PP)
CLS
INPUT “ENTER COST PRICE”; CP
INPUT “ENTER PROFIT PERCENTAGE”; PP
PRINT “SELLING PRICE=”; SELLINGP(CP, PP)
END

FUNCTION SELLINGP(CP, PP)
SP = CP * (100 + PP) / 100
SELLINGP = SP
END FUNCTION

53. calculate selling price  where loss percentage and cost price is given

REM PROGRAM TO CALCULATE SELLING PRICE WHERE LOSS PERCENTAGE AND COST PRICE IS GIVEN
CLS
INPUT “ENTER COST PRICE”; CP
INPUT “ENTER LOSS PERCENTAGE”; LP
SP = CP * (100 - LP) / 100
PRINT “SELLING PRICE=”; SP
END

USING SUB PROCEDURE

DECLARE SUB SELLINGP (CP, LP)
CLS
INPUT “ENTER COST PRICE”; CP
INPUT “ENTER LOSS PERCENTAGE”; LP
CALL SELLINGP(CP, LP)
END

SUB SELLINGP(CP, LP)
SP = CP * (100 - LP) / 100
PRINT “SELLING PRICE=”; SP
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION SELLINGP (CP, LP)
CLS
INPUT “ENTER COST PRICE”; CP
INPUT “ENTER LOSS PERCENTAGE”; LP
PRINT “SELLING PRICE=”; SELLINGP(CP, LP)
END

FUNCTION SELLINGP(CP, LP)
SP = CP * (100 - LP) / 100
SELLINGP = SP
END FUNCTION


54. calculate cost price  where loss percentage and selling price is given

REM PROGRAM TO CALCULATE COST PRICE WHERE LOSS PERCENTAGE AND SELLING PRICE IS GIVEN
CLS
INPUT “ENTER SELLING PRICE”; SP
INPUT “ENTER LOSS PERCENTAGE”; LP
CP = (SP * 100) / (100 – LP)
PRINT “COST PRICE=”; CP
END

USING SUB PROCEDURE

DECLARE SUB COSTP (SP, LP)
CLS
INPUT “ENTER SELLING PRICE”; SP
INPUT “ENTER LOSS PERCENTAGE”; LP
CALL COSTP(SP, LP)
END

SUB COSTP(SP, LP)
CP = (SP * 100) / (100 – LP)
PRINT “COST PRICE=”; CP
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION COSTP (SP, LP)
CLS
INPUT “ENTER SELLING PRICE”; SP
INPUT “ENTER LOSS PERCENTAGE”; LP
PRINT “COST PRICE=”; COSTP(SP, LP)
END

FUNCTION COSTP(SP, LP)
CP = (SP * 100) / (100 – LP)
COSTP = CP
END FUNCTION

55. calculate cost price  where profit percentage and selling price is given

REM PROGRAM TO CALCULATE COST PRICE WHERE PROFIT PERCENTAGE AND SELLING PRICE IS GIVEN
CLS
INPUT “ENTER SELLING PRICE”; SP
INPUT “ENTER PROFIT PERCENTAGE”; PP
CP = (SP * 100) / (100 + PP)
PRINT “COST PRICE=”; CP
END

USING SUB PROCEDURE

DECLARE SUB COSTP (SP, PP)
CLS
INPUT “ENTER SELLING PRICE”; SP
INPUT “ENTER PROFIT PERCENTAGE”; PP
CALL COSTP(SP, LP)
END

SUB COSTP(SP, PP)
CP = (SP * 100) / (100 + PP)
PRINT “COST PRICE=”; CP
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION COSTP (SP, PP)
CLS
INPUT “ENTER SELLING PRICE”; SP
INPUT “ENTER PROFIT PERCENTAGE”; PP
PRINT “COST PRICE=”; COSTP(SP, PP)
END

FUNCTION COSTP(SP, PP)
CP = (SP * 100) / (100 + PP)
COSTP = CP
END FUNCTION

Comments

Blog27999 said…
Your Affiliate Money Printing Machine is waiting -

Plus, making profit with it is as easy as 1, 2, 3!

It's super easy how it works...

STEP 1. Input into the system what affiliate products the system will promote
STEP 2. Add PUSH BUTTON traffic (it takes JUST 2 minutes)
STEP 3. Watch the affiliate system explode your list and sell your affiliate products on it's own!

Are you ready to make money ONLINE???

Your MONEY MAKING affiliate solution is RIGHT HERE
February 27, 2020 at 9:51 PM
Blog27999 said…
If you're trying hard to lose fat then you absolutely have to try this brand new custom keto plan.

To design this service, certified nutritionists, fitness couches, and cooks have joined together to produce keto meal plans that are productive, convenient, cost-efficient, and satisfying.

From their launch in early 2019, hundreds of clients have already completely transformed their figure and well-being with the benefits a certified keto plan can offer.

Speaking of benefits: in this link, you'll discover eight scientifically-tested ones given by the keto plan.
February 29, 2020 at 2:40 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

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 NUM
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