プログラミングBASIC言語について。

質問

古い数学Bなのですが、簡単な問題と、数学Bの教科書に載っている用語の解説を、1通りしていただけないでしょうか？教えていただけると幸いなのですが。すみません。

回答No.10

musume12

> これを参考にして、作っていただきたいのです。教えていただけると幸いなのですが。
> すみません。813から819です。教えていただけると幸いなのですが。
> https://6900.teacup.com/cgu135/bbs
　813以外何もないけど。

　813のニュートン法のコード

100 DEF F(X) = X^3-K
110 DEF G(X) = 3*X^2
120 INPUT　PROMPT "K =":K
130 LET A = K
140 LET B = A - F(A)/G(A)
150 IF ABS(A-B) > 10^6 THEN
160　　LET A = B
170　　GOTO 140
180 END IF
190 PRINT "近似解 = ";B
200 END

というコーディングは感心できません。これは大昔の Microsoft 系の BASIC、たとえば N88BASIC のスタイルです。
　私なら以下のようにします。

DEF F(X) = X^3 - K
DEF G(X) = 3*X^2
INPUT　PROMPT "K =":K
LET X = K
DO
　　LET B = X - F(X)/G(X)
　　IF ABS((B-X)/X) < 10^6 THEN EXIT DO
　　LET X = B
LOOP
PRINT "近似解 = ";B
END

　なお、プログラミングの勉強は本を読んだだけではものになりません。実際に BASIC が動くソフトが必要です。
私の回答もこれにて打ち切ります。

回答No.9

musume12

> 他のプログラムを作っていただけないでしょうか？教えていただけると幸いなのですが。
> いくつかプログラムを作っていただきたいです。
　非常識なお願いです。ソフトを作成するには時間と労力がかかります。ソフトを作成する会社に相談して、お金を払って作ってもらってください。ただし、相談するときは「こういう目的のプログラムを作って欲しい」と明確に表現することです。

お礼

すみません。814の間違いでした。

回答No.8

musume12

訂正
> データ数を 20 と入力すると、1 から 99 までの乱数が、
> データ数を 20 と入力すると、1 から 100 までの乱数が、

回答No.7

musume12

> なぜ、最後の行番号が500なのでしょうか？
　行番号は下に行くほど大きくなっていれば何でもいいのです。数B が採用していたのは Full Basic のようなので、ほんとうは行番号は使わない方がいいと思いますが、センター試験等では使っていたようです。

> 何のプログラムなのでしょうか？
　データ数を 20 と入力すると、1 から 99 までの乱数が、たとえば
　　54 98 39 15 59 97 36 4 50 30 41 54 52 78 19 34 14 36 78 76
のように20個発生しますので、これを
　　98 97 78 78 76 59 54 54 52 50 41 39 36 36 34 30 19 15 14 4
のように大きい順に並び替えるプログラムです。

> SWAP文は使わないでいただけないでしょうか？
　下記参照。しかし、なぜ？

100 INPUT "データ数を入力してください。",N
110 DIM X(N)
120 FOR I = 1 TO N
130　　X(I) = INT(101*RND)
140 NEXT I
150 PRINT "ソート前のデータを出力します。"
160 FOR I = 1 TO N
170　　PRINT X(I)
180 NEXT I
185 PRINT
190 FOR J=1 TO N-1
200　　FOR K=J+1 TO N
210　　　　IF X(J) >= X(K) THEN 230
220　　　　TEMP = X(J)
222　　　　X(J) = X(K)
225　　　　X(K) = TEMP
230　　NEXT K
240 NEXT J
250 PRINT "ソートしたデータを出力します。"
260 FOR I = 1 TO N
270 　　PRINT X(I)
280 NEXT I
500 END

補足

できれば、DEF文を使って、プログラムから作り直していただけないでしょうか？後、STEP増分
も入れて作っていただきたいです。他のプログラムを作っていただけないでしょうか？教えていただけると幸いなのですが。いくつかプログラムを作っていただきたいです。お手数ですが、何のプログラムか書いていただけると幸いなのですが。すみません。教えていただけると幸いなのですが。

回答No.6

musume12

下のコードはインデントが無視されていたので画像でアップ。

補足

なぜ、最後の行番号が500なのでしょうか？何のプログラムなのでしょうか？教えていただけると幸いです。SWAP文は使わないでいただけないでしょうか？それ以外はいいので。（そのほか野茂は使ってもかまわないということです）すみません。

回答No.5

musume12

一番単純な（しかし効率の悪い）ソートプログラム
十進BASICではMicrosoft BASIC互換モードで実行してください。
------------------------------------------------
100 INPUT "データ数を入力してください。",N
110 DIM X(N)
120 FOR I = 1 TO N
130 X(I) = INT(101*RND)
140 NEXT I
150 PRINT "ソート前のデータを出力します。"
160 FOR I = 1 TO N
170 PRINT X(I)
180 NEXT I
190 FOR J=1 TO N-1
200 FOR K=J+1 TO N
210 IF X(J) >= X(K) THEN 230
220 SWAP X(J),X(K)
230 NEXT K
240 NEXT J
250 PRINT "ソートしたデータを出力します。"
260 FOR I = 1 TO N
270 PRINT X(I)
280 NEXT I
500 END

補足

これは、どういう意味となるのでしょうか？どんなブログラムなのでしょうか？数学Bで、BASIC言語は、これだけ覚えておけば、いいのでしょうか？あと、BASIC 言語の全ての用語を教えていただけると幸いなのですが。すみません。

回答No.4

musume12

21 世紀も 20 年が過ぎようとしている時代に、どうして昔のスタイルの BASIC にこだわるのかよくわかりませんが、Windows10 で動くフリーの BASIC に十進 BASIC があります。「十進 BASIC」で検索するとすぐ見つかります。
　十進 BASIC は行番号は不要ですが、昔の BASIC（N88 BASIC など）のように行番号をつけるコーディングも可能です。
　現在も開発中で、サンプルプログラムも豊富ですから、自分でコーディングしたプログラムの動作を確認しながら学ぶには最適だと思います。ネットには応用例もたくさんあります。

補足

例えば、INPUT文や、DIM文が出てくるBASIC言語なのですが。教えていただけると幸いなのですが。URLを貼っていただけると幸いなのですが。すみません。

回答No.3

asuncion

であれば、「プログラミング言語 BASIC」でググってください。
いくらでも情報が得られるはずです。

お礼

もし、手持ちの資料で、BASIC言語の資料があるなら、写真を撮って貼っていただけると幸いなのですが。すみません。

補足

では、それが載っているサイトのURLを教えていただけると幸いなのですが。すみません。探してもいいのが出てこなくて。

回答No.2

asuncion

＞数学Bとは数列、ベクトル、確率などを勉強します。
失礼しま～す。
現行の学習指導要領では、確率は数学Aで履修することになっています。

補足

ですから、数学Bに載っているあなたが思いつく限りの、用語を(解説も含めて)教えていただけると幸いなのですが。すみません。

回答No.1

中京区 桑原町（@a4330）

数学Bとは数列、ベクトル、確率などを勉強します。
BASICはコンピュータを動かす言語の一つです。

補足

昔の教科書に載っているのですが、解説していただけないでしょうか？