1read 100read
2012年4月プログラム178: 十進BASIC (118)
TOP カテ一覧 スレ一覧 2ch元 削除依頼 ▼
Visual Studio 2008 Part 21 (572)
■暗号技術【ROUNDsurea】■ (526)
●●●●TCL/TKなら俺に聞け 2●●●● (892)
C言語なら俺に聞け(入門編)Part 100 (1001)
関数型プログラミング言語Haskell Part18 (288)
IS<インフィニット・ストラトス>総合 (568)
十進BASIC
1 :06/11/01 〜 最終レス :12/04/10 組み方がちっともわかりません。 だれか下のプログラムの組み方を教えてくださいませんか?? 2次方程式ax^2+bx+c=0(ただしa≠0)の解は -b±√(b^2-4ac) x=−−−−−−−− 2a である、キーボードから、3つの数a,b,cを入力し、2次方程式の解を計算し画面に表示するプログラム です。誰かわかるかたいましたら教えてください、お願いします(><)
2 : >この板はプログラムを作る人のための板です。 > >あらゆる質問はまず すれ立てるまでもない質問はここで スレにしてください。
3 : http://pc8.2ch.net/test/read.cgi/tech/1136788500/
4 : >>1 ヘルプくらい読めるようになろうね。 その程度のプログラムなら、使う命令は INPUT PROMPT LET SQR(x) WHEN EXCEPTION IN くらいしかないんだし。 多分、まだ中学か高校の生徒さんなんだろう? 自分の力で積極的に学ぼうとする姿勢を大切にしたほうがいいと思うよ。 資料がないから教えてもらうとか、資料を読んだけど自分の能力では理解しきれないとか、 そういう場合には他人に質問してもいいよ。 でもね、ちゃんと調べる前に人にきくのはやめるように。
5 : あとPRINTくらいは使うか・・・ 書き忘れ。 ・・・とにかく、自分で調べろ。
6 : こんなのもわからないの?
7 : >>4-6 >>2
8 : せっかくなので(仮称)十進BASICおよびJIS Full BASIC全般のスレとして勝手に再利用します。 (仮称)十進BASICのホームページ ttp://hp.vector.co.jp/authors/VA008683/ JIS Full BASICについては↓のページから 「JIS検索」→「JIS規格番号からJISを検索」に「X3003」と入力して一覧表示 ttp://www.jisc.go.jp/ しかしこれ、いつまでたっても(仮称)のままだな
9 : je sui n basic.
10 : Ultra BASIC
11 : >>8 JIS Full BASICを普及させよう http://pc8.2ch.net/test/read.cgi/tech/1157615677/l50
12 : >>950 あたりで答え書くよ
13 : >>12 950までにdat落ち 十進BASICは、全然わからない。 だったら、VBの方がわかる。Cはもっと簡単かな?
14 : 調べてみるよ、良い言語だ 数値計算で良い結果を出す。桁落ちが少ない。
15 : すごいな。レス14でも半年も落ちないのか 再利用するとしたら多倍長演算全般まで広げないと、無理っぽいが
16 : >>15 結構、dat落ちし難い物ですよ。お陰で、下らない単発スレがたくさん残ってる。 それよか、簡単な十進BASICを理解できないのに、VBを理解してる>>13 の方が凄いと思うな。 多倍長演算ならUBASICを忘れちゃいけませんよ。 ttp://www.rkmath.rikkyo.ac.jp/~kida/ubasic.htm
17 : VBはよく比べられるDelphiと比べて、とってもややこしい言語だからな、 でも理解出来なくても使う事は出来る。 ビールをこぼれないように運ぶのが仕事のウエイトレスが 「水が半分入ってるコップを傾けて、こぼれる寸前です。 この絵を描いて下さい」 という質問に、正解率が悪かったとかさ
18 : 十進BASICのホームページ http://hp.vector.co.jp/authors/VA008683/index.htm このようなプログラムが正しく計算されるような事が大切じゃないでしょうか 10 FOR x=-1 TO 0 STEP 0.1 20 PRINT x 30 NEXT x 40 END
19 : 対象となる問題の性質と計算時間による。
20 : そこでRubyですよ
21 : >>18 CやJavaのfor文なら出来るぞ。Cコンパイラによっては -0.000000なんて表示してくるがな。
22 : >>21 それは"%f"なんぞを使うからだね。
23 : 僕のパソコンにはマウスは付いてません。そのせいか否か知りませんが、mouse pollの命令にsyntax errorが出ます。解決策知ってる方教えてください。
24 : >>23 つ 【練炭】
25 : ハンス・ドゥ・フリース(HdV)方程式: α = {Γ(α)}^2 ・exp(-(π^2)/2), の数値解αを求めるプログラムきぼんぬ。 ここに、函数Γ(x)はマクローリン展開 Γ(x) ≡ Σ[k=0,∞) 1/{(2π)^((k-1)k/2)} * x^k. で与えられる。 http://science6.2ch.net/test/read.cgi/sci/1091534329/139-144 朝永振一郎スレ http://www.chip-architect.com/mid_home.html → Oct. 4, 2004 の記事 Hans de Vries, "An exact formula for the fine structure constant" 2004/10/04
26 : >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 : >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・・・ http://science6.2ch.net/test/read.cgi/sci/1091534329/150-151
28 : >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 : 昔、MSX-BASIC という処理系があってだな…。
30 : print using文で <Note> 書式文字は,次に示す11個の文字。 # $ % * + , - . < > ^ らしいのですが、ピリオドをふつーの文字列として処理させたいのですが、どうすればよいですか? ヘルプ見てもさっぱりわかんねぇ。
31 : そんな質問の仕方じゃエスパーさんじゃない限り適切な回答を出来ませんよ。 .を文字列として扱いたいなら""で囲めば良いじゃん
32 : >>31 いえ、貴方が知らないだけだと思います。 もう一度やってみましたが、””でくくると文法的におかしくなってエラーになります。 ””.””でもやってみましたが、効果が無い(無視した?)でした。
33 : >>32 お前さんがどんな事をしたいのか具体的に書かないから、 >>31 のような解答しか出来ないんよ。 PRINT "Mr. Oda" みたいな事やりたいって話なら>>31 で問題無いはずだ。 USING$なら何もしないでも文字列に成っている。
34 : あの…UGING$ってなんでしょうか? 10進BASICのヘルプみても、そんな書き方みつからないです。 PRINT USING "なんちゃらかちゃら";変数名 こんな書き方なんですが? なにかとごっちゃにしえませんか?
35 : FOR A=1 TO 3 PRINT USING "Mr.Oda%A":A NEXT A END の結果は Mr* 1 Oda Mr* 2 Oda Mr* 3 Oda です。
36 : FOR A=1 TO 3 PRINT USING "Mr"."Oda%A":A NEXT A END こうやると文法違反になります。
37 : N88BASICだと、アンダーバーでピリオドの役割をキャンセルできるんだけど、10進BASICではできないみたいだし… うーん…こまった…
38 : 別に1行で書く必要もないから、 10 FOR A=1 TO 3 20 PRINT "Mr.Oda"; 30 PRINT USING"%A":A 40 NEXT A 50 END で十分でしょ。ダメ?
39 : 一行で書きたいから困ってる。 あと、セミコロンで区切っても1つスペースが入っちゃうのよね。 そもそも、書式文字のキャンセルが解らないと、いずれまた困る事になるのよね。
40 : あ、そうそう。 UGING$って組みこみ関数が有るのね。
41 : あ、ごめ…スペースが入らないね… print文でやったら、スペース入ったからprint usingでやっちゃおうと思ったのに…
42 : うぅぅ…それにしても解る人が居ないって感じだな。・゚・(ノ∀`)・゚・。 さすがに、もうbasicスレを覗く人はいないか… 本人にメールで聞いて見るかな…
43 : PRINT USING "Hoge#%#%#%#%#%#:%.###": "#", "$", "%", "*", "+", ",", "-", ".", "<", ">", "^", 1.23
44 : 3次方程式の解はどうやって出すんですか?
45 : >>44 教科書よめよ。
46 : 教科書って何の教科書ですか?数値計算の教科書にも 数学関係の教科書にも載ってません(>_<)
47 : 「3次方程式の解」でググっただけで嫌と言うほど出てくる件について
48 : ほ
49 : そうかなあ
50 : 日本語のあいうえおから教えないと駄目なのかよ。
51 : そうか
52 : は?
53 : これ、いいソフトだよね なんでもっと話題にならないんだろう?
54 : 自動焼人 ★ = 自動保守 ◆KAWORUKOFI = 自動保守#K9K?_D[L 名言集 その3 『いつもサボってばかりのキャップがウゼえ』 http://yutori7.2ch.net/test/read.cgi/news4vip/1249830540/ ID:PVAf+dux0 = 自動焼人 ★ > 71 :以下、名無しにかわりましてVIPがお送りします [sage] :2009/08/10(月) 00:58:57.28 ID:PVAf+dux0 > >>69 > 大変って言うか > 毎日、報告されたのを見て、判断して、処理して、完了報告して、以下ループ。 > ちょっとでもミスすると、普段は作業もしてないキャップさんたちがさんざん文句言ってきて > その言いわけを考えないと、キャップはく奪されたりアカウント凍結されたりするから > > 登録されてから一年以上経って、やっといいたいこと言えるようになってきたよ。 ---------------------------------------------- この自動焼人 ★メールマガジンの配信停止をご希望される方は http://qb5.2ch.net/test/read.cgi/sec2chd/1250169591/ にて自動焼人 ★までご連絡ください
55 : BASIC繁栄時代
56 : 十進BASICからプログラミング入った俺としては上げておきたい
57 : ちょっとした計算機のかわりになるな 起動も早いし
58 : 野に咲く…
59 : 二進モードだと、結構はやいなあ。
60 : え?
61 : input a,b,c print "a=";a,"b=";b,"c=";c let x1=(-b+sqr(b*b-(4*a*c)))/(2*a) let x2=(-b-sqr(b*b-(4*a*c)))/(2*a) print "x1=";x1,"x2=";x2 end 今日此の欄を発見して書き込みました。
62 : ttp://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1126101956 この件がちょっと気になった。 もちろん使用条件の設定自体には何の問題もないけど、掲げ方が問題だな。 「ダウンロードしたらナントカに必ず目を通して同意してから使用してください」 とか、一切書かれていなくて、ヘルプに一行程度書いてあるだけなんだよ。 「本BASICを利用して得られた研究結果は必ず公開してください。」って。
63 : 10 DIM ODD(2,10000000) LET C=1 20 FOR I=1 TO 9999999 30 LET ODD(1,I)=I*2+1 LET ODD(2,I)=0 NEXT I 40 FOR J=1 TO 9999999 50 LET N=(J*2+1)*2 60 FOR K=N/2+N TO INT((20000000-N/2)/N)*N STEP N 70 LET ODD(2,INT(K/2))=1 80 NEXT K 90 NEXT J 100 LET K=1 110 IF ODD(2,K)=0 THEN LET C=C+1 120 IF C=1000000 THEN GOTO 200 130 LET K=K+1 GOTO 110 200 PRINT ODD(1,K) END 素数割り出しP Cの値をいじると好きな番目の素数を割り出します ここでは1000000番目の素数。 十進BASICを無改造に値扱わせるとこのあたりが実数の限界 みたいでふ。
64 : …と思ったら十進BASICあなどれません まだまだイケルモード発見 ちょっとやってみます。
65 : できました 限界のない素数求数ぷろぐらむ 10 OPTION ARITHMETIC RATIONAL 20 LET C=11 30 LET K=3 40 IF INT(C/K)<>(C/K) THEN 50 IF INT(C/3)>K THEN 60 LET K=K+2 70 GOTO 40 80 END IF 90 END IF 100 REM 110 IF INT(C/K)<>(C/K) THEN PRINT C; 120 LET C=C+2 130 IF C>10000 THEN STOP 1221 GOTO 30 END 130行目のCの値を変えてやればそこの値まで延々と素数をコアダンプ マシンパワーに酔い痴れてください。
66 : 50 IF C>K*K THEN に変更願います 全然スピードが違ってきます。
67 : >>66 そのbasicにはモジュロ演算ないの? それと、2、3、5、7の立場は? ついでに言えば、コアダンプの意味も調べておきな。
68 : あ へいへい 5 PRINT”2 3 5 7”; でどうぞ。モジューロ演算… いろいろdクスコでありんす。
69 : 除余関数modですね ありますよ if文より速いですか。
70 : おっと <>より速いですか。ちょっと説明が困難。やってみます。 今一千万まで素数全部吐き出してるとこなんで 今九百万台。
71 : 1000000までで試検してみました MODで10’38” INT<>で12’04” ありがとうございます。
72 : 1000円でこうたK6/450MHzマシンに素数吐かせて3日目 3000万台で200万個くらい吐かせてまだ止まらない オーバーフローわ目指します
73 : 延延と求めるならエラトステネスの篩にするとか求めた結果を序数の候補に使うとか工夫すればいいのに。
74 : そうすると延々と求められないんですよ 配列変数には限界があるのです 桁数にはありません
75 : ああ ハイブリッドにするのはアリかな?ありがとうございます。
76 : どういたしまして
77 : 十進BASICは無料ですか?
78 : >>77 >>62
79 : >>72 > 1000円でこうたK6/450MHzマシンに素数吐かせて3日目 > 3000万台で200万個くらい吐かせてまだ止まらない > オーバーフローわ目指します ¥1000×3000万台=300億かぁ。 すげぇ道楽だな。
80 : 日本語もできない奴は大変だな。
81 : 1ペンス2ペンス5ペンス10ペンス20ペンス50ペンス1ポンド2ポンド硬貨 これら組み合わせで2ポンドをつくる組み合わせの総数を割り出せ
82 : 100 LET ANS=8 DIM N(7) 110 FOR I=1 TO 7 READ N(I) NEXT I 120 FOR A=1 TO 6 FOR B=A+1 TO 7 FOR C=1 TO INT((200-N(B))/N(A)) FOR D=1 TO INT((200-N(A))/N(B)) 130 LET SUM=N(A)*C+N(B)*D 140 GOSUB 1221 150 NEXT D NEXT C NEXT B NEXT A 155 PRINT"5",ANS
83 : 160 FOR A=1 TO 5 FOR B=A+1 TO 6 FOR C=B+1 TO 7 FOR D=1 TO INT((200-N(B)-N(C))/N(A)) FOR E=1 TO INT((200-N(A)-N(C))/N(B)) FOR F=1 TO INT((200-N(A)-N(B))/N(C)) 170 LET SUM=N(A)*D+N(B)*E+N(C)*F 180 GOSUB 1221 190 NEXT F NEXT E NEXT D NEXT C NEXT B NEXT A 195 PRINT "4",ANS
84 : 200 FOR A=1 TO 4 FOR B=A+1 TO 5 FOR C=B+1 TO 6 FOR D=C+1 TO 7 210 FOR E=1 TO INT((200-N(B)-N(C)-N(D))/N(A)) FOR F=1 TO INT((200-N(A)-N(C)-N(D))/N(B)) FOR G=1 TO INT((200-N(A)-N(B)-N(D))/N(C)) FOR H=1 TO INT((200-N(A)-N(B)-N(C))/N(D)) 220 LET SUM=N(A)*E+N(B)*F+N(C)*G+N(D)*H 230 GOSUB 1221
85 : 240 NEXT H NEXT G NEXT F NEXT E NEXT D NEXT C NEXT B NEXT A 245 PRINT "3",ANS
86 : 250 FOR A=1 TO 3 FOR B=A+1 TO 4 FOR C=B+1 TO 5 FOR D=C+1 TO 6 FOR E=D+1 TO 7 260 FOR F=1 TO INT((200-N(B)-N(C)-N(D)-N(E))/N(A)) FOR G=1 TO INT((200-N(A)-N(C)-N(D)-N(E))/N(B)) FOR H=1 TO INT((200-N(A)-N(B)-N(D)-N(E))/N(C)) FOR I=1 TO INT((200-N(A)-N(B)-N(C)-N(E))/N(D)) FOR J=1 TO INT((200-N(A)-N(B)-N(C)-N(D))/N(E)) 270 LET SUM=N(A)*F+N(B)*G+N(C)*H+N(D)*I+N(E)*J 280 GOSUB 1221
87 : 290 NEXT J NEXT I NEXT H NEXT G NEXT F NEXT E NEXT D NEXT C NEXT B NEXT A 295 PRINT "2",ANS
88 : 300 FOR A=1 TO 2 FOR B=A+1 TO 3 FOR C=B+1 TO 4 FOR D=C+1 TO 5 FOR E=D+1 TO 6 FOR F=E+1 TO 7
89 : BASICでインタープリタでこんな多重入れ子FOR文なんか糞遅いだろ C言語だから実用的な速度が出るのであって
90 : 遅レスながら、何じゃこのコードは?マジパネエ!!
91 : あっどもども それ結局途中で放り出しちゃったな 今ですね、ファイアーエムブレムトラキア776の書の効果の最適化アプリを十進で組んでます キモのところは終わりました。あとはソーティングと細かい体裁・ここが凝るとやっかいだったりするんですよね。 POS命令にめちゃくちゃ助けられました。これなかったらまだ迷宮内だったと思います。完成したら貼ります 尚、紋章の謎の英雄戦争篇の星のかけらもすっかり同様のアルゴリズムなのであとで手を入れてみますね。
92 : 書は12枚すべてありますか? (Y/N)Y 2510 HP・力・魔法・技・速さ・幸運・守備・体格・移動 のパラメーターの重要度をインプットしてください。 順番:H力魔技速幸守体移 入力例:110220110 2:重要視 1:普通 0:考慮外(もう充分 ※体格・移動は 1:考慮 0:考慮外 でおながいしまつ。 ? 212100100 1 : 250 べオネヘダト HP: 45 % 力: 30 % 魔: 35 % 技: 30 % 速:-10 % 幸: 5 % 守: 30 % 2 : 245 べネファヘダト HP: 45 % 力: 35 % 魔: 40 % 技: 10 % 速: 0 % 幸: 5 % 守: 30 % 3 : 245 べオファヘダト HP: 35 % 力: 25 % 魔: 40 % 技: 50 % 速: 0 % 幸: 5 % 守: 20 % 4 : 245 べバネヘダト HP: 50 % 力: 35 % 魔: 35 % 技: 5 % 速:-5 % 幸: 10 % 守: 35 % 5 : 245 べバオヘダト HP: 40 % 力: 25 % 魔: 35 % 技: 45 % 速:-5 % 幸: 10 % 守: 25 % 6 : 240 べオネファヘト HP: 45 % 力: 30 % 魔: 40 % 技: 40 % 速: 10 % 幸: 5 % 守: 0 % 7 : 240 べオネファヘダ HP: 40 % 力: 30 % 魔: 35 % 技: 30 % 速: 0 % 幸: 0 % 守: 30 % 8 : 240 べバファヘダト HP: 40 % 力: 30 % 魔: 40 % 技: 25 % 速: 5 % 幸: 10 % 守: 25 % 9 : 240 べバオネヘト HP: 50 % 力: 30 % 魔: 35 % 技: 35 % 速: 5 % 幸: 10 % 守: 5 % 10 : 240 べバオネヘダ HP: 45 % 力: 30 % 魔: 30 % 技: 25 % 速:-5 % 幸: 5 % 守: 35 % #こんな感じの実行画面です はちわりがたでけますた。
93 : ほぼ完成しますた Ver.0.8801でごんす。0.80K2Eなだんかいもへてまつ
94 : http://www.mikoto.com/kooge/img-box/img20110304133139.txt Ver.0.9801
95 : 保守
96 : アハ〜♪”
97 : ほしゅ
98 : >>82 っ 母関数
99 : input prompt で実行時に表示されるメッセージ内に 変数の値を表示させるにはどうしたら良いですか。 例えば LET a=3 INPUT PROMPT"aは です。bを入力せよ":b において空欄に3と表示させたいです。
100read 1read 1read 100read
TOP カテ一覧 スレ一覧 2ch元 削除依頼 ▲
Google App Engine for java (230)
ふらっとVisual C#,C♯,C#(初心者用) Part92 (1001)
【糞.NET】裏切り者には死を【アンチゲイツ】 (323)
【O3D】HTML5用 3D API WebGL 【Canvas:3D】 (374)
Silverlight登場で.NET使い大勝利!!! Part2 (473)
愛国Ruby (344)
--log9.info------------------
ゲーム作成サークル (736)
ドリームキャストのエミュを作るスレ (129)
ゲーム製作メンバー募集スレ 13人目 (289)
■ゲーム会社の給料教えろ!■ (940)
バイオハザードすぺしゃる〜ぼくタイラントくん〜 (133)
ガンダム版大戦略 (367)
SDLスレ ver.2.0 (657)
難易度調整スレッド (225)
FPSの作り方おーしえて (104)
0からRPGを作る (158)
ウルファールのウディタ講座 (348)
★★★ゲーム製作板を、盛り上げる企画スレ★★★ (143)
2ch版いただきストリート作りませんか? (872)
不甲斐ないSEに変わってFFを作るスレ (284)
俺がRPGを作るスレ (281)
【Ruby/SDL他】Rubyでゲーム制作・総合スレッド (648)
--log55.com------------------
TERA晒し雑談スレ Part26
リカ・ジェニー関連愚痴スレ9
【公式画像使用】庵斗ヲチスレ【最終幻想/竜探索】Part.15
【痛い】大友をヲチしながら語るスレ5【迷惑】
【キメます】ZERO-叛逆のカリスマ-part32【20万DL】
tch 【痛い】コストコ関連ヲチスレ【晒し】 Part.12
【コソダテフル】ちゅいママヲチ44【一億総発信時代なめたらあか〜ん】
【すすむ・619_ak@・nori@】mineo マイネ王 Part29【仲良し学級用】