Pascalの宿題は俺にやらせろ！！Part2 at TECH

---

[2ch|▼Menu]

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
650:デフォルトの名無しさん 07/11/02 13:20:49 実行例が ******************** d--USDOLLAR P--British Pound y--Chinese Yuan(gen) e--Euro r--Russian Rouble ***************** Exchange to :d Enter the amout of money in JPY : 1000 USD = $ 8.40 651:デフォルトの名無しさん 07/11/02 15:07:14 解りにくい説明ですいません。 652:光速エスパー世代774RR 07/11/02 17:33:04 ルーブリは元の綴りがрубльだから、roubleってのはちょっち違和感があるzo 補助単位って、円に対する銭、ドルに対するセントみたいな奴だっけ。 8.40ドルみたいな十進の小数で書いていいなら簡単だと思うけど、 昔は（今でも?）60進法とかそういうのってあったよな、 そういうのに対応するならめんどいな。 あるいは日本だったら銭・厘・毛の形で出せとか。 type currencies = (YEN, USD, GBP, CNY, EUR, RUB); var exchangerates : array(currencies) of real; begin exchangerates[YEN] := 1; exchangerates[USD] := 118.94; ... なんてやっといて、日本円 / exchangerates[変換先通過] を計算させればいい。 Turbo Pascal方言を使っていいなら、わざわざ代入分書かないで、いきなり初期値ぶちこみでいいよ。

---

次ページ

最新レス表示

スレッドの検索

類似スレ一覧

話題のニュース

おまかせリスト

▼オプションを表示

レスジャンプ

mixiチェック！

Twitterに投稿

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch

---

5184日前に更新/280 KB
担当:undef