- ベストアンサー
尺貫法
ビジュアルベーシックで1里=36町 1町=60間 1間=6尺 1尺=10寸。入力された寸数を里・町・間・尺・寸に変換するプログラムが作れません。どなたか教えていただけないでしょうか?
- macchi0925
- お礼率22% (14/63)
- Visual Basic
- 回答数3
- ありがとう数1
- みんなの回答 (3)
- 専門家の回答
質問者が選んだベストアンサー
Sub test01() n = 150002 '1例のデータ t = Array(10, 6, 60, 36) u = Array("寸", "尺", "間", "町", "里") For i = 0 To 3 m = n Mod t(i) s = m & u(i) & s ' MsgBox s n = Int(n / t(i)) Next s = n & u(4) & s MsgBox s End Sub 0寸を出さないようにするにはM=0の時、 s = m & u(i) & s をスキップする。 Sub test01() n = 150002 t = Array(10, 6, 60, 36) u = Array("寸", "尺", "間", "町", "里") For i = 0 To 3 m = n Mod t(i) If m = 0 Then Else s = m & u(i) & s End If ' MsgBox s n = Int(n / t(i)) Next s = n & u(4) & s MsgBox s End Sub これでどうでしょうか。思い違いや、エラーがあるかもしれませんので、十分テストしてください。
その他の回答 (2)
- 1050 円(@1050YEN)
- ベストアンサー率69% (477/687)
計算するだけです。 作りは http://okwave.jp/kotaeru.php3?q=1691688 です。 >プログラムが作れません 具体的に何ができないのかわからないので、一度やってみて、何ができないかの詳細を書いてください。
「寸数」の単位は?。 業界にょって基準単位が異なります。 きんこう関係はミリですし.もっこうはセンチ.測量はメートルかキロメートル。 文字列を使った無限桁数演算は作れますね。 AAAABBCCDDEE AAAAがり BBがちょう CCがけん DDが尺 EEがすん の桁とします。ただし.これは表記用。 演算用には無限桁を割り当てます。 A B C D E の4つの変数を用意します。 入力した値をもっとも単純に換算できる桁.ミリやセンチならば.寸(変数E)でしょう。 変数Eに設定して.10を超える入力があると桁あふれが発生します。桁あふれの分を求めて(E\10とE mod 10).あふれた分はDに, あふれていない部分はEに残します(ここでは最小桁なので小数部の処理は略)。 以後桁あふれがなくなるまで続けます。
関連するQ&A
- 1間という単位について
下記の尺貫法一覧表で★のある単位だけ6の倍数になっています。10の倍数の単位があるのに敢えて6の倍数を設けた理由が知りたいです。 特に「間」は唐突に6の倍数として表れているので違和感があります。 1厘(りん)=0.30303mm 1分(ぶ)=10厘=3.0303mm 1寸(すん)=10分=3.0303cm 1尺(しゃく)=10寸=30.303cm 1間(けん・かん)=6尺=1.8182m ★ 1丈(じょう)=10尺=3.0303m 1町(ちょう)=60間=109.092m ★ 1里(り)=36町=3.93km ★ よろしくお願いします。
- 締切済み
- 歴史
- Excelでの尺貫法の度量衡換算
尺貫法で書かれた距離(1里12町3間など)をメートル法の数値に変換したいのですが、CONVERT関数では尺貫法には未対応のようで、単位換算できませんでした。 どのようにすればよいでしょうか?
- 締切済み
- オフィス系ソフト
- 京間と江戸間について
京間は6尺3寸、江戸間は5尺8寸だと思っていたのですが、ものによっては京間6尺5寸、江戸間6尺とありました。 また、ウィキペディアでは 江戸間 - 1間=6尺。畳の大きさは5尺8寸×2尺9寸 京間 - 1間=6尺5寸。畳の大きさは6尺3寸×3尺1寸5分 とありました。 この一間は心々で京間が6尺5寸なのでしょうか? それなら畳のサイズが6尺3寸なので柱のサイズが2寸(約6センチ)になってしまいます。 江戸間 - 1間=6尺。畳の大きさは5尺8寸×2尺9寸 京間 - 1間=6尺5寸。畳の大きさは6尺3寸×3尺1寸5分 とはどういうことでしょうか?詳しい方教えてください。お願いします。
- ベストアンサー
- その他(学問・教育)
- お宅の畳サイズは?
地域によって畳の規格って異なるそうです。 皆さんのお住い都道府県と畳の寸法教えて貰えませんか? 戸建てか集合住宅かも判ると参考になります。 京間・本間 大きさ: 6尺3寸×3尺1寸5分(191cm×95.5cm) 主な地域: 関西の京都、大阪、紀州から中国、四国、九州等 六一間 大きさ: 6尺1寸×3尺5分(185cm×92.5cm) 主な地域: 岡山、広島、山口などの山陰地方 中京間(三六間) 大きさ: 6尺3寸(182cm×91cm) 主な地域: 岐阜、名古屋をはじめ中京地方。岩手、山形、福島、北陸、沖縄の一部の地方 江戸間(五八間) 大きさ: 5尺8寸×2尺9寸(176cm×88cm) 主な地域: 東京をはじめ関東地方と全国各地。関東間、田舎間と呼ばれる場合もあります 団地間(五六間) 大きさ: 5尺6寸×2尺8寸(170cm×85cm) 主な地域: アパートやマンションなどの集合住宅 琉球畳のサイズ 琉球畳は半畳を基準として880cm×880cmとなりますが、お部屋の大きさや希望の大きさに合わせてオーダーメイド
- ベストアンサー
- アンケート
- 江戸時代、脇差と短刀はどのように使い分けられていたのでしょうか。
江戸時代、二本差と呼ばれていた武士は、脇差と短刀をどのように使い分けていたのでしょうか。 相撲で、行司が短刀を一振り帯びているのは、差し違えた際に自害するためであったということを聞きました。 このように武家においても、短刀はもっぱら自害やその他儀礼などに単独で用いたのでしょうか。 幕府による大小拵の規定(『幕儀参考』)によりますと、 大刀 2尺2寸~2尺3寸(定寸) 脇差 1尺6寸~1尺7寸前後 (刀ハ長サ貮尺二三寸を定寸トシ、脇差ハ壹尺六七寸前後ナリ) とあります。 〔参照〕 http://www.kyoto.zaq.ne.jp/yamasiroya/banzasi.html 刃渡り1尺以上2尺未満のものを脇差、1尺未満のものを短刀と理解しておりますが、「二本差」としての大刀の差し添えはあくまで脇差で、大刀と短刀を2本差すということはなかったのでしょうか。 大刀の定寸を2尺3寸とするならば、1尺7寸前後の脇差というのはかなり大振りだと感じるのですが、いかがでしょう。 ちなみに、時代劇(特に70年代以前の古い作品)でも、明らかに1尺7寸には満たない脇差(短刀?)を大刀に添えて差している武士の描写が、ある程度見かけられます。 ただ、脇差といっても1尺3寸程度の小脇差もありますので、これは短刀ではないのかもしれません。 少々話がそれますが、現在普及している模造刀は、 大刀 2尺3寸5分 脇差 1尺5寸 程度のものが多く製作されているようです(2尺8寸などの長尺物を除いて)。 上の『幕儀参考』というのは、1828年に生まれて1890年に没した松平慶永(春嶽)が著したものですが、江戸時代265年の間には、脇差(または短刀)の定寸ともいうべき長さは、その時々によって異なっていたのでしょうか。 例えば、幕末期の新撰組副長・土方歳三については、局長近藤勇の書簡に 「土方氏モ無事罷在候、殊ニ刀ハ和泉守兼定二尺八寸、脇差一尺九寸五分堀川国広云々……」 とありますから、彼は2尺8寸の刀に1尺9寸5分の脇差しを帯びていたのでしょうが、かなり目立ったのではないでしょうか。 また、町人の「道中差」については、ある辞書には「武士の大刀と小刀の中間の長さ」とありますが、侠客が用いた「長脇差」とは異なるものであるはずですので、この記述は非常に曖昧ではないかと思います。 実際、道中差は「武士の」「小刀」(長さの基準はわかりませんが)よりも長かったのでしょうか。 以上、話題が二転三転いたしましたが、長さも含め、脇差と短刀の使い分け、差料としての「短刀」の位置づけについて質問いたします。 よろしくお願いいたします。
- 締切済み
- 歴史
- 床の間と掛軸のサイズ
我が家の床の間に初めて掛軸を掛けます。 幅が、一般的な一間(約180cm)ではなく、 四尺三寸(約130cm)です。 従って、掛軸も一般的な尺五サイズではなく もっと細いタイプを掛けた方がバランスよく思うのですが、 一般的にはどうでしょうか。
- ベストアンサー
- 家具・インテリア
- 2進数を10進数にするプログラム作成について
10進数から2進数に変換するプログラムはできたのですが2進数から10進数に変換するプログラムが作れません。。 値を入力してください:1111←と入力(例) 10進数では15です。 もう一度実行しますか?(1…yes/2…no) というプログラムを作ろう思っています。 うまく作れずエラーばかり起きてしまいます。 どうか教えて下さい。お願いします。
- 締切済み
- 専門学校
- Visual C++の簡単なプログラムについて
Visual C++で以下のようなプログラムまたは関数を作りたいのでアルゴリズムもしくはヒントを教えてください。 (1) 入力された文字列の文字数を算出するプログラム (2) 『abc』→『abcabc』のように引数として受け取った文字列を2回繰り返した文字列に変換する関数
- ベストアンサー
- C・C++・C#
お礼
回答ありがとうございました。これを参考にしてできました。ありがとうございます。