投稿

NEWS

2024/4/24(水 ) N88-BASICでn進タイマー (1回目)  を公開しました    2024/4/21(日) VL,NL,XL-BASIC(ver～28u5) を公開しました    2024/4/19(金 ) n進タイマー を公開しました 2024/4/16(火 ) BEEP(ネットで見つけた記事のLIST) を公開しました
続きを読む

N88-BASICでn進タイマー (1回目)

イメージ
2024/4/24(水) N88-BASICでn進タイマー (1回目)   ■ 動作 timer001.basを走らせると 経過時間と 2～16進数3桁のタイマーと 時刻が表示されます キー操作は画面を見て下さい     VL, NL,XL-BASICとdlg～.zip(t imer 001.bas)は このブログ(以下のリンク)から ダウンロードできます https://ulprojectmail.blogspot.com Readme.txtを読んで遊んで下さい  
続きを読む

n進タイマー

2024/4/19(金) n進タイマー   ■ 2024年共通テストI･Aのタイマーの問題 ▼ 前提 Tn(n = 3,4,6)をn進数下3桁のタイマーとする   xを数値としxxは10進数、xx(n)はn進数を表すとする   ▼ 問題 1. 40秒後のT6は? 2. T4が初めて000(4)に戻るのは何秒後? 3. T4,T6が初めて同時に000(n)に戻るのは何秒後? 4. t秒後にT4が012(4)となるのは 　 t ÷ a = ? … b を満たす時である、a,bは?    [b ≡ t (MOD a), b ＜ a] 5. 初めてT3,T4が同時に012(n)となるのは何秒後? 6. 初めてT4,T6が同時に012(n)となるのは何秒後?   ▼ 1の解答 1. 40秒後のT6は?   40を6進数に変換   6 ) 4 0 6 ) 6  … 4    1 … 0   A. 104(6)   ▼ 2の解答 2. T4が初めて000(4)に戻るのは何秒後?   1000(4)を10進数に変換   1･4 3  + 0･4 2  + 0･4 1  + 0･4 0  = 1･4 3  = 64   A . 64 秒後   ▼ 3の解答 3. T4,T6が初めて同時に000(n)に戻るのは何秒後?   1000(4) → 64 (= 4 3 )  … 問2より 1000(6) → 6 3  = 216 これらの最小公倍数が答えとなる   2 3 )4 3  6 3        2 3  3 3     lcm(64, 216) = 2 3 ･2 3 ･3 3  = 8･8･27 = 64･27 = 1728   A . 1728 秒後   ▼ 4の解答 4. t秒後にT4が012(4)となるのは 　 t ÷ a = ? … b を満たす時である、a,bは?   1000(4) → 64  … 問2より  012(4) → 1･4 1  + 2･4 0  = 4 + 2 = 6   t ÷ 64 = ? … 6   A . a = 64, b = 6   ▼ 5の解答 5. 初めてT3,T4が同時に012(n)となるのは何秒後?   1000(3) → 3 3  = 27  012(3) → 1･3 1  + 2･3 0  = 3+2 = 5 1000(4) →
続きを読む

BEEP

イメージ
2024/4/16(火)   BEEP   小5がノートに手書きでプログラミング、35年後に実行してみたら https://withnews.jp/article/f0240414002qq000000000000000W08k10201qq000026805A の記事のプログラムを N88-BASIC(86)互換NL-BASICで動かしました   10 CONSOLE ,,, 1, 1: CLS 20 FOR I=0 TO 20 30   A = INT(RND(1) * 6) + 1 40   LOCATE I, 0: COLOR A: PRINT CHR$(&HE9) 50   BEEP 60   FOR N=0 TO 100: NEXT 70   LOCATE I, 0: COLOR A: PRINT " " 80 NEXT 90 COLOR 7 上記LISTをCtrl+cでコピーし NL-BASICの画面でAlt+vでペースト出来ます   N88-BASIC互換 VL,NL,XL-BASI Cは 以下のリンクからダウンロードできます https://ulprojectmail.blogspot.com Readme.txtを読んで遊んで下さい
続きを読む

PC-98の下線

イメージ
2024/4/9(火) PC-98の下線 PC-98の下線が4dotズレている理由   縦線とで枠を書く為だと思いますので書いてみました   下記リストをコピー(100～220+1行(改行)までを選んでCtrl+c)し NL-BASICの画面でペースト(Alt+v)します 画面クリアしてLISTで表示 RUNで動きます   100 ' PC-98の下線が4dotズレているので縦線とで枠を書いてみました 110 ' Alt+shift+eでbeep最大音量,Alt+F1でリセットで起動音 120 ' メモ帳のリストをCtrl+cでコピーし、Alt+vでぺーストしました 130 def fna(x, y) = (x + y*80)*2: def fnc(c, a) = c*32 + a 140 def seg=&ha200: out &h68,0 150 x1 = 1: y1 = 0: x2 = 15: y2 = 3: cl = 5 160 for x=x1   to x2-1 170   poke fna(x, y1), fnc(cl, &h09): poke fna(x, y2), fnc(cl, &h09) 180 next 190 for y=y1+1 to y2-1: 200   poke fna(x1, y), fnc(cl, &h11): poke fna(x2, y), fnc(cl, &h11) 210 next 220 poke fna(x1, y2), fnc(cl, &h19): poke fna(x2, y2), fnc(cl, &h11)     N88-BASIC互換 VL,NL,XL-BASI Cは 以下のリンクからダウンロードできます https://ulprojectmail.blogspot.com Readme.txtを読んで遊んで下さい  
続きを読む

N88-BASIC,Pythonプログラミング入門 (3回目)

イメージ
2024/3/31(日) N88-BASIC,Pythonプログラミング入門 (3回目)   n!を求める   ■ 初めに ▼ 表記 N88-BASICは以後BASICと省略する事にします またBASICの命令は小文字で書いても 自動で大文字に変換されます   ▼ nの階乗(n!) 　 　 n n! = Πi = 1×2× … ×(n-1)×n 　 　   i =1 = n(n-1)(n-2) … 1   1～nまで自然数が書かれたカードn枚の 並べ方の場合の数は 1  枚目はn  枚から1つ選ぶのでn  通り 2  枚目はn-1枚から1つ選ぶのでn-1通り … n-1枚目は残り2枚から1つ選ぶので2通り n  枚目は残り1枚から1つ選ぶので1通り よって n通り×(n-1)通り× … ×1 = n!通りになる   n = 3の時 1, 2, 3から選ぶ 1番 2番 3番目 1    2    3 1    3    2 2    1    3 2    3    1 3    1    2 3    2    1 3 × 2 × 1 = 6通り     ■ コード ▼ Python print('nの階乗n!を求める') n = int(input('n = ')) if n < 0:     exit() k = 1 for i in range(2, n+1):     k *= i     #--- k = k * i print(f'{n}! = {k}')   ▼ BASIC 10 DEFDBL K    '--- K～の桁を増やす(倍精度) 20 PRINT "nの階乗n!を求める" 30 INPUT "n = ", N 40 IF N < 0 THEN END 50 K = 1 60 FOR I=2 TO N 70   K = K * I '--- K *= Iとは書けない 80 NEXT 90 PRINT STR$(N); "! = "; K   ■ 説明 ▼ Python 整数型の桁数は実質無制限なのでnが 大きくても計算できます (*は×、/は÷です)   ▼ BASIC デフォルトの型(単精度実数)は7桁ほど
続きを読む

N88-BASICでサイコロの出目の和 (5回目)

イメージ
2024/3/26(火) N88-BASICでサイコロの出目の和 (5回目)   n個のサイコロ(d面)の出目の和がkとなる場合の数 (diceの理論値のグラフ表示、縦線追加)   ■ 解説 https://ulprojectmail.blogspot.com/2021/11/n88-basicpc.html N88-BASICで順列組合せ   https://ulprojectmail.blogspot.com/2024/02/dice-3.html サイコロの出目の和 (3回目) https://ulprojectmail.blogspot.com/2024/02/dice-4.html サイコロの出目の和 (4回目)   より 理論値 [(k-n)/d] Σ(-1) r ( k-rd-1 P n-1 )n/{(n-r)!r!} r=0 を Over flowを避けるため (積…)/(積…)とならない様に 積除を交互に行うなどの工夫をしています     ■ 動作 dice005.basを走らせ 出目の数1～dのdとサイコロの数nを入力すると 各出目の和(n～nd)となる場合の数を グラフなどで表示します OVやError表示が出る時は Over flowにより計算不能という事になりますので 値を小さくして下さい     VL,NL,XL-BASICとdlg～.zip(dice005.bas)は このブログ(以下のリンク)から ダウンロードできます https://ulprojectmail.blogspot.com Readme.txtを読んで遊んで下さい  
続きを読む