(12C Platinum) Tip Calculation

[Gamo]

Program to calculate Tip and Total per Person.

This program is adapted from my previous post at

http://www.hpmuseum.org/forum/thread-9251.html

The only difference is this one use ALG programming available on 12C Platinum.

-------------------------------------------

Procedure:

1. Enter Bill Amount [R/S]
2. Enter Desire Tip% [R/S]
3. Enter How many person [R/S]
4. Answer: Tip Amount per Person [R/S]
5. Answer: Total Amount including Tip per Person

-----------------------------------------------

Example:
Bill $90.45
Tip 15% with 2 persons.

90.45 [R/S] display 90.45
15 [R/S] display 15
2 [R/S] display -6.78 // Answer Tip Amount per Person
[R/S] display -52.01 // Answer Total Amount include Tip per person

Remark:
Negative Integer display indicate that this is the results
First is tip amount
Second is total amount
Lastly negative also indicate that money is pay out.


---------------------------------------------
Program: Tip Calculation (ALG mode)

Code:


001 STO 1  // Bill
002 R/S
003 STO 2  // Tip
004 R/S
005 STO 3  // Person Count
------------------------------------------
006 RCL 2  // Calculate Tip Amount per Person
007  %
008  x
009 RCL 1
010  ÷
011 RCL 3
012  =
013 CHS
014 R/S
-----------------------------------------
015 RCL 1  // Calculate Total Amount including Tip per Person
016  +
017 RCL 2
018  %
019  =
020  ÷
021 RCL 3
022  =
023 CHS
024 GTO 000

Gamo