【プロクラム】 BASIC 【繋げて】
10 PRINT CHR$(12);
20 N=0
30 AD=&H0000
35 '
40 GOSUB 1000
50 IF N=2 THEN PRINT " N>1 --- チュウシ シマス": END
60 AD=AD+1
70 IF AD=&HFFFF THEN PRINT " N="; N ;" ---カンリョウシマシタ ": END
80 GOTO 40
90 END
100'
1000 M$=CHR$ (PEEK (AD) )
1010 IF M$="O" THEN 2000
1020 RETURN
1030'
2000 M2$=CHR$ (PEEK (AD+1) )
2010 IF M2$="k" THEN N=N+1
2020 RETURN
3000 END
20 N=0
30 AD=&H0000
35 '
40 GOSUB 1000
50 IF N=2 THEN PRINT " N>1 --- チュウシ シマス": END
60 AD=AD+1
70 IF AD=&HFFFF THEN PRINT " N="; N ;" ---カンリョウシマシタ ": END
80 GOTO 40
90 END
100'
1000 M$=CHR$ (PEEK (AD) )
1010 IF M$="O" THEN 2000
1020 RETURN
1030'
2000 M2$=CHR$ (PEEK (AD+1) )
2010 IF M2$="k" THEN N=N+1
2020 RETURN
3000 END
なんとか言え
南斗
new on 13
...なんだっけなぁ。たしか88FAでよくつかった覚えが。
...なんだっけなぁ。たしか88FAでよくつかった覚えが。
359 ：ナイコンさん：2008/05/01(木) 22:02:54
TRON
360 ：ナイコンさん：2008/06/23(月) 14:42:42
10 REM ********************
20 REM *__ｼｼｭﾝｷﾉｼｮｳﾈﾝｶﾞ___*
30 REM *_ﾊｼﾞﾒﾃﾂｸｯﾀﾌﾟﾛｸﾞﾗﾑ_*
40 REM *____BY PC-1350____*
50 REM ********************
60 CLS
70 PRINT "ﾆｯﾀｴﾘ";
80 PRINT "ｺｸｼｮｳｻﾕﾘ";
90 PRINT "ｶﾜｲｿﾉｺ";
100 PRINT "ﾔﾘﾀｲ";
110 IF INKEY$="" GOTO 70
120 END
20 REM *__ｼｼｭﾝｷﾉｼｮｳﾈﾝｶﾞ___*
30 REM *_ﾊｼﾞﾒﾃﾂｸｯﾀﾌﾟﾛｸﾞﾗﾑ_*
40 REM *____BY PC-1350____*
50 REM ********************
60 CLS
70 PRINT "ﾆｯﾀｴﾘ";
80 PRINT "ｺｸｼｮｳｻﾕﾘ";
90 PRINT "ｶﾜｲｿﾉｺ";
100 PRINT "ﾔﾘﾀｲ";
110 IF INKEY$="" GOTO 70
120 END
その子って誰のことだよ、ってずっと思ってた
友達に聞いてもその子だよ、としか教えてくれなくて頭にきた
友達に聞いてもその子だよ、としか教えてくれなくて頭にきた
362 ：ナイコンさん：2008/07/16(水) 23:35:04
で、その子ってだれなんだよ
この子がその子なのか、やっとわかった
どうでもいいが、スレタイがプロクラムなのな
どうでもいいが、スレタイがプロクラムなのな
この流れはぴゅー太ですね
数学で、今コンピュータプログラムの勉強をし始めてBASICを使っています。
等差数列の計算プログラムを書いたのですが、どうもうまくいきません。
御教授お願い致します。
因みに、公式も書きます。
nが項数、a初項、ｄが公差です。
Sn=n{2a+(n-1)d}/2
100 REM 等差数列
110INPUT N, A, D
120 S=N{2A+(N-1)*D}/2
130 PRINT "項数=" ; N
140 PRINT "初項=" ; A
150 PRINT "公差=" ; D
160 PRINT "総和=" ; S
170 END
等差数列の計算プログラムを書いたのですが、どうもうまくいきません。
御教授お願い致します。
因みに、公式も書きます。
nが項数、a初項、ｄが公差です。
Sn=n{2a+(n-1)d}/2
100 REM 等差数列
110INPUT N, A, D
120 S=N{2A+(N-1)*D}/2
130 PRINT "項数=" ; N
140 PRINT "初項=" ; A
150 PRINT "公差=" ; D
160 PRINT "総和=" ; S
170 END
初項（一番初めの項）が a1
公差が d
項数が n
の場合の公式
an = a1 + (n-1)d
3, 5, 7, 9, 11, 13に当てはめると
初項は3
項差は2
項数3の場合
an = 3 + (3-1)2
an = 7
となる
これをプログラムにするのは難しくないと思うが
公差が d
項数が n
の場合の公式
an = a1 + (n-1)d
3, 5, 7, 9, 11, 13に当てはめると
初項は3
項差は2
項数3の場合
an = 3 + (3-1)2
an = 7
となる
これをプログラムにするのは難しくないと思うが
>>366
120 S=N*(2*A+(N-1)*D)/2
120 S=N*(2*A+(N-1)*D)/2
369 ：ナイコンさん：2008/11/10(月) 11:05:39
370 ：ナイコンさん：2008/11/20(木) 14:06:15
と、おもって・・・
押入れからＸＰ入りのロートル機を出してやってみたが、
やっぱりペーストができない！
ＬＯＡＤ ﾘﾀｰﾝで、小窓が出て、そこにＢＡＳＩＣテキストをペースト
してくれ言うのだが、小窓で右ボタン押しても無反応なんですよ・・・
他に、ペーストのしかたとか有るのか教えてください；
押入れからＸＰ入りのロートル機を出してやってみたが、
やっぱりペーストができない！
ＬＯＡＤ ﾘﾀｰﾝで、小窓が出て、そこにＢＡＳＩＣテキストをペースト
してくれ言うのだが、小窓で右ボタン押しても無反応なんですよ・・・
他に、ペーストのしかたとか有るのか教えてください；
指摘のサイトに行って見てはいないが、
ペーストは
Ctrl ＋ V
もダメすか？
ペーストは
Ctrl ＋ V
もダメすか？
ありがとうございます！ できました！
が、なんか、うまく動かない・・・なんか、気むずかしそう；
internaru erra とかでるし・・・小窓は出ぱなしになるし；
もっとシームレスにネットから呼び出せると、たとえばココのスレとか
だって、盛り上がると思うのダケド・・・
が、なんか、うまく動かない・・・なんか、気むずかしそう；
internaru erra とかでるし・・・小窓は出ぱなしになるし；
もっとシームレスにネットから呼び出せると、たとえばココのスレとか
だって、盛り上がると思うのダケド・・・
このスレに来る人たちは、多分BASICインタプリタの稼動する何らかのハードを持っているのだと思う
なので、わざわざjavaアプレットでBASICプログラムを動かそうとは思っていない
ベクターとかでフリーのBASICインタプリタとかダウンロードできると思うので、それを使ってみてはどうだろうか？
なので、わざわざjavaアプレットでBASICプログラムを動かそうとは思っていない
ベクターとかでフリーのBASICインタプリタとかダウンロードできると思うので、それを使ってみてはどうだろうか？
お絵描き掲示板というのがありまして〜・・・(略
MON
*L
*GCE80
*L
*GCE80
ニモニックやめて！
377 ：ナイコンさん：2008/12/09(火) 17:46:07
10 CLS
20 A$=INKEY$
30 IF A$="" GOTO 20
40 IF A$=CHR$(13) GOTO 10
50 PRINT CHR$(STR(A$));
60 GOTO20
でよかったっけ?
よく店のデモ機に手打ちして走らせといたっけ、なあ。
20 A$=INKEY$
30 IF A$="" GOTO 20
40 IF A$=CHR$(13) GOTO 10
50 PRINT CHR$(STR(A$));
60 GOTO20
でよかったっけ?
よく店のデモ機に手打ちして走らせといたっけ、なあ。
誰かセガサターンＢＡＳＩＣはいないのか？
ttp://yoshiki.syuriken.jp/10-Basic/kazuate.html
数当てゲーム
構造化BASICのはずなのに、なぜかGOTOでスパゲッティーになっていてびっくりした
こういう癖って時代を越えたものがあるのかな
数当てゲーム
構造化BASICのはずなのに、なぜかGOTOでスパゲッティーになっていてびっくりした
こういう癖って時代を越えたものがあるのかな
あー、まだこのスレあったんだ。懐かしい。
381 ：（￣ー￣）ニヤリッ ◆dTQkcZeb9M ：2009/07/29(水) 23:38:00
BASIC/98を知ってる人なんて・・・
まだ居るのだろうか？
まだ居るのだろうか？
知ってるよ
383 ：ナイコンさん：2009/08/08(土) 18:47:37
50 PRINT A$
じゃだめなの？
じゃだめなの？
>>383-384
とっちでも動作に問題は無いが、処理速度を出したいなら>>384だろうな
＊PC-G850Vにブザーを半田付けしちゃった記念に作った奴
【どっかの研究室BGM】
10 V= RND 256-1
20 BEEP 1,V,200000/(166+22*V)
30 GOTO 10
＊おまけ(変更)
5 I=0
10 PEEK I,V:I=I+1:IF I>65535 THEN END 'ENDの代わりにI=0でも可
ちょっと趣が変わります
テンポを変えたい時は20行の200000を増減してね
とっちでも動作に問題は無いが、処理速度を出したいなら>>384だろうな
＊PC-G850Vにブザーを半田付けしちゃった記念に作った奴
【どっかの研究室BGM】
10 V= RND 256-1
20 BEEP 1,V,200000/(166+22*V)
30 GOTO 10
＊おまけ(変更)
5 I=0
10 PEEK I,V:I=I+1:IF I>65535 THEN END 'ENDの代わりにI=0でも可
ちょっと趣が変わります
テンポを変えたい時は20行の200000を増減してね
99basicはブロックIF文が使えないのが唯一残念だな
必要ない。
汚いソースを当たり前に書く人か
389 ：─☆─ X''CULTer's / Esprit de 99BASIC ◆M33J0QkV0U ：2009/09/07(月) 11:50:02
この各所に出るコテの人はやっぱコテや名無し切り替えたりしてんのかな？
391 ：─☆─ X''CULTer's / Esprit de 99BASIC ◆M33J0QkV0U ：2009/09/07(月) 22:26:03
いやいや、いわゆる ” 大復活 ” なワケでさ（笑）
↑ってあの馬鹿か?
393 ：ナイコンさん：2011/02/27(日) 01:59:39.74
アハ〜♪”
394 ：福盛俊明：2011/03/02(水) 23:31:28.39
アハ〜♪”
395 ：ナイコンさん：2011/03/04(金) 20:09:39.46
プチコン DSでBASIC
http://toki.2ch.net/test/read.cgi/handygame/1298442815/l50
3DS/DSi上で「BASIC」が使える「プチコン」 X=2
http://kamome.2ch.net/test/read.cgi/ghard/1298985388/l50
プチコン
http://smileboom.com/special/petitcom/index.html
http://toki.2ch.net/test/read.cgi/handygame/1298442815/l50
3DS/DSi上で「BASIC」が使える「プチコン」 X=2
http://kamome.2ch.net/test/read.cgi/ghard/1298985388/l50
プチコン
http://smileboom.com/special/petitcom/index.html
396 ：福盛俊明：2011/03/05(土) 02:04:43.61
アハ〜♪”
ブロック構文は使えない理由はそれなりにある。元々昔のBASICインタプリタは、
行番号があって行を編集した。メモ帳のようなエディタはフルスクリーンエディタというが、
これすら無かった。本格的な汎用機やミニコンならスクリーンエディタはあったがマイコンには無かった。
BASICインタプリタは一行入力するごとに編集する訳だが、一行エディタ機能には別の機能があって、一行入力
する毎に中間言語にコンパイルしている。だから昔のBASICはエディタとインタプリタの機能が備わってる。
これが原因で、簡単にブロック構造などが使えない。昔のBASICは構文解釈が独特。
BASICに構造化構文が登場しなかったのは、インタプリタの構造にも原因がある。
MSのQBASICは構造化構文を持っているが、これはフルスクリーンエディタの環境が用意されてる。
一行実行もイミディエイトウインドウで可能になっていた。
フルスクリーンエディタを備えたQuickBASIC世代でないと構文解釈系がうまく構造化を扱えない。
QBASICで始めて構造化構文をBASICに取り入れられたのは、インタプリタの構造が関係してる。
行番号があって行を編集した。メモ帳のようなエディタはフルスクリーンエディタというが、
これすら無かった。本格的な汎用機やミニコンならスクリーンエディタはあったがマイコンには無かった。
BASICインタプリタは一行入力するごとに編集する訳だが、一行エディタ機能には別の機能があって、一行入力
する毎に中間言語にコンパイルしている。だから昔のBASICはエディタとインタプリタの機能が備わってる。
これが原因で、簡単にブロック構造などが使えない。昔のBASICは構文解釈が独特。
BASICに構造化構文が登場しなかったのは、インタプリタの構造にも原因がある。
MSのQBASICは構造化構文を持っているが、これはフルスクリーンエディタの環境が用意されてる。
一行実行もイミディエイトウインドウで可能になっていた。
フルスクリーンエディタを備えたQuickBASIC世代でないと構文解釈系がうまく構造化を扱えない。
QBASICで始めて構造化構文をBASICに取り入れられたのは、インタプリタの構造が関係してる。
昔は16kROM,8kRAMといったような今のPCと比較して米粒ほどのメモリで高級言語を動作
させる必要があったので、インタプリタの構造も特殊でメモリが無くとも動作するような
構造になっていたし、その殆どがアセンブラで書かれていたりするので非常にトリッキーな
ソースコードになってる。アセンブラに詳しくないと今の人は読めない。
ブロック構文を採用する場合の理想的なインタプリタは、エディタとインタプリタが区別され、
DOSか何かのコマンドで動作する方式の方が構文解釈しやすい。だけど8bit機だとDOSすら
動作が遅いという事になって結局ブロック構文は意味があるのかという話にもなる。
QBASICはスクリーンエディタとインタプリタの統合環境になっているけれども。
させる必要があったので、インタプリタの構造も特殊でメモリが無くとも動作するような
構造になっていたし、その殆どがアセンブラで書かれていたりするので非常にトリッキーな
ソースコードになってる。アセンブラに詳しくないと今の人は読めない。
ブロック構文を採用する場合の理想的なインタプリタは、エディタとインタプリタが区別され、
DOSか何かのコマンドで動作する方式の方が構文解釈しやすい。だけど8bit機だとDOSすら
動作が遅いという事になって結局ブロック構文は意味があるのかという話にもなる。
QBASICはスクリーンエディタとインタプリタの統合環境になっているけれども。
ではスクリーンエディタをBASICの命令だけで作れるのか、というとこれは無理。
なぜかというと、BASICに備わっているINPUTやOPEN命令は、ファイルI/OやキーボードI/Oを
前提としているので、データファイル操作以外を想定していない。
多分、BASIC等でフルスクリーンエディタを作ろうと考えた人は過去に何人かいると思う。
だからスクリーンエディタを作りたければ、ハードウエアを直接操作し、キースキャンや
画面表示を行なう必要があった。DOSのプログラミングと同じで用意されたファンクションコール
以外は自前で実装する必要がある。
文字列の処理の仕方もBASICインタプリタは特殊なので難しくさせる要因だろう。
ポケコンなどを使っていると、BASICのみでエディタを作ろうと試みた形跡が見られる。
エディタを付けてインタプリタをもうちょっと改良すると使いやすくなるのだが、多分
オリジナルのソースコードはアセンブラで書かれていると思うので、手も足も出ないだろう。
Cでインタプリタを書き直す程度の事は行なわないと、改良は難しいかも。
古いBASICは、整数TinyBASICから発展したものなので、その辺りから見直せば、又新しい
展開はあるかもしれない。
なぜかというと、BASICに備わっているINPUTやOPEN命令は、ファイルI/OやキーボードI/Oを
前提としているので、データファイル操作以外を想定していない。
多分、BASIC等でフルスクリーンエディタを作ろうと考えた人は過去に何人かいると思う。
だからスクリーンエディタを作りたければ、ハードウエアを直接操作し、キースキャンや
画面表示を行なう必要があった。DOSのプログラミングと同じで用意されたファンクションコール
以外は自前で実装する必要がある。
文字列の処理の仕方もBASICインタプリタは特殊なので難しくさせる要因だろう。
ポケコンなどを使っていると、BASICのみでエディタを作ろうと試みた形跡が見られる。
エディタを付けてインタプリタをもうちょっと改良すると使いやすくなるのだが、多分
オリジナルのソースコードはアセンブラで書かれていると思うので、手も足も出ないだろう。
Cでインタプリタを書き直す程度の事は行なわないと、改良は難しいかも。
古いBASICは、整数TinyBASICから発展したものなので、その辺りから見直せば、又新しい
展開はあるかもしれない。
確か、DOSで動いていた頃のTurboPASCALも、エディタ環境とコンパイラが統合されて
いたような気がするが、これはQuickBASICと比べても見た目は全く同じ開発環境で、
エディタとインタプリタ/コンパイラが統合されているもの。
16bitのDOSで動いていたので、8bitではないが、ブロック構文や構造化構文を使う場合は、
こういったエディタ環境が解釈系とコンビで必然的に必要になる、という良い事例。
いたような気がするが、これはQuickBASICと比べても見た目は全く同じ開発環境で、
エディタとインタプリタ/コンパイラが統合されているもの。
16bitのDOSで動いていたので、8bitではないが、ブロック構文や構造化構文を使う場合は、
こういったエディタ環境が解釈系とコンビで必然的に必要になる、という良い事例。
♪目覚めてくれと 鼻たれた〜♪
まで読んだ
まで読んだ
402 ： 【東電 44.7 %】 ：2011/08/22(月) 04:51:18.85
TurboPascalはCP/Mで動いてたろ
インタプリタはついていない
インタプリタはついていない
>>397
BASIC-M25は出来ただろ
BASIC-M25は出来ただろ
404 ：ナイコンさん：
ＲｅａｄｙかＲＥＡＤＹでよくOut of Data がでる党、結成