BASICの宿題はお前にまかせた

1 名前：BASIC mailto:fh [2006/01/09(月) 15:35:00 ] N人分のデータ（氏名、体重、身長、年齢）がＤＡＴＡ文で入力されているプログラムが ある。これを用いて次のプログラムをＢＡＳＩＣで作成しなさい 身長が１６０ＣＭ以上で１７０ｃｍ未満の人の名前を表示する 331 名前：デフォルトの名無しさん mailto:sage [2008/12/24(水) 21:18:11 ] >>330 すいません。質問の意味すらわかりません。 BASIC面白そうだって思って始めようとしたのですがネット上に入門がほとんどない。 C言語の入門はネット上にいくらでもあるのに。 高校でやるならネット上に入門があってもいいような気もするけど。 で、何も知らないのにこのスレを見てロードしてみたと。 >>329 N88互換BASIC　for Windowsでやっとこいった。 99BASICはコピペができなかったんで未確認。 たった13行であのグラフィックはすごいですね。 入門書探したけどJustBASICのチュートリアルぐらいしか見つからない。 英語だけど我慢してやってみる･･･ 332 名前：デフォルトの名無しさん [2009/01/15(木) 06:14:14 ] サイコロを二つを１００００回振って出た 合計の数（２〜１２）を配列に記憶して、 最後に２〜１２が何回出たか合計を表示するプログラム basicで作ってください 提出今日までです… サイコロ二つはa=rnd(6)+1:b=rnd(6)+1で作れって書いてあります さっぱりわからないです…お願いします。。 333 名前：デフォルトの名無しさん mailto:sage [2009/01/16(金) 08:21:34 ] >>332 10 DIM AR(10000) 20 FOR N=1 TO 10000 30 30 A=RND(6)+1:B=RND(6)+1 40 AR(N)=A+B 50 IF AR(N) >= 2 AND AR(N) <=12 THEN J=J+1 60 NEXT 70 PRINT J 80 END 334 名前：デフォルトの名無しさん [2009/01/21(水) 15:37:21 ] ３×３行列ＡＢの成分を入力し、それらの和の行列Ｃ、差の行列Ｄ、積の行列Ｅ を計算するプログラムを作成せよ。 ※ＤＩＭ文、ＦＯＲ〜ＮＥＸＴ文を使うこと。 ※行列成分の入力にはＦＯＲ〜ＮＥＸＴ、とＩＮＰＵＴ文（ＲＥＡＤ文）を組み 合わせること。 全くわからん・・・誰か・・・ 335 名前：デフォルトの名無しさん [2009/01/21(水) 16:41:27 ] >>334 こういうことかな 1 rem 行列変数準備 2 dim a(3,3) 3 dim b(3,3) 4 dim c(3,3) 5 dim d(3,3) 6 dim e(3,3) 7 rem 行列A読み込み 8 for i = 1 to 3 9 for j = 1 to 3 10 read a(i,j) 11 next j 12 next i 13 rem 行列B読み込み 14 for i = 1 to 3 15 for j = 1 to 3 16 read b(i,j) 17 next j 18 next i 長いので続く 336 名前：デフォルトの名無しさん [2009/01/21(水) 16:42:21 ] >>335　続き 19 rem 行列計算 20 for i = 1 to 3 21 for j = 1 to 3 22 c(i,j) = a(i,j) + b(i,j) 23 d(i,j) = a(i,j) - b(i,j) 24 e(i,j) = a(i,j) * b(i,j) 25 next j 26 next i 50 rem 行列A-data 51 data 1,2,3 52 data 4,5,6 53 data 7,8,9 60 rem 行列B-data 61 data 1,2,3 62 data 4,5,6 63 data 7,8,9 337 名前：デフォルトの名無しさん [2009/01/21(水) 16:53:09 ] >>336 続き input文を使うなら 10 read a(i,j) を 10 input "行列A(";i;",";j;")=",a(i,j) 16 read b(i,j) を 16 input "行列B(";i;",";j;")=",b(i,j) にして 50 以下のdataを削除 338 名前：デフォルトの名無しさん [2009/01/21(水) 17:27:01 ] >>336 積の計算間違えた 19〜26をこちらに修正 19 rem 行列計算 20 for i = 1 to 3 21 for j = 1 to 3 22 c(i,j) = a(i,j) + b(i,j) 23 d(i,j) = a(i,j) - b(i,j) 24 for k = 1 to 3 25 e(i,j) = e(i,j) + a(i,k) * b(k,j) 26 next k 27 next j 28 next i 339 名前：デフォルトの名無しさん mailto:sage [2009/01/21(水) 17:36:00 ] 自然数k,p,qについて k=mp+nq(m,nは「0以上の整数」)を満たす(m,n)の組の数をv(k)とするとき p=3, q=7, kが1から100までのときの結果vの一覧を出力したいです どのように書いたらいいですか？ 340 名前：デフォルトの名無しさん mailto:sage [2009/01/21(水) 17:59:15 ] >>334-338 ありがとうございます神様 341 名前：デフォルトの名無しさん [2009/01/21(水) 18:27:01 ] >>339 v(k)に複数のn,mがある可能性があるので 条件に一致した時に常時表示していくって感じで こんなのは？ 1 p = 3 2 q = 3 3 k_hit = 100 4 m_max = 100 5 n_max = 100 6 for m = 0 to m_max 7 for n = 0 to n_max 8 k = m * p + n * q 9 if k <= k_hit then print "k=";k;" m=";m;" n=";n 10 next n 11 next m 342 名前：デフォルトの名無しさん [2009/01/21(水) 18:35:13 ] >>341 微修正 2 q=7 9 if k=> 1 and k <= k_hit then print "k=";k;" m=";m;" n=";n 343 名前：デフォルトの名無しさん mailto:sage [2009/01/21(水) 19:16:42 ] 勝手に仕様を変更しないでくださいｗ 344 名前：デフォルトの名無しさん [2009/01/21(水) 19:29:26 ] 表示されてるのがv(k)の一覧になってるんじゃないの？ 1 p = 3 2 q = 7 3 k_hit = 100 4 m_max = 100 5 n_max = 100 6 dim v$(100) 7 for m = 0 to m_max 8 for n = 0 to n_max 9 k = m * p + n * q 10 if k => 1 and k <= k_hit then v$(k) = "(";m;",";n;") " 11 next n 12 next m 13 for k = 1 to k_hit 14 print "k=";k;" ";v$(k) 15 next 345 名前：デフォルトの名無しさん [2009/01/21(水) 19:35:34 ] >>344 6 dim v(100) 10 if k => 1 and k <= k_hit then v(k) = v(k) + 1 14 print "k=";k;" ";v(k) 組み合わせの個数だけが知りたいのなら上記3ヶ所をこのように変更するだけ 346 名前：デフォルトの名無しさん mailto:sage [2009/01/22(木) 11:38:14 ] v$(k)の有効な要素数ってsize(v$(k))みたいな方法で取れないのかな 347 名前：デフォルトの名無しさん mailto:sage [2009/01/22(木) 13:38:12 ] >>344 上書きして情報減ってるような 348 名前：デフォルトの名無しさん [2009/01/22(木) 14:28:32 ] >>344 >>347の言う通り 直すなら 10 if k => 1 and k <= k_hit then v$(k) = v$(k) + "(";m;",";n;") " とでもすべきだな 349 名前：デフォルトの名無しさん [2009/01/22(木) 20:22:42 ] お願いします。 標準体重と実際の体重に対するコメントを表示するプログラムを作成する。 入力情報：名前name、身長(cm)h、体重(kg)w 出力情報：標準体重sw、コメント プログラムの終了：名前が"end"のとき終了 標準体重：身長(m)^2*22 （コメント） −20%未満：やせすぎ −20%以上−10%未満：やややせている −10%以上10%未満：正常 10%以上20%未満：やや太っている 20%以上：太りすぎ 350 名前：デフォルトの名無しさん [2009/01/23(金) 14:58:25 ] 10 REM 標準体重計算 20 INPUT "名前=";NAME$ 30 INPUT "身長(cm)=";H 40 INPUT "体重(kg)=";W 50 DEF_W = (H/100)^2 * 22 60 PRINT "標準体重=";DEF_W 70 CH_W = ((W / DEF_W) - 1) * 100 80 IF CH_W < -20 THEN PRINT "やせすぎ" 90 IF CH_W => -20 AND CH_W < -10 THEN PRINT "やややせている" 100 IF CH_W => -10 AND CH_W < 10 THEN PRINT "正常" 110 IF CH_W => 10 AND CH_W < 20 THEN PRINT "やや太っている" 120 IF CH_W => 20 THEN PRINT "太りすぎ" 130 IF NAME$ <> "end" THEN 20 もしかしたら 出題者の意図によっては 70 CH_W = W - DEF_W なのかもしれないが、コメントの判断基準が％(割合)なので このようにしてある 何かと疑問の残る問題文ではあったがたぶんこんな感じだと思う ↓↓↓疑問点↓↓↓ ・コメントを出力するための値(BMI)が指定されていない 　コメント出力には BMI＝体重(kg)／身長(m)^2 がよく用いられる BMIについての参考資料 ja.wikipedia.org/wiki/%E6%A8%99%E6%BA%96%E4%BD%93%E9%87%8D www.e-na.co.jp/passage/chek/ www11.plala.or.jp/jitensya-tuukin/diet/diet13_1.htm 351 名前：デフォルトの名無しさん [2009/01/25(日) 14:59:37 ] 349です。 >>350 ありがとうございました。 352 名前：デフォルトの名無しさん [2009/01/31(土) 14:13:27 ] 　　　A　B　C 合計　平均 1　　80 90 85 2　　75 87 54 3　　95 78 45 4　　58 98 85 合計 平均 この、縦横の合計平均を十進BASICで誰かお願いできないでしょうか？ 月曜にテストあるんで・・・ 353 名前：デフォルトの名無しさん [2009/02/12(木) 18:45:39 ] f(x)=x^4-2.03790x^3-15.4245x^2+15.6696x+35.4936=0 の最大解をニュートン法で求めよ。　という課題が出て困ってます。 誰か教えてください。　　無理ならニュートン法での4次方程式の解き方 だけでもいいので教えてください。 354 名前：デフォルトの名無しさん mailto:sage [2009/02/13(金) 20:44:16 ] >>353 十進数BASIC用 100 LET X=5 110 LET E=1E-5 120 DO 130 LET X0=X 140 LET FX0=X^4-2.03790*X^3-15.4245*X^2+15.6696*X+35.4936 150 LET FDX=4*X^3+3*( -2.03790) *X^2+2*( -15.4245) *X+15.6696 160 LET X=X0-FX0/FDX 170 LET FX=X^4-2.03790*X^3-15.4245*X^2+15.6696*X+35.4936 180 PRINT X ;FX 190 LET DFX = ABS(FX-FX0) 200 LOOP WHILE DFX > E 210 END 355 名前：デフォルトの名無しさん [2009/02/15(日) 12:19:52 ] >>354　 ありがとうございました　しかし110行で「Eをここに書けません」と出たので110行目を消したできたんですけど 110行目を消しても問題ないですかね？ 356 名前：デフォルトの名無しさん [2009/02/15(日) 12:23:39 ] >>354 あと一応結果は4.・・・というのが左に7個と右にいろいろ出ました 357 名前：デフォルトの名無しさん mailto:sage [2009/02/15(日) 19:01:31 ] それは本気で言ってるのか？ 計算ループの終了条件に使われてるんだから、消して良いわけないだろ。 358 名前：デフォルトの名無しさん [2009/02/15(日) 20:03:39 ] でも消さないと実行できなかったんですけど・・・ ちなみに十進ベーシックです 359 名前：デフォルトの名無しさん [2009/02/15(日) 20:08:46 ] すみません今、実行できました。　 LET E=1 E-5 ^ここにスペースを入れてしまったので実行できなかったんですね ありがとうございました 360 名前：デフォルトの名無しさん [2009/02/15(日) 20:21:10 ] 次の連立一次方程式の解をGaussの消去法で求めよ。(有効数字８桁) 3421a+1234b+736c+124d=365 1202a+3575b+874c+210d=256 422a+543b+3428c+428d=444 116a+256b+488c+3627d=868 というのもあるのですが、よかったら教えてくれませんか？ 361 名前：デフォルトの名無しさん [2009/02/15(日) 20:23:04 ] すみません ３５９の「ここ」というのはE=1とE-5の間のことです 362 名前：デフォルトの名無しさん mailto:sage [2009/02/16(月) 15:08:53 ] いまだに BASIC の宿題ってポケコン？ 363 名前：デフォルトの名無しさん mailto:sage [2009/02/17(火) 01:00:09 ] >>360 長いのでC宿題スレのロダに上げといた。結果が科学的表記法で表示されるのは 有効数字8桁で表示するため、7.5102566E-02＝7.5102566*10^-2=0.075102566 ttp://kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/8891.txt 364 名前：デフォルトの名無しさん [2009/02/17(火) 18:45:53 ] >>362 高校の選択学習とかいう留年にかかわる面倒な課題ですわ 365 名前：デフォルトの名無しさん [2009/02/17(火) 18:47:24 ] >>363 ありがとうございます 一通り終わってまたわからなかったら聞きに来ますね 366 名前：デフォルトの名無しさん [2009/02/17(火) 21:37:40 ] >>362 今時ポケコンは無いだろ、N88互換BASICとか十進数BASIC辺りじゃね。 367 名前：デフォルトの名無しさん [2009/02/20(金) 22:16:10 ] ﾌｧｲﾙに文字列で　CHAR$(00) を混ぜて出力しようとしたけど無理だった。 BASICじゃー　&h00　をﾌｧｲﾙに出力するって出来なかったのかぁ。 368 名前：デフォルトの名無しさん mailto:sage [2009/02/21(土) 18:26:55 ] ﾌｧｲﾙに文字列で　CHA$(00) を混ぜて出力できた。 369 名前：デフォルトの名無しさん mailto:sage [2009/02/23(月) 16:34:13 ] CHR$ のことを言ってるんだろうか…。 370 名前：デフォルトの名無しさん [2009/04/28(火) 07:15:12 ] >>360 答え出ますた a= 0.051810637 b= -0.014019252 c= 0.067333510 d= 0.223948590 です。 371 名前：デフォルトの名無しさん [2009/07/19(日) 01:02:31 ] 10 input "n,b";n,b 20 x=1 30 f=x^n-b 40 d1=n*x^(n-1) 50 x1=x-f/d1 60 e=1*10^(-6) 70 if abs(f)<e then goto 100 80 x=x1 85 print x 90 goto 30 100 end ニュートン法でｂのｎ乗根を求めるプログラム。 これを、ｂを与えたときx/(x^2+1)=ｂとなるxを求めるプログラムに書き換えなさい。 また、そのように改変した理由も述べよ。 この問題、わかる人いますか？;; 372 名前：デフォルトの名無しさん mailto:sage [2009/07/19(日) 10:44:39 ] 低脳 373 名前：デフォルトの名無しさん [2009/07/19(日) 13:11:42 ] f(x) = x^n - b を f(x) = x/(x^2 + 1) - b に d1(x) = n*x^(n - 1) を d1(x) = 1/(x^2 + 1) - 2*x^2*/((x^2 + 1)^2)に 変えたらいいんじゃね？ でも b > 0.5 や b < -0.5 では 解けないかもな 374 名前：デフォルトの名無しさん mailto:sage [2009/07/26(日) 20:26:02 ] すみません 問3． M個のデータのうち、その2番目の小さいデータと同じデータの個数を求めるアルゴリズムの流れ図を示せ。 という問題なんですが、だれか簡単に説明してくれませんか(´・ω・｀) 375 名前：デフォルトの名無しさん [2009/07/27(月) 01:24:57 ] >>374 プログラムでいうと ↓ な具合です (defun countm (l) (let ((n (car (remove (car (sort l #'<)) l)))) (length (remove-if #'(lambda (x) (/= x n)) l)))) 仮に >(defvar d '(3 9 8 0 8 0 6 6 8 2 6 6 1 4 0 9 1 5 1 8 9 7 1 8 8 1 5 5 8 5)) >(countm d) とすると 5 > となります。 376 名前：デフォルトの名無しさん mailto:sage [2009/07/27(月) 01:46:25 ] ↑スレタイ読めバカ 377 名前：デフォルトの名無しさん mailto:sage [2009/07/27(月) 06:55:43 ] BASIC最近さわってねーから 「M個のデータのうち、その2番目の小さいデータと同じデータの個数を求める」関数って無かったっけ？ それがあれば f=「 M個のデータのうち、その2番目の小さいデータと同じデータの個数を求める」 っておいて M個のデータ→f→2番目の小さいデータと同じデータの個数 になるんだけど 378 名前：デフォルトの名無しさん mailto:sage [2009/07/27(月) 09:31:29 ] �@M個のデータの全部を検索して一番小さいデータの値を求める。 �AM個のデータの全部を検索して二番目に小さいデータの値を求める。 �BM個のデータの全部を検索して二番目に小さいデータの個数を求める。 もっと効率の良いアルゴリズムがあるのかもしれん 379 名前：デフォルトの名無しさん [2009/07/30(木) 12:41:36 ] basicって今時文法を覚えてる人いないよね 380 名前：デフォルトの名無しさん mailto:sage [2009/07/30(木) 13:09:51 ] BASICの文法っても、10個ほどのコマンドを覚えるだけだから.... 関数なんかはそのつど取説を参照するし 381 名前：デフォルトの名無しさん mailto:sage [2009/07/30(木) 13:13:53 ] max1=a(1) : max2 = a(1) : temp for i=2 to m if a(i) > max1 then temp = max1 : max1 = a(i) : max2 = temp if a(i) > max2 and a(i) < max1 then max2 = a(i) next i 382 名前：デフォルトの名無しさん [2009/08/02(日) 02:01:54 ] 10 dim a(10,11) 20 m=3 30 n=m+1 40 for i=1 to m 50 for j=1 to n 60 read d 70 a(i,j)=d 80 next j 90 next i 100 for k=1 to m 110 p=a(k,k) 120 for j=k to n 130 a(k,j)=a(k,j)/p 続く… 383 名前：デフォルトの名無しさん [2009/08/02(日) 02:02:55 ] >>382続き 140 next j 150 for i=1 to m 160 if (i-k)=0 then goto 210 170 a1=a(i,k) 180 for j=k to n 190 a(i,j)=a(i,j)-a1*a(k,j) 200 next j 210 next i 220 next k 230 for i=1 to m 240 print "x(";i;")=",a(i,n) 250 next i 260 end 270 data 2,1,-3,1,4,1,-2,4,3,2,-1,6 問：4元の連立方程式を実際に解いてみよ。 またこのプログラムで計算できない連立方程式の例を与え，その理由を述べよ。 わかる方、お願いします！！ 384 名前：デフォルトの名無しさん mailto:sage [2009/08/02(日) 13:36:42 ] とりあえず解けるかどうかは実行してみればいいとして 不能解か多重解か作ればいいの？ x+y+z+w=1 2x+2y+2z+2w=2 3x+3y+3z+3w=3 4x+4y+4z+4w=4 とか？ 385 名前：デフォルトの名無しさん [2009/08/03(月) 00:59:59 ] >>384 >>382-383です 回答ありがとうございます！ 不能解や多重解を適当に作ればいいんですね！ あと、４元の連立方程式を解いてみよということは、270のdataに何か値を適当に入れるんですか？ 386 名前：デフォルトの名無しさん mailto:sage [2009/08/04(火) 15:36:56 ] >>374 亀レスだが、処理方法案。 数値を一つずつ取り出し、その時点までで判っている、小さい方の3つの数値セットを持つ。 入力が '(3 9 8 0 8 0 6 6 8 2 6 6 1 4 0 9 1 5 1 8 9 7 1 8 8 1 5 5 8 5)なら、 3 <--- 3 3 9 <--- 9 3 8 9 <--- 8 0 3 8 <--- 0 直後の8,0は数値セットを入替不要 0 3 6 <--- 6 以下同様 0 2 3 <--- 2 0 1 2 <--- 1 上記より小さい方から2番目の数値は「1」と判る。 上記操作中に、小さい方3つの出現回数を都度数えておけば良い。 メリットは自分で考えてくれ。 387 名前：デフォルトの名無しさん mailto:sage [2009/08/04(火) 21:08:37 ] >>385 最近basic触ってないからうろ覚えだけど read文はdata文を順番に読んでいくだけのハズだったし，readした値をa(i,j)に直接代入している(60-70行)し， 40-90行を見るとa(行数,列数)になっているので， ... 20 m=4 ... 270 data 1,1,1,1, 1 280 data 2,2,2,2, 2 290 data 3,3,3,3, 3 300 data 4,4,4,4, 4 とか書けばいいのでは 388 名前：デフォルトの名無しさん [2009/08/25(火) 10:31:14 ] Visual Basic の課題で困っております。 誰かお答えください。本当に助けてください。 １．Visual Basicの関数で数値を文字に直すCStr()とStr()の違いについて ２．戻り値の違いが確認できる方法を考え、戻り値の違いについて実際に確認し、 　　その確認方法と違いを具体的に述べよ。 注意：実際にやったことと、確認した違いを簡潔かつ具体的に書くこと。 ３．下記の計算結果などから、Visual Basicで計算できる数値の桁数について考察をまとめ、 　　何故そのような制限があるかについて理由を答えよ 　　１）　48 x 100 - 81 　　２）　12 ÷ 9.3 x 247 　　３）　0.2 - 12 ÷ 69 　　４）　-12 ÷ 100 + 100 389 名前：デフォルトの名無しさん mailto:sage [2009/08/25(火) 11:11:37 ] str は 古き懐かし BASIC (VisualじゃないBASIC) のころからあった関数だよな。 過去との互換性のために残してある、ってのが本音なんじゃないかな。 Str と Cstr の違いは、ヒント：先頭１文字目に違いがある。あとはマニュアルを読めカス！ 390 名前：デフォルトの名無しさん mailto:sage [2009/08/25(火) 11:16:41 ] マルチポスト報告スレ pc12.2ch.net/test/read.cgi/tech/1251165265/ ttp://pc12.2ch.net/test/read.cgi/tech/1225268851/688 ttp://pc12.2ch.net/test/read.cgi/tech/1158410544/183 ttp://pc12.2ch.net/test/read.cgi/tech/1245309571/793 ttp://pc12.2ch.net/test/read.cgi/tech/1136788500/388 ttp://pc12.2ch.net/test/read.cgi/tech/1200175247/601 ttp://pc12.2ch.net/test/read.cgi/tech/1249687283/408 ttp://pc12.2ch.net/test/read.cgi/tech/1239996587/711 ttp://pc12.2ch.net/test/read.cgi/tech/1248487404/279 ttp://pc12.2ch.net/test/read.cgi/tech/1193667819/60 ttp://pc12.2ch.net/test/read.cgi/tech/1164783092/937 ttp://pc12.2ch.net/test/read.cgi/tech/1206835319/963 ttp://pc12.2ch.net/test/read.cgi/tech/1247937958/547 ttp://pc12.2ch.net/test/read.cgi/tech/1247636661/861 ttp://pc12.2ch.net/test/read.cgi/tech/1249140049/420 391 名前：デフォルトの名無しさん mailto:sage [2009/08/25(火) 11:19:29 ] DEF FNCSTR$(A!) = MID$(STR$(A!), 2+(A!<0)) こんな感じだっけ・・・うろ覚え 392 名前：デフォルトの名無しさん mailto:sage [2009/08/25(火) 12:29:06 ] >>388 マルチすんな 393 名前：デフォルトの名無しさん [2009/08/26(水) 21:19:54 ] 十進BASICでのコンビネーションの計算をお願いします!! 394 名前：デフォルトの名無しさん [2009/09/03(木) 10:47:52 ] BASIC繁栄時代があったらしい 395 名前：デフォルトの名無しさん [2009/09/04(金) 18:54:18 ] 変数名.N$ って、何を指したっけ？ 396 名前：デフォルトの名無しさん mailto:sage [2009/09/04(金) 19:42:33 ] $は文字変数を意味する。 397 名前：デフォルトの名無しさん [2009/09/05(土) 19:40:10 ] >>393 つ COMB(n,r) 398 名前：デフォルトの名無しさん [2009/09/23(水) 12:28:54 ] なあ、セーブ機能付きレジ打ちのプログラム打ちたいんだが お前らならどんなプログラム打つ？ 399 名前：デフォルトの名無しさん mailto:sage [2009/09/23(水) 12:42:45 ] お前はプログラミングに向いてない 400 名前：デフォルトの名無しさん [2009/09/23(水) 16:38:53 ] できたらやってあげたいがな… 401 名前：デフォルトの名無しさん mailto:sage [2009/09/26(土) 18:41:31 ] >>398 テストの前日になって質問ですかｗ とりあえず学校こなくていいよ 402 名前：デフォルトの名無しさん mailto:sage [2009/09/29(火) 17:37:29 ] 覆面算 ルール1 文字はそれぞれの桁の文字を表す ルール2 異なる文字は異なる数字を表し、同じ文字は同じ数字を表す ルール3 左端の数字は0ではない ルール4 （パズルとしては）答えが一つとなる 下のプログラムはルール２を完全に考慮していない。 個々の文字は互いに異なるという条件があるからである。 この条件を取り入れるにはこのプログラムをどのように 直したらよいか。該当箇所の変更前と変更後を答えよ。 Option Explicit Sub ex3() Dim a As Integer, b As Integer, c As Integer, d As Integer Dim x As Integer, y As Integer, z As Integer For a = 1 To 9 For b = 0 To 9 For c = 0 To 9 For d = 1 To 9 x = a * 100 + b * 10 + b y = d * 100 + d * 10 + c z = a * 1000 + a * 100 + a * 10 + d If x + y = z Then MsgBox "a=" & a & ", b = " & b & ", c = " & c & ", d = " & d End If Next d Next c Next b Next a End Sub 403 名前：デフォルトの名無しさん mailto:sage [2009/10/03(土) 16:39:57 ] �@subを用いて２つの分母の異なった（2/3+5/7など）分数の和を計算するプログラムを作成せよ。 実行結果は約分すること �A Functionを用いてヘロンの公式を実装せよ。 三辺の長さから３角形の面積を求める ただし、３編の長さより三角形が成立しない場合は、除外する仕様とせよ 404 名前：デフォルトの名無しさん [2009/10/03(土) 17:34:27 ] age 405 名前：デフォルトの名無しさん mailto:sage [2009/10/03(土) 17:56:38 ] subとかFunctionなんてBASICにあったっけ VBならしね 406 名前：デフォルトの名無しさん mailto:sage [2009/10/03(土) 18:21:41 ] >>403 BASICは方言が多いから環境を明示すべきだぜ。�Aはこんな感じで（十進数BASIC用） 100 !問題2 ヘロンの公式 110 FUNCTION HERON(A,B,C) 120 LET S=(A+B+C)/2 130 LET S=S*(S-A)*(S-B)*(S-C) 140 IF S<0 THEN !三角形で無いなら-1を返す 150 LET HERON=-1 160 ELSE !三角形なら面積を返す 170 LET HERON=SQR(S) 180 END IF 190 END FUNCTION 200 PRINT "３辺の長さ(例 3,4,5):" 210 INPUT A,B,C 220 LET S=HERON(A,B,C) 230 IF S >=0 THEN 240 PRINT "面積："; S 250 ELSE 260 PRINT "三角形ではない" 270 END IF 280 END 407 名前：デフォルトの名無しさん mailto:sage [2009/10/03(土) 20:17:34 ] 面積０なら三角形じゃないだろうという本質ではないとこに突っ込んでみる 408 名前：デフォルトの名無しさん [2009/10/03(土) 22:48:57 ] そうっすね 409 名前：デフォルトの名無しさん mailto:sage [2009/10/04(日) 00:19:56 ] 本質的なところを突っ込んでください。 >>406だと変な値を入れても除外せずに面積計算しちゃう事があるのよね。 410 名前：デフォルトの名無しさん [2009/10/06(火) 11:17:08 ] . 1. HTML　　　　で検索した結果　1〜10件目 / 約5,040,000,000件 . 2. PHP 　 　　　で検索した結果　1〜10件目 / 約2,970,000,000件 . 3. Java......　　　で検索した結果　1〜10件目 / 約　835,000,000件 . 4. Forth.　　　　で検索した結果　1〜10件目 / 約　323,000,000件 . 5. Ruby..　　　　で検索した結果　1〜10件目 / 約　275,000,000件 . 6. perl.....　　　　で検索した結果　1〜10件目 / 約　245,000,000件 . 7. Python...　 　で検索した結果　1〜10件目 / 約　204,000,000件 . 8. pascal...　　　で検索した結果　1〜10件目 / 約　170,000,000件 . 9. Delphi　　　　で検索した結果　1〜10件目 / 約　127,000,000件 10. VisualBasic...で検索した結果　1〜10件目 / 約　121,000,000件 11. lisp...　　 　 　で検索した結果　1〜10件目 / 約.　 26,700,000件 12. fortran 　 　 で検索した結果　1〜10件目 / 約.　 21,300,000件 13. COBOL　 　 で検索した結果　1〜10件目 / 約.　 18,500,000件 14. HSP 　 　　　で検索した結果　1〜10件目 / 約.　 12,300,000件 15. FreeBasic..　で検索した結果　1〜10件目 / 約　　 6,320,000件 16. Tcl/Tk. 　 　 で検索した結果　1〜10件目 / 約　　 4,940,000件 17. QBasic 　 　 で検索した結果　1〜10件目 / 約　　 4,190,000件 18. VisualC....　　で検索した結果　1〜10件目 / 約　　 1,360,000件 19. DarkBASIC. で検索した結果　1〜10件目 / 約　　 1,320,000件 ← ここ 20. BasicStudio で検索した結果　1〜10件目 / 約　　　 304,000件 21. N88basic. 　 で検索した結果　1〜10件目 / 約　　　 215,000件 22. f-basic 　 　 で検索した結果　1〜10件目 / 約　　　 109,000件 23. ActiveBasic で検索した結果　1〜10件目 / 約. 　 　　89,800件 24. 99BASIC....　で検索した結果　1〜10件目 / 約. 　 　　11,500件 3Dprogramming で検索した結果　1〜10件目 / 約794,000件 2Dprogramming で検索した結果　1〜10件目 / 約. 57,400件 intel で検索した結果　1〜10件目 / 約729,000,000件 amd で検索した結果　1〜10件目 / 約355,000,000件 411 名前：デフォルトの名無しさん mailto:sage [2009/10/06(火) 18:37:56 ] . 4. Forth. Wwwww 412 名前：デフォルトの名無しさん mailto:sage [2009/10/06(火) 18:47:27 ] 懐かしくてMindのサイト行ってみたけど 4番人気にしては寂しい状態だなｗ 正確にはForthじゃないけどw 413 名前：デフォルトの名無しさん mailto:sage [2009/10/06(火) 19:16:10 ] pc.watch.impress.co.jp/img/pcw/docs/319/824/html/328.jpg.html 414 名前：デフォルトの名無しさん mailto:sage [2009/10/06(火) 19:17:21 ] pc.watch.impress.co.jp/img/pcw/docs/319/824/html/333.jpg.html 415 名前：デフォルトの名無しさん [2009/10/07(水) 14:59:15 ] すみません、プログラム超素人なんですけど、VisualBasicの質問もここでいいのでしょうか…？ VisualBasic2008ExpressEditionで、フィボナッチ数列の剰余の周期性の長さを求めるプログラムを組んだんですが、 一部正常に動作してくれない。詳しい方がいたら、修正点を教えてもらえないでしょうか。 プログラムは以下の通りなんだけど、周期の長さが80以上になるような場合だと正常に動作してくれない… どうか修正点の指摘よろしくです。。 Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a(1000), b(1000), c, n, x a(1) = 1 : a(2) = 1 : n = 2 x = Val(TextBox1.Text) Do n = n + 1 Label1.Text = n a(n) = a(n - 2) + a(n - 1) Label2.Text = a(n) b(n) = a(n) Mod x Label3.Text = b(n) a(n + 1) = a(n - 1) + a(n) Label4.Text = a(n + 1) b(n + 1) = a(n + 1) Mod x Label5.Text = b(n + 1) If b(n) * b(n + 1) = 1 Then c = n - 1 Exit Do End If Loop Label6.Text = c End Sub End Class 416 名前：デフォルトの名無しさん mailto:sage [2009/10/07(水) 16:48:34 ] ステップ実行しろ 417 名前：デフォルトの名無しさん [2009/10/07(水) 17:54:29 ] >>416 ステップの実行って…？ 418 名前：デフォルトの名無しさん [2009/10/07(水) 18:42:17 ] homepage1.nifty.com/rucio/main/dotnet/shokyu/standard41.htm 419 名前：デフォルトの名無しさん mailto:sage [2009/10/07(水) 18:51:15 ] BASIC以前の問題だな 420 名前：デフォルトの名無しさん mailto:sage [2009/10/07(水) 19:59:00 ] VBってホント、ソースが醜いねぇ〜ｗ 421 名前：デフォルトの名無しさん mailto:sage [2009/10/07(水) 20:27:51 ] 　　　　　　↑ ｛　｝ 中カッコが無いとプログラミングできないひと？ 422 名前：デフォルトの名無しさん mailto:sage [2009/10/07(水) 20:39:56 ] いいえ、行番号が無いとプログラミングできないひとです。 423 名前：デフォルトの名無しさん mailto:sage [2009/10/07(水) 22:37:16 ] いいえ、APIがないとプログラミングができないイキモノです（大爆笑） 424 名前：デフォルトの名無しさん mailto:sage [2009/10/07(水) 23:29:02 ] （核） 425 名前：デフォルトの名無しさん [2009/10/08(木) 09:27:39 ] お前ら解答出来ないなら喋んなよ 426 名前：デフォルトの名無しさん mailto:sage [2009/10/08(木) 09:40:37 ] なんだ回答でてんじゃん 427 名前：デフォルトの名無しさん mailto:sage [2009/10/09(金) 09:17:19 ] >>425 そこまでロジック組めるなら、今度はデバックの仕方を学ぶべきだ つか、>>415な汚いソースなんか誰も追う気にはなれない 428 名前：デフォルトの名無しさん mailto:sage [2009/10/13(火) 06:00:51 ] pc.watch.impress.co.jp/docs/column/nishikawa/20091013_320336.html 429 名前：デフォルトの名無しさん mailto:sage [2009/10/13(火) 18:49:14 ] >>415 > プログラムは以下の通りなんだけど、周期の長さが80以上になるような場合だと正常に動作してくれない… "期待する正常動作、実際の動作"が不明だが、エスパーしてみると、数列の数値が大きすぎてオーバーフローしてると思われ。 周期80なら連続する2数値は、↓のはず。 8670007398507948658051921, 14028366653498915298923761 430 名前：デフォルトの名無しさん mailto:sage [2009/10/15(木) 15:43:14 ] pc.watch.impress.co.jp/docs/news/20091015_321777.html 431 名前：デフォルトの名無しさん mailto:sage [2009/10/16(金) 05:05:08 ] Yahoo!プログラミング言語検索ランキング（今回2009/10/16、前回2009/10/12） 《一般カテゴリ》 . 1（. 1） HTML.....　　　　約5,030,000,000件（約5,020,000,000件）+ . 2（. 2） PHP...　 　　　　約2,980,000,000件（約3,000,000,000件）-- . 3（--） BASIC.. 　 　 　約1,580,000,000件（....------------- ）0 . 4（. 3） JAVA.. 　 　　　約　822,000,000件（約　832,000,000件）-- . 5（--） CGI. 　 　 　　　約　551,000,000件（....------------- ）0 . 6（--） C言語（*1）. 　 約　399,000,000件（....------------- ）0　（*1）C/C++とC#の検索件数の合計 . 7（. 4） FORTH..　　　　約　323,000,000件（約　324,000,000件）- . 8（. 6） PERL..　　　　　約　245,000,000件（約　245,000,000件）0 . 9（. 7） PYTHON..　　　約　213,000,000件（約　209,000,000件）++ 10（. 8） PASCAL..　　　約　168,000,000件（約　168,000,000件）0 11（. 9） DELPHI.　　　　約　128,000,000件（約　128,000,000件）0 12（11） LISP　　　　　　約.　 26,000,000件（約.　 26,600,000件）-- 13（12） FORTRAN. 　　約.　 21,200,000件（約.　 21,300,000件）- 14（13） COBOL.....　　　約.　 16,800,000件（約.　 17,100,000件）-- 15（--） PROLOG　　 　約.　 13,800,000件（....------------- ）0 16（14） HSP 　 　　　 　約.　 12,300,000件（約.　 12,400,000件）- 《BASIC言語カテゴリ》 . 1（--） VisualBasic... 　約　120,000,000件（約　121,000,000件）- . 2（--） Hu-BASIC..　　約.　 15,000,000件（....------------- ）0 . 3（--） QBASIC..　 　　約　　 4,140,000件（約　　 4,160,000件）-- . 4（--） MSX-BASIC.....約　　 1,430,000件（....------------- ）0 . 5（--） DarkBASIC . 　約　　 1,310,000件（約　　 1,330,000件）-- . 6（--） CBM-BASIC.　約　　　 944,000件（....------------- ）0 . 7（--） BasicStudio 　 約　　　 303,000件（約　　　 302,000件）+ . 8（--） N88BASIC..　　約　　　 219,000件（約　　　 218,000件）+ . 9（--） X-BASIC...　 　約. 　 　　40,400件（....------------- ）0 10（--） 99BASIC....　 　約. 　 　　11,400件（約. 　 　　11,300件）+ 432 名前：デフォルトの名無しさん mailto:sage [2009/10/16(金) 09:24:07 ] だから何だと？ 433 名前：デフォルトの名無しさん mailto:sage [2009/10/16(金) 10:13:47 ] 少数派では不安と考えるか、多数いると買い叩かれると考えるかで変わってくるんでは? 434 名前：デフォルトの名無しさん mailto:sage [2009/12/15(火) 16:20:20 ] ５０人のクラス（男子３５人）から５人の委員をランダムに選ぶ。このとき選ばれた委員の中に男３人、女２人が入る確率をBASICで求めよ。 すいません、さっぱりわからないので教えてください。 435 名前：デフォルトの名無しさん mailto:sage [2009/12/16(水) 13:43:37 ] >>431 疑問なんだがなぜ今FORTHなんだ？ 436 名前：デフォルトの名無しさん mailto:sage [2009/12/27(日) 21:43:34 ] >>434 まず、数学で問題をときます。 次にPC8801を起動してディスクを入れてリセットします。 BASICが起動したらautoと打ってリターン。 あとはBASICでプログラムを入力し F5を押します 437 名前：デフォルトの名無しさん mailto:sage [2010/01/04(月) 17:10:24 ] >>434 Dim n(5) Randmize(Left$(Time$,2)) For i=0 To 10000 m=0 f=0 For j=1 To 5 n(j) = Int(Rnd()*50)+1 If n(j) > 36 Then f=f+1 Else m=m+1 Next j If m=3 And f=2 Then c=c+1 Print c*100/i Next 438 名前：デフォルトの名無しさん [2010/01/05(火) 09:38:21 ] 普通に公式使って解けばいいじゃん

---

---

[ 新着レスの取得/表示 (agate) ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef