ハム活動記/2023-08-12 の履歴ソース(No.1)

• 履歴一覧
• 差分 を表示
• 現在との差分 を表示
• 履歴 を表示
• ハム活動記/2023-08-12 へ行く。
  • 1 (2023-08-12 (土) 08:11:18)

#author("2023-08-12T08:11:18+09:00","default:JR1GDY","JR1GDY")
[[ハム活動記]]

*割り勘 [#l9710158]
いやーっ！参ったよ。酔ったところで割り勘の計算。会計の私にはチョットムリ。~
飲んだ人には少し負担増にして、飲まなかった人はそれなりに・・・

これを計算なんて・・・ほろ酔いの私には少々荷が重い~

そこで~

関数電卓に「WARIKAN」プログラムをコーディングしてみた

　"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
　"CYOSEI"?->G
 If G=0
 Then Return
 IfEnd

　(D-G*S)/(N-S)->H
　Locate 1,2,G
　Locate 9,2,H
　whileEnd


こんな感じ