06/11/01 21:36:12
>この板はプログラムを作る人のための板です。
>
>あらゆる質問はまず すれ立てるまでもない質問はここで スレにしてください。
3:デフォルトの名無しさん
06/11/01 21:39:22
ｽﾚﾘﾝｸ(tech板)
4:デフォルトの名無しさん
06/11/03 17:17:57
>>1
ヘルプくらい読めるようになろうね。
その程度のプログラムなら、使う命令は
INPUT PROMPT
LET
SQR(x)
WHEN EXCEPTION IN
くらいしかないんだし。
多分、まだ中学か高校の生徒さんなんだろう？
自分の力で積極的に学ぼうとする姿勢を大切にしたほうがいいと思うよ。
資料がないから教えてもらうとか、資料を読んだけど自分の能力では理解しきれないとか、
そういう場合には他人に質問してもいいよ。
でもね、ちゃんと調べる前に人にきくのはやめるように。
5:4
06/11/03 17:18:53
あとPRINTくらいは使うか・・・
書き忘れ。
・・・とにかく、自分で調べろ。
6:デフォルトの名無しさん
06/11/03 18:20:53
こんなのもわからないの？
7:デフォルトの名無しさん
06/11/04 11:44:38
>>4-6
>>2
8:デフォルトの名無しさん
06/11/17 01:00:43
せっかくなので(仮称)十進BASICおよびJIS Full BASIC全般のスレとして勝手に再利用します。
(仮称)十進BASICのホームページ
URLﾘﾝｸ(hp.vector.co.jp)
JIS Full BASICについては↓のページから
「ＪＩＳ検索」→「JIS規格番号からJISを検索」に「X3003」と入力して一覧表示
URLﾘﾝｸ(www.jisc.go.jp)
しかしこれ、いつまでたっても（仮称）のままだな
9:デフォルトの名無しさん
06/11/17 11:31:45
je sui n basic.
10:デフォルトの名無しさん
06/11/18 22:30:43
Ultra BASIC
11:デフォルトの名無しさん
06/11/19 14:56:20
>>8
JIS Full BASICを普及させよう
ｽﾚﾘﾝｸ(tech板)l50
12:デフォルトの名無しさん
06/11/20 07:26:43
>>950あたりで答え書くよ
13:デフォルトの名無しさん
06/12/31 04:47:32
>>12
950までにdat落ち
十進BASICは、全然わからない。
だったら、VBの方がわかる。Cはもっと簡単かな？
14:デフォルトの名無しさん
07/04/27 14:55:29
調べてみるよ、良い言語だ
数値計算で良い結果を出す。桁落ちが少ない。
15:デフォルトの名無しさん
07/04/27 15:46:41
すごいな。レス14でも半年も落ちないのか
再利用するとしたら多倍長演算全般まで広げないと、無理っぽいが
16:デフォルトの名無しさん
07/04/27 19:17:01
>>15
結構、dat落ちし難い物ですよ。お陰で、下らない単発スレがたくさん残ってる。
それよか、簡単な十進BASICを理解できないのに、VBを理解してる>>13の方が凄いと思うな。
多倍長演算ならUBASICを忘れちゃいけませんよ。
URLﾘﾝｸ(www.rkmath.rikkyo.ac.jp)
17:デフォルトの名無しさん
07/04/28 09:42:38
ＶＢはよく比べられるDelphiと比べて、とってもややこしい言語だからな、
でも理解出来なくても使う事は出来る。
ビールをこぼれないように運ぶのが仕事のウエイトレスが
「水が半分入ってるコップを傾けて、こぼれる寸前です。 この絵を描いて下さい」
という質問に、正解率が悪かったとかさ
18:デフォルトの名無しさん
07/04/28 13:49:33
十進BASICのホームページ
URLﾘﾝｸ(hp.vector.co.jp)
このようなプログラムが正しく計算されるような事が大切じゃないでしょうか
10 FOR x=-1 TO 0 STEP 0.1
20 PRINT x
30 NEXT x
40 END
19:デフォルトの名無しさん
07/04/28 14:00:28
対象となる問題の性質と計算時間による。
20:デフォルトの名無しさん
07/04/29 14:08:49
そこでRubyですよ
21:デフォルトの名無しさん
07/05/02 00:54:22
>>18
CやJavaのfor文なら出来るぞ。Cコンパイラによっては
-0.000000なんて表示してくるがな。
22:デフォルトの名無しさん
07/05/02 12:04:50
>>21
それは"%f"なんぞを使うからだね。
23:デフォルトの名無しさん
07/06/15 00:28:44
僕のパソコンにはマウスは付いてません。そのせいか否か知りませんが、mouse pollの命令にsyntax errorが出ます。解決策知ってる方教えてください。
24:デフォルトの名無しさん
07/06/15 06:41:47
>>23
つ 【練炭】
25:デフォルトの名無しさん
07/09/06 01:49:27
ハンス･ドゥ･フリース（HdV）方程式:
α = {Γ(α)}^2 ･exp(-(π^2)/2),
の数値解αを求めるプログラムきぼんぬ。
ここに、函数Γ(x)はマクローリン展開
Γ(x) ≡ Σ[k=0,∞) 1/{(2π)^((k-1)k/2)} * x^k.
で与えられる。
ｽﾚﾘﾝｸ(sci板:139-144番)
朝永振一郎スレ
URLﾘﾝｸ(www.chip-architect.com) → Oct. 4, 2004 の記事
Hans de Vries, "An exact formula for the fine structure constant" 2004/10/04
26:デフォルトの名無しさん
07/09/06 02:24:51
>25
UBASIC ver 8.8f で実行しますた。
10 ' asave "HdV.ub"
20 '
30 point 269 ' ← ワード長。大きいほど高精度
40 A#=0.00729735256865385342269473369085
50 B#=0.5/#pi
60 C#=exp(-0.5*#pi*#pi)
70 '
80 for I%=1 to 100
90 S#=1.0
100 T#=A#
110 S#=S#+T#
120 for J%=2 to 60
130 T#=T#*A#*(B#^(J%-1))
140 S#=S#+T#
150 next J%
160 '
170 DS#=1.0+2.0*A#*B#+3.0*A#*A#*B#*B#*B#+4.0*(A#*B#*B#)^3.0
180 A#=A#-(A#-S#*S#*C#)/(1.0-2.0*S#*DS#*C#) ' ← ニュートン法
190 '
200 if int(I%/10)*10=I% then print I%,A#
210 next I%
220 '
230 open "HdV.dat" for output as #1
240 print #1, A#, 1.0/A#
250 close
260 stop
270 end
27:デフォルトの名無しさん
07/09/06 02:33:38
>25
計算結果
α= 0.
0072973525 6865385342 2694733690 8529320891 7479033617
1742833037 5187498644 7605501761 7475640819 0128954893
6418154222 3938230877 1484931569 4506405105 7770949964
0581831070 2237024027 3050733750 1187004451 1309991483
2655130145 8233408778 1713285172 5053706623 1799374720
8166176937 0008699673 4738985023 0839790944 3109523370
6180015335 2909168553 0555291639 0159152522 0107475494
5031594607 3572294729 0987693392 7830555224 8678574394
2780116238 3793140229 0718098750 2579562327 6934068323
2765789372 8343567683 3532327437 2558572434 2507539846
2739263936 0773458481 4100182144 4644667576 8487231845
1318823344 8888347453 5577450085 4441163196 0045945211
7869919188 3380944927 7416380818 4239761233 1966586123
0617372997 0336737693 1289595506 6557142229 1487302540
0083194787 9236138130 1374397424 8325546436 3756861275
5985881745 3372025294 9294441515 5506155454 2048210298
9929650332 8381695850 6194497101 4409938409 4484674986
4304065648 1258351693 3160542691 1770714242 2064153314
8252782301 7598972792 3579689035 7089651165 8118804987
7848966774 9047486443 3151340594 5178519729 7708059696
1294262660 0675165992 4222543365 6268670900 6623939592
9033387925 1285962238 8414198179 5253644023 7553785416
5727026012 4097631671 6945343428 0302219963 8944224189
7416583250 9486730326 3516046790 5217822303 9629298525
2207960921 0875700495 6370080326 5404092663 8545120092
9688338620 8772201632 5983164641 7612457084 32704･･･
ｽﾚﾘﾝｸ(sci板:150-151番)
28:26
07/09/07 02:43:00
>26 の修正
80 for I%=1 to 10
110 S#=S#+T# : DS#=1.0
130 T#=T#*(B#^(J%-1)) : DS#=DS#+T#*J% : T#=T#*A#
170 'DS#=･･･
200 print I%, A#
29:デフォルトの名無しさん
07/10/03 00:42:08
昔、MSX-BASIC という処理系があってだな…。
30:デフォルトの名無しさん
08/02/11 00:12:25 BE:1110396285-2BP(802)
print using文で
<Note> 書式文字は，次に示す11個の文字。
# $ % * + , - . < > ^
らしいのですが、ピリオドをふつーの文字列として処理させたいのですが、どうすればよいですか？
ヘルプ見てもさっぱりわかんねぇ。
31:デフォルトの名無しさん
08/02/11 10:48:57
そんな質問の仕方じゃエスパーさんじゃない限り適切な回答を出来ませんよ。
.を文字列として扱いたいなら""で囲めば良いじゃん
32:デフォルトの名無しさん
08/02/11 12:11:16 BE:666237683-2BP(802)
>>31
いえ、貴方が知らないだけだと思います。
もう一度やってみましたが、””でくくると文法的におかしくなってエラーになります。
””.””でもやってみましたが、効果が無い（無視した？）でした。
33:デフォルトの名無しさん
08/02/11 12:23:58
>>32
お前さんがどんな事をしたいのか具体的に書かないから、
>>31のような解答しか出来ないんよ。
PRINT "Mr. Oda"
みたいな事やりたいって話なら>>31で問題無いはずだ。
USING$なら何もしないでも文字列に成っている。
34:デフォルトの名無しさん
08/02/12 08:22:40 BE:1332475968-2BP(802)
あの…ＵＧＩＮＧ＄ってなんでしょうか？
１０進BASICのヘルプみても、そんな書き方みつからないです。
PRINT USING "なんちゃらかちゃら";変数名
こんな書き方なんですが？
なにかとごっちゃにしえませんか？
35:デフォルトの名無しさん
08/02/12 08:24:06 BE:971596875-2BP(802)
FOR A=1 TO 3
PRINT USING "Mr.Oda%A":A
NEXT A
END
の結果は
Mr*
1
Oda
Mr*
2
Oda
Mr*
3
Oda
です。
36:デフォルトの名無しさん
08/02/12 08:26:07 BE:582958837-2BP(802)
FOR A=1 TO 3
PRINT USING "Mr"."Oda%A":A
NEXT A
END
こうやると文法違反になります。
37:デフォルトの名無しさん
08/02/12 08:30:43 BE:971597257-2BP(802)
Ｎ８８ＢＡＳＩＣだと、アンダーバーでピリオドの役割をキャンセルできるんだけど、１０進ＢＡＳＩＣではできないみたいだし…
うーん…こまった…
38:デフォルトの名無しさん
08/02/12 15:53:05
別に１行で書く必要もないから、
10 FOR A=1 TO 3
20 PRINT "Mr.Oda";
30 PRINT USING"%A":A
40 NEXT A
50 END
で十分でしょ。ダメ？
39:デフォルトの名無しさん
08/02/12 18:15:54 BE:582958837-2BP(802)
一行で書きたいから困ってる。
あと、セミコロンで区切っても１つスペースが入っちゃうのよね。
そもそも、書式文字のキャンセルが解らないと、いずれまた困る事になるのよね。
40:デフォルトの名無しさん
08/02/12 18:22:04 BE:1499034896-2BP(802)
あ、そうそう。
ＵＧＩＮＧ＄って組みこみ関数が有るのね。
41:デフォルトの名無しさん
08/02/12 18:24:33 BE:999356494-2BP(802)
あ、ごめ…スペースが入らないね…
ｐｒｉｎｔ文でやったら、スペース入ったからｐｒｉｎｔ ｕｓｉｎｇでやっちゃおうと思ったのに…
42:デフォルトの名無しさん
08/02/12 18:29:55 BE:1332475968-2BP(802)
うぅぅ…それにしても解る人が居ないって感じだな｡･ﾟ･(ﾉ∀`)･ﾟ･｡
さすがに、もうbasicスレを覗く人はいないか…
本人にメールで聞いて見るかな…
43:デフォルトの名無しさん
08/02/12 21:30:53
PRINT USING "Hoge#%#%#%#%#%#:%.###": "#", "$", "%", "*", "+", ",", "-", ".", "<", ">", "^", 1.23
44:デフォルトの名無しさん
08/02/20 14:34:51
３次方程式の解はどうやって出すんですか？
45:デフォルトの名無しさん
08/02/23 17:26:42
>>44
教科書よめよ。
46:kidding
08/02/24 00:24:58
教科書って何の教科書ですか？数値計算の教科書にも
数学関係の教科書にも載ってません(>_<)
47:デフォルトの名無しさん
08/02/24 08:34:07
「３次方程式の解」でググっただけで嫌と言うほど出てくる件について
48:デフォルトの名無しさん
08/10/10 02:24:11
ほ