N88-BASICで「Go To キャンペーン」
公開日：
:
プログラミング Go To キャンペーン, N88-BASIC
いよいよ、７月22日から「Go To キャンペーン」が始まります。
「Go To キャンペーン」は、コロナ禍で打撃を受けた日本の国内観光需要喚起を促すための政府主導の一大キャンペーンです。
7月23日からの4連休で多くの人たちが国内旅行をすることでしょう。
さて、Go To という言葉は、80年代にBASICを触ったことのある身としてはとても懐かしい響きがします。
ノスタルジックに、BASICでGOTOを使ってみたくなりました。
使用ソフト
N88互換BASIC for Windows95
https://www.vector.co.jp/soft/win95/prog/se055956.html
なんと、2020年の現代においても、N88-BASICが使えるソフトがあるんですね。
Windows 10でも動作します。
試行錯誤
GO TO キャンペーンを実施することで、どれだけ日本中に新型コロナウイルスが拡散されるかシミュレーションしてみます。
感染者が倍々に増えていくとすると・・・
10 n=1
20 PRINT “感染者数”,n
30 n=n＊2
40 GOTO 20
これだと、無限ループになるので良ろしくない。
では、地球の人口を考慮します。
10 n=1
20 PRINT “感染者数”, n
30 n=n＊2
40 IF ｎ< 8000000000 GOTO 20
50 END
濃厚接触は15分と言われるので、
15分ごとに倍々になるとします。
10 i=1
20 n=1
30 PRINT (i-1)*15;”分後”,”感染者数”,n
40 i=i+1
50 n=n*2
60 IF n<8000000000 THEN GOTO 30
70 PRINT (i-1)*15;”分後”,”感染者数”,n
80 PRINT “END”
90 END
1人の感染者が、旅行先で2人と15分間濃厚接触し2人とも感染
その感染者が同様に２人に・・・
そしてその感染者が同様に２人に・・・
（実行画面）
405分後（約7時間後）に、日本国民全員が感染し、
495分後（約8時間後）には、全人類が感染します。
まさに、かつて藤子不二雄がドラえもんの道具「バイバイン」で警告していたことが起こるかもしれません。
おそるべし、GOTOキャンペーン！
私の4連休は、おとなしく STAY HOME します。
ad
- Tweet
-
-
この記事が気に入りましたら、ぜひTwitter、facebookボタンをお願いします。
ブログを書くモチベーションになります。よろしくお願いします。
ビットコイン投げ銭ウィジェット
関連記事
-
-
【備忘録】mocha によるテスト
自分用備忘録 イーサリアムによるブロックチェーンを作る講座を受講中 言語は、Javascr
-
-
【備忘録】Gitというバージョン管理ツールの勉強会に参加しました。
ちょうど１週間前の１月２０日 「広島フロントエンド勉強会 Vol.15」に参加してきま
-
-
【GitHub初心者用備忘録】最低限知っておくべきコマンド
たまに、クラウドソーシングで外国人に仕事を頼むときにGitHubを使うのですが、いつもよく
-
-
「ディスコ プログラミングコンテスト＠広島」潜入レポート
2017年7月8日 「ディスコ プログラミングコンテスト＠広島」に参加して来ました。 デ
-
-
「ちょまどさん」がやってきた。
このツーショット！ なななんと ちょまどさんです。 もう１度いいます。 ちょまど
