教室長

プログラミング教育は必要ですか?

投稿日:

日本の貧困層の子の数学力は、
英米の富裕層の子のそれより確かだ、という話を聞きました。

どこのどんな調査かは分かりませんが、
そうなのかもな、と感じています。

学校でプログラミング教育を扱うようですが、良い事ですね。
知人はScratchを用いた予習を小1からさせています。

数学は現象に記号を与え、記述と計算を可能にします。
言葉もまた現象に記号を与え、記述と取り扱いを可能にします。
この点において数学も言葉の一種だと感じています。

数学はコンピュータとの相性が良いと思います。

プログラミングまではできずとも、
Excelのマクロくらいは扱えた方がまだ当面は有利でしょう。

もしかしたら塾でもマクロ程度は教える日がくるのかな。
一新ゼミでは現在、試験的に中2にPythonを使ってもらっています。

さて。

あるプログラムを試作しており、
それが吐き出す数値を日々分析しています。
毎回の手打ち数式をマクロ化したので記録。
3時間もかかってしまいました。

Option Explicit

Sub MyStandardize()

Dim ws As Worksheet
Set ws = Worksheets(1)

Dim maxRow As Long
Dim maxCol As Long
‘UsedRangeのRowsプロパティに、UsedRange.Rows.Countで取得した総行数を指定し、最終行を取得
maxRow = ws.UsedRange.Rows(ws.UsedRange.Rows.Count).Row
maxCol = ws.UsedRange.Columns(ws.UsedRange.Columns.Count).Column

‘■■Result列のz値を算出■■
‘Result列を取得
Dim ResultCol As Long
‘ Find関数内はWhat:=Cells(3, 15).Valueなどでも良い
ResultCol = Range(Cells(1, 1), Cells(1, maxCol)).Find(“Result”).Column
‘標準化の際の目標値は後で手動入力するので、暫定的に平均値を求めて代入しておく
Cells(1, maxCol + 1).FormulaR1C1 = _
WorksheetFunction.Average(ws.Range(Cells(2, ResultCol), Cells(maxRow, ResultCol)))
‘Resize(行数,列数) 行数と列数は省略可能
Cells(2, maxCol + 1).Resize(maxRow – 1).FormulaR1C1 = _
“=IF(RC” & ResultCol & “=””””,””””,” & _
“STANDARDIZE(RC” & ResultCol & “,R1C,” & _
“STDEVP(R2C” & ResultCol & “:R” & maxRow & “C” & ResultCol & “)))”

‘■■Trades列のz値を算出■■
‘Trades列を取得
Dim TradesCol As Long
‘ Find関数内はWhat:=Cells(3, 15).Valueなどでも良い
TradesCol = Range(Cells(1, 1), Cells(1, maxCol)).Find(“Trades”).Column
‘標準化の際の目標値は後で手動入力するので、暫定的に平均値を求めて代入しておく
Cells(1, maxCol + 2).FormulaR1C1 = _
WorksheetFunction.Average(ws.Range(Cells(2, TradesCol), Cells(maxRow, TradesCol)))
‘Resize(行数,列数) 行数と列数は省略可能
Cells(2, maxCol + 2).Resize(maxRow – 1).FormulaR1C1 = _
“=IF(RC” & TradesCol & “=””””,””””,” & _
“STANDARDIZE(RC” & TradesCol & “,R1C,” & _
“STDEVP(R2C” & TradesCol & “:R” & maxRow & “C” & TradesCol & “)))”

‘MsgBox “Result=” & ResultCol & vbCrLf & _
‘ “Trades=” & TradesCol

‘■■先に算出したz値が双方正の場合のみ、その積を算出■■
Cells(2, maxCol + 3).Resize(maxRow – 1).FormulaR1C1 = _
“=IF(RC[-1]=””””,””””,” & _
“IF(AND(RC” & maxCol + 1 & “>0,RC” & maxCol + 2 & “>0),RC” & maxCol + 1 & “*RC” & maxCol + 2 & “,-1))”

End Sub

-教室長


comment

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

関連記事

no image

小野田教室より。

今年度は、新型コロナウイルスの影響が全く読めなかったので、春にゼミ生募集をしたっきりでしたが。。。 私立専願も終わったので。。。 小野田教室、ゼミ生を募集します!! 新中3は要相談ですが、その他の学年 …

英語の追試対策。

小野田の生徒が編み出した英語の追試対策。 それは、『2人で音読すること』だそうです。 この2人、英語の追試は毎週金曜日に受けに来ます。 追試前まで、2人でずっと音読しています。 相手の音読を聞いて間違 …

表情。

本日もCovid19の感染者数・重症者数などが発表され、 治療や対応に追われている医療福祉看護介護行政関係者、接客業の方々が 精神的に追い詰められているニュースが流れています。 上述の様な事態を少しで …

夏期講習。

お昼の13時から17時まで自習のためにほぼ毎日開放してきた小野田教室ですが、お昼の開放は、昨日で終わりました。 家では出来ないからと、暑い中来るゼミ生達。 時間の使い方が上手くなったゼミ生もちらほら。 …

令和5年度香川高校問題(普通科)

英語は、難易度低めで特に『難しい』という印象なし。 数学 第3問 カードの引き方は今まで見たことのないタイプで、余計に難しく感じた受験生がいたかもしれない。 第4問 (1)の誘導があったので、解けた受 …

サイト内検索

カテゴリー

アーカイブ