本日は、私の2006年1月25日の作品、songzhaoのボケ封じ数学講座第7講への追講と致します。
7講で扱ったのは”ヘロンの公式”でした。これは三角形の3辺の長さを測って面積を求めるというものです。・・・・とりあえず百度(baidu)の検索サイトからsongzhao のボケ封じ数学講座第7講と検索していただければこのページが出てきます。(本家本元のNTTサイトからは無視されて検索できないのがしゃくに触ります)。
15年ぶりに他業種から不動産業に返り咲いた私は既に還暦を通り越している。しかし、惚けてなどいられない。
そのような理由で、第7講のプログラムが不動産屋の手に馴染むように改良することにしよう。
興味のある向きには、1350行以下をつぎの様に書き換えてみてください。
1350 LOCATE 24,2:PRINT”(Z=end)”:LOCATE 24,3:PRINT”(C=div)”;
1360 A$=INKEY$:IF A$=””THEN 1360
1370 IF A$=”Z”THEN END ELSE IF A$=”C”THEN 1400 ELSE RETURN
1400 REM ** ブンカツクカク ノ キュウセキ
1410 CLS:PRINT”ブブン ノ キュウセキ”:PRINT”キュウセキ ハンイ from ”:PRINT” to ”:LOCATE 15,1:INPUT ST:LOCATE 15,2:INPUT GO
1420 BT=0:FOR J=ST TO GO:BT=BT+S(0,J-1):NEXT J
1430 CLS:PRINT”No.”;ST;”- No.”;GO;”ノ メンセキ”:PRINT BT;”m2”:PRINT BT*0.3025;”ツボ”
1440 LOCATE 22,2:PRINT”(C=cont)”:LOCATE 22,3:PRINT”(Z=end)”;
1450 A$=INKEY$:IF A$=””THEN 1450
1460 IF A$=”Z”THEN END ELSE GOTO 1400
こうしておけば、分譲区画ごとの面積を取り出すことができるようになってとても便利です。
ところで、0.3025という換算値は、121坪が400平方メートルに等しいということです。
121坪を400m2で割った時の数値が0.3025。400を121で割っても割り切れないので、0.3025という換算値をよく使います。
例えば、600m2は 600*0.3025=181.2坪と言った具合です。また、100坪は何平米かという計算は100/0.3025=330.5785124・・・(坪)と割り切れない数になってしまいます。