初めてのプログラム 5日目 SmallBASICで電卓プログラム - Firespeed

5日目はGoTo文について
初めてのプログラム 4日目 SmallBASICで四則演算プログラムを改良して繰り返し計算が出来るようにするよ
今までプログラムは上から下に流れて終わるだけだったけれど
GoTo文を使うと、プログラムの処理を好きな場所へ飛ばすことが出来る。

SmallBasicを起動したら
昨日保存した4_Shisokuを開いて、
名前を付けて保存で「5_Dentaku」で保存する。

+-*/に=を加えて=が押されるまで計算する方法を選ぶ処理に戻るようにする。
戻る場所を指定するには戻る位置にラベルをセットする。
ラベルのセットの仕方は
ラベル名に続いてコロン「:」を入力する。

今回は計算する方法を選んでね、の直前に戻したいので

TextWindow.WriteLine("計算する方法を選んでね [+ - * /]")

ReStart:
TextWindow.WriteLine("計算する方法を選んでね [+ - * / =]")

x=a

x = TextWindow.ReadNumber()

  a=x

GoTo Restart

Equal:
TextWindow.WriteLine("計算結果は" + a + "です。")

TextWindow.WriteLine("計算する方法を選んでね [+ - * /]")
f = TextWindow.Read()

If f = "=" Then
  Goto Equal
EndIf

TextWindow.WriteLine("元の値を入れてね")
x = TextWindow.ReadNumber()
a = x
ReStart:
TextWindow.WriteLine("計算する方法を選んでね [+ - * / =]")
f = TextWindow.Read()
If f = "=" Then
  Goto Equal
EndIf
TextWindow.WriteLine("計算する値を入れてね")
y = TextWindow.ReadNumber()
If f="+" Then
  a = x + y
  TextWindow.WriteLine(x + "+" + y + "=" + a)
ElseIf f="-" Then
  a = x - y
  TextWindow.WriteLine(x + "-" + y + "=" + a)
ElseIf f="*" Then
  a = x * y
  TextWindow.WriteLine(x + "*" + y + "=" + a)
ElseIf f="/" Then
  a = x / y
  TextWindow.WriteLine(x + "/" + y + "=" + a)
Else
  TextWindow.WriteLine("計算できないです")
EndIf
x=a
Goto ReStart
Equal:
TextWindow.WriteLine("計算結果は" + a + "です。")

4日目はif文について
昨日作った挨拶プログラムを改良して引き算やかけ算等も出来るようにするよ

SmallBasicを起動したら
昨日保存した3_Tashizanを開いて、
名前を付けて保存で「4_Shisoku」で保存する。

どの計算をするかを選んでもらうために

TextWindow.WriteLine("元の値を入れてね")
x = TextWindow.ReadNumber()

TextWindow.WriteLine("足す値を入れてね")
y = TextWindow.ReadNumber()

TextWindow.WriteLine("元の値を入れてね")
x = TextWindow.ReadNumber()
TextWindow.WriteLine("計算する方法を選んでね [+ - * /]")
f = TextWindow.Read()
TextWindow.WriteLine("計算する値を入れてね")
y = TextWindow.ReadNumber()

a = x + y
TextWindow.WriteLine(x + "+" + y + "=" + a)

If f="+" Then
  a = x + y
  TextWindow.WriteLine(x + "+" + y + "=" + a)
EndIf

If f="+" Then
  a = x + y
  TextWindow.WriteLine(x + "+" + y + "=" + a)
ElseIf f="-" Then
  a = x - y
  TextWindow.WriteLine(x + "-" + y + "=" + a)
EndIf

If f="+" Then
  a = x + y
  TextWindow.WriteLine(x + "+" + y + "=" + a)
ElseIf f="-" Then
  a = x - y
  TextWindow.WriteLine(x + "-" + y + "=" + a)
ElseIf f="*" Then
  a = x * y
  TextWindow.WriteLine(x + "*" + y + "=" + a)
ElseIf f="/" Then
  a = x / y
  TextWindow.WriteLine(x + "/" + y + "=" + a)
EndIf

If f="+" Then
  a = x + y
  TextWindow.WriteLine(x + "+" + y + "=" + a)
ElseIf f="-" Then
  a = x - y
  TextWindow.WriteLine(x + "-" + y + "=" + a)
ElseIf f="*" Then
  a = x * y
  TextWindow.WriteLine(x + "*" + y + "=" + a)
ElseIf f="/" Then
  a = x / y
  TextWindow.WriteLine(x + "/" + y + "=" + a)
Else
  TextWindow.WriteLine("計算できないです")
EndIf

TextWindow.WriteLine("元の値を入れてね")
x = TextWindow.ReadNumber()
TextWindow.WriteLine("計算する方法を選んでね [+ - * /]")
f = TextWindow.Read()
TextWindow.WriteLine("計算する値を入れてね")
y = TextWindow.ReadNumber()
If f="+" Then
  a = x + y
  TextWindow.WriteLine(x + "+" + y + "=" + a)
ElseIf f="-" Then
  a = x - y
  TextWindow.WriteLine(x + "-" + y + "=" + a)
ElseIf f="*" Then
  a = x * y
  TextWindow.WriteLine(x + "*" + y + "=" + a)
ElseIf f="/" Then
  a = x / y
  TextWindow.WriteLine(x + "/" + y + "=" + a)
Else
  TextWindow.WriteLine("計算できないです")
EndIf

CR-Z、写真で見ると随分野暮ったい雰囲気だけれど、
実物はそんなこと無かったです。

サイズが小さいのでぎゅっと締まった感じで、
特にヘッドライトの立体的な造形が良い具合にアクセントになってる。
車高が低く、幅が有るので思った以上に格好いい
内装の作りもメーター周りが飾りすぎな感じはするけれど、全体の作りがまとまっていたので取って付けたような印象は受けなかった。

けれど、CR-Zは2シーターと割り切った方が良いと思う。
リアシート狭すぎ。
シルビアやRX-7のリアシートも狭かったけれど、そんなもんじゃない
普通2+2の車は座面が低くて体をたたみ込むように乗るんだけれど、インサイトはバッテリーがある関係か座面が高い。
そのくせ天井が低いから乗れたモンじゃない。
リアシートはハンドバック置き場で２シーターと割り切った方が良い。（そもそも北米は2シーター）
ただ、2シーターと割り切ると、もっと面白そうな車がいっぱいあるんだよね、マツダのロードスターとかダイハツのコペンとか
そもそも、実質2シーターを今更買えないってことで、CR-Zはパス

ということで、インサイト見てきました。
プリウスが同価格帯でぶつけられたときは、インサイト終わった　って思ったけれど、試乗してみて印象が変わりました。
同じ値段ならプリウスよりこっちが良い。

車内に乗り込んだときに感じたのが凄くスポーティーなドライビングポジション。
座面が低く、若干寝そべった感じでシルビアに近い。
ファミリーカーでここまでスポーティーなのは初めて。

試乗したときはエアコンが付いていてエンジンが回っていたんだけれど、それを感じさせないほど静か　若干アイドリングの振動が伝わってくることでエンジンが回っているのが分かるんだけれど、エアコンを切ってエンジンを止めても、プリウスみたいに突然静かになったって感じがしない。

ブレーキを解除すると自動的にエンジンがかかる。
クリープに入るまでに一瞬タイムラグがあるのでATの感覚でブレーキを離していたら、流れに乗れない。
MTの感覚で早めにブレーキを外すと自然に運転できるた。
クリープ自体はするので、アクセルにふれずに渋滞ののろのろ運転とかは出来る。
エンジン始動時の振動はぶるっと大きな揺れが一瞬くる。
ATからの乗り換えはプリウスの電動クリープの方が自然に感じると思う。
振動も走行中にエンジンを始動できるプリウスの方が有利。

一つ驚いたのが音の静かさ、
普通考えればエンジンが回っているインサイトと
エンジンが止まっていても動くプリウスならプリウスの方が圧倒的に静かになりそうだけれど、街中で乗ってみた感覚は逆

外の音が響いて、エンジンが止まっているのにエンジン音が聞こえるプリウスに対して、インサイトはエンジンが回っていても静か。
停車するときも、エンジンが切れる瞬間に軽い振動があるくらいで、殆ど音が気にならない。
田舎に行くと印象は逆転するはずだけれど、街中で走る分ではインサイトの方が車格が上に感じた。

加速感はインサイトの圧勝。
CVTは加速と共にエンジンの回転数が上がっていくタイプで、いかにも加速しているって感じがする。
おまけに踏み足し時のモーターアシストが自然で数値以上にトルク感がある。
プリウスのスピードが乗らないようで実はスピードが上がっているのと比べると、とても自然で気持ちよく加速する。

ステアリングの感じもインサイトの方が一段上
電動パワステの違和感は残っているけれど、プリウスのハンドルとタイヤが別になっている感覚はなく普通のコンパクトカーレベルで自然に運転できた。

ブレーキはプリウスとインサイトで逆の印象。
プリウスは踏み始めた瞬間にガクっと強めのブレーキがかかり
その後はわりとリニアに止まる。
インサイトは軽く踏んだときのブレーキがあまり効かずに、じんわりブレーキがかかって、あわてて踏みますってことが何度かあった。
踏みましたときのブレーキの強まり方もいびつでいまいちつかみ所がない感じがした。
正直、どっちもどっちであまり好きじゃない。
プリウスのブレーキは酔いそうだし、インサイトのブレーキは怖い

足回りはインサイトの一人負け
プリウスは普通レベルのサスペンション。
インサイトは、足回りが固い。
足回りが固いっていうとスポーティーな感じだけど、
スポーティーな堅さは一気に揺れてすぐに収束する。
インサイトは一気に揺れるのにそのまま収束せずにぐらぐらと揺れ続けて、バスやトラックみたいな乗り味になってる。
実は板バネですっていわれたら信じる。

後部座席は必要最低限で、見た目で想像するほど広くない。
ドアの下部があまり開かないので足を入れにくいのと、シートが高くて天井が低いので頭上スペースも少ない。
あくまでコンパクトカーレベル。
荷室の収納もバッテリーの関係で深さがないので、見た目ほど荷物は載らない。

内装は全ての装備が普通で良かった。
サイドブレーキはレバー式だし、ATレバーも、普通の直線型だし、ハザードの場所も分かりやすく押しやすい
メーター周りだけ特殊だけれど、スピードメーターだけ見る分には見やすい。
内装がプリウスに比べてチープって言われているけれど、長く使っていて使いやすいのはインサイトの方じゃないかな

総評で、プリウスと比べて、チープだけれど走りの楽しさがある。
特にアクセルの感覚が良かった。
ハイブリッドにしては、ではなく、普通のAT車と比べても良い
装備面でも、L以上ならHIDが標準だし、カーナビをつければETCやバックビューも付いてくるし、オプションをあまりつける必要が無くて
車両本体価格では大差なくても、乗り出しはインサイトの方がだいぶ安い。

純粋に実用性だけで言えば後部座席が広いプリウスの方が上だけれど、走りの楽しさまで含めて考えたらインサイトは決してプアマンズプリウスじゃないな　っと感じた。

関係ないけれど、帰りに見かけた面白い看板。