*

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ボタンをお願いします。
    ブログを書くモチベーションになります。よろしくお願いします。

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



関連記事

「ちょまどさん」がやってきた。

      このツーショット!       なななんと   ちょまどさんです。     もう1度いい

記事を読む

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

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

記事を読む

【備忘録】Solidity スマートコントラクトのコンパイルエラー

GWはブロックチェーンを勉強中のTatsuyaです。   Udemyのこのコースで勉強中です。

記事を読む

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

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

記事を読む

【備忘録】mocha によるテスト

自分用備忘録   イーサリアムによるブロックチェーンを作る講座を受講中 言語は、Javascr

記事を読む

ad

Message

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

ad

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