割り勘の計算（関数電卓で）
私の所属している写真クラブ（はい☆チーズ）の例会では、飲み代は全て割り勘と決めている。
まぁ、余り細かいことを言わない人達であるので、ざっくりとした割り勘で皆さん満足している
さて、飲み会の会計をしている私にとって、割り勘の計算が悩みのタネです
自身もほろ酔いの中での計算は地獄のような瞬間です。
- お店の請求が、66,950円
- 皆さんの会費が、5,000円（税抜き）
- 参加人数が、10人
- 酒飲みが、5人
さて、どのような結果かというと
酒飲み：7,000円 会費5,000円+税500+生ビル代1500円
その他：6,200円 会費5000+税金500+ジュース代700円
おつり：50円
こんな計算になりましたが、何回も計算した結果です。
これを何とかしたい・・・と思い、関数電卓にプログラミングしてみました。
上手くいきました。
酒飲み金額を7200円にしたときの計算です。
コーディングサンプルです。初期バージョンなので動作が心配ですが参考になれば:-O
"DAIKIN"?->D
"KAIHI"?->K
"NINZUU"?->N
"SAKE"?->S
"SAKE %"->P
P/100->W
(D-(K*N))->F
(F*W/S)+K->T
Locate 1,4,T
While 1
Cls
Locate 1,4,T
"CYOSEI"?->G
If G=0
Then Return
IfEnd
(D-G*S)/(N-S)->H
Locate 1,3,G
Locate 1,4,H
whileEnd
コメント