割り勘の計算(関数電卓で)

私の所属している写真クラブ(はい☆チーズ)の例会では、飲み代は全て割り勘と決めている。
まぁ、余り細かいことを言わない人達であるので、ざっくりとした割り勘で皆さん満足している

さて、飲み会の会計をしている私にとって、割り勘の計算が悩みのタネです

自身もほろ酔いの中での計算は地獄のような瞬間です。

  • お店の請求が、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









感謝の心を込めて・・・ 伊東祐三(山梨県 樋口印刷内) JR1GDY Good HAM Life jr1gdy

コメント

このブログの人気の投稿

山梨一宮の桃

少なくなった印刷物を何とかしたい

かえる