2017.06.10
カテゴリ： パソコン
今日も午前中は、昨日から続けているVBAの勉強をしたり、俳句を作ったり、テレビを見たりしながら過ごし、午後からは妻と買い物に出かけた。
VBAでは、数値計算をするプログラムを作ってみた。
一つは、数値を与え、偶数だったら２で割り、奇数だったら３倍して１を足すというもの。どんな整数からスタートしても何回かのあと必ず１になるという有名な定理。それが下図の左側、上がプログラムで下が計算結果の一部。３０回くらいの演算では１になるものは少ないが、2009は２５回目に１になる。27は１１２回目に１になる。
もう一つは、2ケタ切り自乗和。整数を下の位から２ケタずつに切り、その2ケタの数を足し合わす。その数はまた2ケタずつに切り自乗和を求める。これを繰り返すといろいろなループになって収束するというもの。短いものでは、3869は6205との間を繰り返す。これが下の右側。
VBAでは、数値計算をするプログラムを作ってみた。
一つは、数値を与え、偶数だったら２で割り、奇数だったら３倍して１を足すというもの。どんな整数からスタートしても何回かのあと必ず１になるという有名な定理。それが下図の左側、上がプログラムで下が計算結果の一部。３０回くらいの演算では１になるものは少ないが、2009は２５回目に１になる。27は１１２回目に１になる。
もう一つは、2ケタ切り自乗和。整数を下の位から２ケタずつに切り、その2ケタの数を足し合わす。その数はまた2ケタずつに切り自乗和を求める。これを繰り返すといろいろなループになって収束するというもの。短いものでは、3869は6205との間を繰り返す。これが下の右側。
お気に入りの記事を「いいね！」で応援しよう
[パソコン] カテゴリの最新記事
-
J.comが機能せず 2026.09.23
-
Microsoft 365 Basic の後日談 2026.09.04
-
Microsoft 365 Basic の更新の試み 2026.09.03
【毎日開催】
15記事にいいね！で1ポイント
PR
Category
カテゴリ未分類
(1378)散歩
(752)旅行・ハイキング
(384)パソコン
(275)美術・博物・展示
(899)パズル・切手
(558)キッズプラザ
(112)俳句・エッセイ
(1070)花・植物
(815)バードウォッチング
(305)映画・読書・音楽会その他
(828)高大（大阪府高齢者大学校）
(231)マジック
(9)新いちょう大学校
(16)病気
(111)同窓会
(16)天体
(7)断捨離
(47)介護
(142)銀杏学習会
(11)スマホデビュー
(1)スマホ
(1)家事
(25)健康作り
(17)テレビ視聴
(12)グルメ
(2)
こっぱん
ウォーキングが好きなので、歩くたびに記録を残しておきたいと思います。 その他、公開日記として、その日の出来事をなんでも書き込みたいと思います。 過去のブログは、上記のDIARYをクリックすれば見られます。
Calendar
龍王の滝（高知県）…
New!
ビッグジョン7777さん
誕生日直前 夢宙人2026さん
我流達人のHP garyu33さん
自分が好きな曲 関空快速1649さん
DIARY OF A.K 歳… kissakemさん
New!
ビッグジョン7777さん誕生日直前 夢宙人2026さん
我流達人のHP garyu33さん
自分が好きな曲 関空快速1649さん
DIARY OF A.K 歳… kissakemさん
Comments
Keyword Search
▼キーワード検索
© Rakuten Group, Inc.
