*

N88-BASICで「Go To キャンペーン」

 

3714145 s

 

 

 

いよいよ、7月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 n< 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人とも感染

その感染者が同様に2人に・・・

そしてその感染者が同様に2人に・・・

 

(実行画面)

Screenshot

 

 

405分後(約7時間後)に、日本国民全員が感染し、

495分後(約8時間後)には、全人類が感染します。

 

まさに、かつて藤子不二雄がドラえもんの道具「バイバイン」で警告していたことが起こるかもしれません。

 

 

おそるべし、GOTOキャンペーン!

 

 

私の4連休は、おとなしく STAY HOME します。

 

 

 

 

 

ad

    この記事が気に入りましたら、ぜひTwitter、facebookボタンをお願いします。
    ブログを書くモチベーションになります。よろしくお願いします。

  • このエントリーをはてなブックマークに追加
この記事が良かったらビットコインで寄付をお願いします。
ビットコイン投げ銭ウィジェット



関連記事

素人のオッサンが作ったiPhoneアプリのコードを公開するシリーズ第1弾「Mind-Reading」

  私は今まで4作のアプリをApp Storeで公開しています。 https://

記事を読む

【GitHub初心者用備忘録】最低限知っておくべきコマンド

    たまに、クラウドソーシングで外国人に仕事を頼むときにGitHubを使うのですが、いつもよく

記事を読む

【備忘録メモ】Flaskアプリのエラー「ModuleNotFoundError: No module named ‘XXXXX’」

  すでに、pip install しているのに、   エラー 「ModuleNotFoundErr

記事を読む

【Python 備忘録】pycURLのインストールができない場合の解決方法

  ※ここに記載の事例は、あくまで私個人の備忘録です。 私個人の環境での話ですので、これが本当に正し

記事を読む

Maker Faire Tokyo に出展したIoTクソゲー「うちわdeファイト」の作り方

       8月4日・5日 Maker Faire Tokyo 2018 に出展したIoTクソゲー

記事を読む

ad

Message

メールアドレスが公開されることはありません。

ad

『東京都同情塔』を読んで

ChatGPTを活用して作ったという芥川賞受賞作「東京都同情塔」を読了

『ボーはおそれている』を観て

    3月1日の映画の日はミッドサマーの監督の最新作を鑑賞(ミッド

生成AIを使ったテレビニュース風の動画の作り方(HeyGen + Canva)

  イベントの宣伝用にこんな動画を作りました。   誰でも簡単に作れ

タランティーノの第1回監督作品「レザボア・ドッグス」を観たよ

  只今タランティーノの第1回監督作品「レザボア・ドッグス」がデジタ

映画『哀れなるものたち』を観て

全く事前知識なくて観た。観賞後もネットの論評も観てない。どう表現してい

→もっと見る

    • 1648626総閲覧数:
    • 1837今日の閲覧数:
    • 3259昨日の閲覧数:
    • 0現在オンライン中の人数:
    • 2014年4月29日カウント開始日:
PAGE TOP ↑