HP Forums
(12) Accumulate Percentage Discount - Printable Version

+- HP Forums (https://www.hpmuseum.org/forum)
+-- Forum: HP Software Libraries (/forum-10.html)
+--- Forum: General Software Library (/forum-13.html)
+--- Thread: (12) Accumulate Percentage Discount (/thread-16578.html)



(12) Accumulate Percentage Discount - Gamo - 04-01-2021 09:27 AM

This little program calculate the Total Discount based on Price per Quantiy.
If the list have more than one Percentage Discount program got an options to let user
input different discount and this will total all up for Grand Total (Total without discount),
Discount Total and the Amount of all discounts.
To Run first Initialize by [f] [PRGM] and [f] [REG]
1. % Discount [R/S] display your discount percent in use
2. Price [ENTER] Quantity [R/S] display Discounted Total
3. Repeat step #2 for same percent discount
4. For different percent discount [f] [PRGM] this will put program to start at the top.
5. Repeat steps #1 and #2
6. Finish press key numeric number 0 [R/S] display Grand Total
7. [RCL] 1 display Discount Total
8. [RCL] 2 display Discount Amount

Register Use:
R0 Percent Discount
R1 Discount Total
R2 Discount Amount
R3 Total

Demo Clip: https://youtu.be/HQ4T24SoegQ

Program:
Code:

01 STO 0  // Discount Rate
02 R/S
03 X=0  // Finish End program
04 GTO 13
05  x   // Calculate Price per Quantity
06 STO+3  // Store Total
07 RCL 0
08  %
09 STO+2  // Store Discount Amount
10  -        // Minus Sign 
11 STO+1  // Store Total Discount
12 GTO 02
13 RCL 3

Remark:

On each "Price per Quantity" calculations when user press Price [ENTER] Quantity [R/S]

Display will shown only the "Discount Total"

If user need to know the "Discount Amount" and "Total" follow these steps

Price [ENTER] Qunatity [R/S] display Discount Total
[LSTx] display Discount Amount
[+] display Total

Gamo


RE: (12) Accumulate Percentage Discount - Nihotte(lma) - 04-05-2021 08:40 AM

(04-01-2021 09:27 AM)Gamo Wrote:  ...

Demo Clip: https://youtu.be/HQ4T24SoegQ


Gamo

Hi Gamo,

Nice little function that is simple and practical to use!
Thank you!
And also for the demo!

Keep you safe!

Laurent