N人分のデータ（氏名、体重、身長、年齢）がＤＡＴＡ文で入力されているプログラムが
ある。これを用いて次のプログラムをＢＡＳＩＣで作成しなさい
身長が１６０ＣＭ以上で１７０ｃｍ未満の人の名前を表示する
探検
BASICの宿題はお前にまかせた
■ このスレッドは過去ログ倉庫に格納されています
2006/01/09(月) 15:35:00
342デフォルトの名無しさん
2009/01/21(水) 18:35:13343デフォルトの名無しさん
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
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ヶ所をこのように変更するだけ
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デフォルトの名無しさん
2009/01/22(木) 11:38:14 v$(k)の有効な要素数ってsize(v$(k))みたいな方法で取れないのかな
347デフォルトの名無しさん
2009/01/22(木) 13:38:12 >>344
上書きして情報減ってるような
上書きして情報減ってるような
348デフォルトの名無しさん
2009/01/22(木) 14:28:32349デフォルトの名無しさん
2009/01/22(木) 20:22:42 お願いします。
標準体重と実際の体重に対するコメントを表示するプログラムを作成する。
入力情報：名前name、身長(cm)h、体重(kg)w
出力情報：標準体重sw、コメント
プログラムの終了：名前が"end"のとき終了
標準体重：身長(m)^2*22
（コメント）
－20%未満：やせすぎ
－20%以上－10%未満：やややせている
－10%以上10%未満：正常
10%以上20%未満：やや太っている
20%以上：太りすぎ
標準体重と実際の体重に対するコメントを表示するプログラムを作成する。
入力情報：名前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についての参考資料
http://ja.wikipedia.org/wiki/%E6%A8%99%E6%BA%96%E4%BD%93%E9%87%8D
http://www.e-na.co.jp/passage/chek/
http://www11.plala.or.jp/jitensya-tuukin/diet/diet13_1.htm
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についての参考資料
http://ja.wikipedia.org/wiki/%E6%A8%99%E6%BA%96%E4%BD%93%E9%87%8D
http://www.e-na.co.jp/passage/chek/
http://www11.plala.or.jp/jitensya-tuukin/diet/diet13_1.htm
351デフォルトの名無しさん
2009/01/25(日) 14:59:37352デフォルトの名無しさん
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で誰かお願いできないでしょうか？
月曜にテストあるんで・・・
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次方程式の解き方
だけでもいいので教えてください。
の最大解をニュートン法で求めよ。 という課題が出て困ってます。
誰か教えてください。 無理ならニュートン法での4次方程式の解き方
だけでもいいので教えてください。
354デフォルトの名無しさん
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
十進数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:52356デフォルトの名無しさん
2009/02/15(日) 12:23:39 >>354
あと一応結果は4.・・・というのが左に7個と右にいろいろ出ました
あと一応結果は4.・・・というのが左に7個と右にいろいろ出ました
357デフォルトの名無しさん
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
^ここにスペースを入れてしまったので実行できなかったんですね
ありがとうございました
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
というのもあるのですが、よかったら教えてくれませんか？
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の間のことです
３５９の「ここ」というのはE=1とE-5の間のことです
362デフォルトの名無しさん
2009/02/16(月) 15:08:53 いまだに BASIC の宿題ってポケコン？
363デフォルトの名無しさん
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
長いので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:24366デフォルトの名無しさん
2009/02/17(火) 21:37:40 >>362
今時ポケコンは無いだろ、N88互換BASICとか十進数BASIC辺りじゃね。
今時ポケコンは無いだろ、N88互換BASICとか十進数BASIC辺りじゃね。
367デフォルトの名無しさん
2009/02/20(金) 22:16:10 ﾌｧｲﾙに文字列で CHAR$(00) を混ぜて出力しようとしたけど無理だった。
BASICじゃー &h00 をﾌｧｲﾙに出力するって出来なかったのかぁ。
BASICじゃー &h00 をﾌｧｲﾙに出力するって出来なかったのかぁ。
368デフォルトの名無しさん
2009/02/21(土) 18:26:55 ﾌｧｲﾙに文字列で CHA$(00) を混ぜて出力できた。
369デフォルトの名無しさん
2009/02/23(月) 16:34:13 CHR$ のことを言ってるんだろうか…。
370デフォルトの名無しさん
2009/04/28(火) 07:15:12371デフォルトの名無しさん
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を求めるプログラムに書き換えなさい。
また、そのように改変した理由も述べよ。
この問題、わかる人いますか？;;
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デフォルトの名無しさん
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 では 解けないかもな
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デフォルトの名無しさん
2009/07/26(日) 20:26:02 すみません
問3． M個のデータのうち、その2番目の小さいデータと同じデータの個数を求めるアルゴリズムの流れ図を示せ。
という問題なんですが、だれか簡単に説明してくれませんか(´・ω・｀)
問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
>
となります。
プログラムでいうと ↓ な具合です
(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デフォルトの名無しさん
2009/07/27(月) 01:46:25 ↑スレタイ読めバカ
377デフォルトの名無しさん
2009/07/27(月) 06:55:43 BASIC最近さわってねーから
「M個のデータのうち、その2番目の小さいデータと同じデータの個数を求める」関数って無かったっけ？
それがあれば f=「 M個のデータのうち、その2番目の小さいデータと同じデータの個数を求める」 っておいて
M個のデータ→f→2番目の小さいデータと同じデータの個数
になるんだけど
「M個のデータのうち、その2番目の小さいデータと同じデータの個数を求める」関数って無かったっけ？
それがあれば f=「 M個のデータのうち、その2番目の小さいデータと同じデータの個数を求める」 っておいて
M個のデータ→f→2番目の小さいデータと同じデータの個数
になるんだけど
378デフォルトの名無しさん
2009/07/27(月) 09:31:29 ①M個のデータの全部を検索して一番小さいデータの値を求める。
②M個のデータの全部を検索して二番目に小さいデータの値を求める。
③M個のデータの全部を検索して二番目に小さいデータの個数を求める。
もっと効率の良いアルゴリズムがあるのかもしれん
②M個のデータの全部を検索して二番目に小さいデータの値を求める。
③M個のデータの全部を検索して二番目に小さいデータの個数を求める。
もっと効率の良いアルゴリズムがあるのかもしれん
379デフォルトの名無しさん
2009/07/30(木) 12:41:36 basicって今時文法を覚えてる人いないよね
380デフォルトの名無しさん
2009/07/30(木) 13:09:51 BASICの文法っても、10個ほどのコマンドを覚えるだけだから....
関数なんかはそのつど取説を参照するし
関数なんかはそのつど取説を参照するし
381デフォルトの名無しさん
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
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
続く…
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元の連立方程式を実際に解いてみよ。
またこのプログラムで計算できない連立方程式の例を与え，その理由を述べよ。
わかる方、お願いします！！
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デフォルトの名無しさん
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
とか？
不能解か多重解か作ればいいの？
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:59386デフォルトの名無しさん
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つの出現回数を都度数えておけば良い。
メリットは自分で考えてくれ。
亀レスだが、処理方法案。
数値を一つずつ取り出し、その時点までで判っている、小さい方の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デフォルトの名無しさん
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
とか書けばいいのでは
最近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
誰かお答えください。本当に助けてください。
１．Visual Basicの関数で数値を文字に直すCStr()とStr()の違いについて
２．戻り値の違いが確認できる方法を考え、戻り値の違いについて実際に確認し、
その確認方法と違いを具体的に述べよ。
注意：実際にやったことと、確認した違いを簡潔かつ具体的に書くこと。
３．下記の計算結果などから、Visual Basicで計算できる数値の桁数について考察をまとめ、
何故そのような制限があるかについて理由を答えよ
１） 48 x 100 - 81
２） 12 ÷ 9.3 x 247
３） 0.2 - 12 ÷ 69
４） -12 ÷ 100 + 100
389デフォルトの名無しさん
2009/08/25(火) 11:11:37 str は 古き懐かし BASIC (VisualじゃないBASIC) のころからあった関数だよな。
過去との互換性のために残してある、ってのが本音なんじゃないかな。
Str と Cstr の違いは、ヒント：先頭１文字目に違いがある。あとはマニュアルを読めカス！
過去との互換性のために残してある、ってのが本音なんじゃないかな。
Str と Cstr の違いは、ヒント：先頭１文字目に違いがある。あとはマニュアルを読めカス！
390デフォルトの名無しさん
2009/08/25(火) 11:16:41 マルチポスト報告スレ
http://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
http://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デフォルトの名無しさん
2009/08/25(火) 11:19:29 DEF FNCSTR$(A!) = MID$(STR$(A!), 2+(A!<0))
こんな感じだっけ・・・うろ覚え
こんな感じだっけ・・・うろ覚え
392デフォルトの名無しさん
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デフォルトの名無しさん
2009/09/04(金) 19:42:33 $は文字変数を意味する。
397デフォルトの名無しさん
2009/09/05(土) 19:40:10 >>393
つ COMB(n,r)
つ COMB(n,r)
398デフォルトの名無しさん
2009/09/23(水) 12:28:54 なあ、セーブ機能付きレジ打ちのプログラム打ちたいんだが
お前らならどんなプログラム打つ？
お前らならどんなプログラム打つ？
399デフォルトの名無しさん
2009/09/23(水) 12:42:45 お前はプログラミングに向いてない
400デフォルトの名無しさん
2009/09/23(水) 16:38:53 できたらやってあげたいがな…
401デフォルトの名無しさん
2009/09/26(土) 18:41:31402デフォルトの名無しさん
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
ルール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デフォルトの名無しさん
2009/10/03(土) 16:39:57 ①subを用いて２つの分母の異なった（2/3+5/7など）分数の和を計算するプログラムを作成せよ。
実行結果は約分すること
②
Functionを用いてヘロンの公式を実装せよ。
三辺の長さから３角形の面積を求める
ただし、３編の長さより三角形が成立しない場合は、除外する仕様とせよ
実行結果は約分すること
②
Functionを用いてヘロンの公式を実装せよ。
三辺の長さから３角形の面積を求める
ただし、３編の長さより三角形が成立しない場合は、除外する仕様とせよ
404デフォルトの名無しさん
2009/10/03(土) 17:34:27 age
405デフォルトの名無しさん
2009/10/03(土) 17:56:38 subとかFunctionなんてBASICにあったっけ
VBならしね
VBならしね
406デフォルトの名無しさん
2009/10/03(土) 18:21:41 >>403
BASICは方言が多いから環境を明示すべきだぜ。②はこんな感じで（十進数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
BASICは方言が多いから環境を明示すべきだぜ。②はこんな感じで（十進数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デフォルトの名無しさん
2009/10/03(土) 20:17:34 面積０なら三角形じゃないだろうという本質ではないとこに突っ込んでみる
408デフォルトの名無しさん
2009/10/03(土) 22:48:57 そうっすね
409デフォルトの名無しさん
2009/10/04(日) 00:19:56 本質的なところを突っ込んでください。
>>406だと変な値を入れても除外せずに面積計算しちゃう事があるのよね。
>>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件
. 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デフォルトの名無しさん
2009/10/06(火) 18:37:56 . 4. Forth. Wwwww
412デフォルトの名無しさん
2009/10/06(火) 18:47:27 懐かしくてMindのサイト行ってみたけど
4番人気にしては寂しい状態だなｗ
正確にはForthじゃないけどw
4番人気にしては寂しい状態だなｗ
正確にはForthじゃないけどw
413デフォルトの名無しさん
2009/10/06(火) 19:16:10414デフォルトの名無しさん
2009/10/06(火) 19:17:21415デフォルトの名無しさん
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
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デフォルトの名無しさん
2009/10/07(水) 16:48:34 ステップ実行しろ
417デフォルトの名無しさん
2009/10/07(水) 17:54:29 >>416
ステップの実行って…？
ステップの実行って…？
418デフォルトの名無しさん
2009/10/07(水) 18:42:17419デフォルトの名無しさん
2009/10/07(水) 18:51:15 BASIC以前の問題だな
420デフォルトの名無しさん
2009/10/07(水) 19:59:00 VBってホント、ソースが醜いねぇ～ｗ
421デフォルトの名無しさん
2009/10/07(水) 20:27:51 ↑
｛ ｝ 中カッコが無いとプログラミングできないひと？
｛ ｝ 中カッコが無いとプログラミングできないひと？
422デフォルトの名無しさん
2009/10/07(水) 20:39:56 いいえ、行番号が無いとプログラミングできないひとです。
423デフォルトの名無しさん
2009/10/07(水) 22:37:16 いいえ、APIがないとプログラミングができないイキモノです（大爆笑）
424デフォルトの名無しさん
2009/10/07(水) 23:29:02 （核）
425デフォルトの名無しさん
2009/10/08(木) 09:27:39 お前ら解答出来ないなら喋んなよ
426デフォルトの名無しさん
2009/10/08(木) 09:40:37 なんだ回答でてんじゃん
427デフォルトの名無しさん
2009/10/09(金) 09:17:19428デフォルトの名無しさん
2009/10/13(火) 06:00:51429デフォルトの名無しさん
2009/10/13(火) 18:49:14 >>415
> プログラムは以下の通りなんだけど、周期の長さが80以上になるような場合だと正常に動作してくれない…
"期待する正常動作、実際の動作"が不明だが、エスパーしてみると、数列の数値が大きすぎてオーバーフローしてると思われ。
周期80なら連続する2数値は、↓のはず。
8670007398507948658051921, 14028366653498915298923761
> プログラムは以下の通りなんだけど、周期の長さが80以上になるような場合だと正常に動作してくれない…
"期待する正常動作、実際の動作"が不明だが、エスパーしてみると、数列の数値が大きすぎてオーバーフローしてると思われ。
周期80なら連続する2数値は、↓のはず。
8670007398507948658051921, 14028366653498915298923761
430デフォルトの名無しさん
2009/10/15(木) 15:43:14431デフォルトの名無しさん
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件）+
《一般カテゴリ》
. 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デフォルトの名無しさん
2009/10/16(金) 09:24:07 だから何だと？
433デフォルトの名無しさん
2009/10/16(金) 10:13:47 少数派では不安と考えるか、多数いると買い叩かれると考えるかで変わってくるんでは?
434デフォルトの名無しさん
2009/12/15(火) 16:20:20 ５０人のクラス（男子３５人）から５人の委員をランダムに選ぶ。このとき選ばれた委員の中に男３人、女２人が入る確率をBASICで求めよ。
すいません、さっぱりわからないので教えてください。
すいません、さっぱりわからないので教えてください。
435デフォルトの名無しさん
2009/12/16(水) 13:43:37 >>431
疑問なんだがなぜ今FORTHなんだ？
疑問なんだがなぜ今FORTHなんだ？
436デフォルトの名無しさん
2009/12/27(日) 21:43:34 >>434
まず、数学で問題をときます。
次にPC8801を起動してディスクを入れてリセットします。
BASICが起動したらautoと打ってリターン。
あとはBASICでプログラムを入力し
F5を押します
まず、数学で問題をときます。
次にPC8801を起動してディスクを入れてリセットします。
BASICが起動したらautoと打ってリターン。
あとはBASICでプログラムを入力し
F5を押します
437デフォルトの名無しさん
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
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 普通に公式使って解けばいいじゃん
439デフォルトの名無しさん
2010/06/02(水) 00:30:00 >>437
それじゃ同じ人間が複数回選ばれかねないんじゃないか？
それじゃ同じ人間が複数回選ばれかねないんじゃないか？
440デフォルトの名無しさん
2010/06/06(日) 15:38:07 BASIC/98についてお願いします。
以下の課題が明日提出で困っています。
以下のプログラムを円グラフで作れという問題です。
100 '棒グラフ
110 SCREEN 3 : CONSOLE 0,25,0,1 : CLS 3
120 DIM TBL(12),XB(12)
130 FOR J=1 TO 12 : READ TBL(J) : NEXT J
140 DATA 3,6,10,13,16,20,15,11,8,7,4,2
150 GOSUB *BOU : ' 棒グラフ
160 END
170 *BOU
180 N=12 : 'データ数
190 K=5 : '等分数
200 DM=20 : 'データの最大値
210 BX=90 : BY=320 : '原点座標 (０点の位置)
220 XL=420 : YL=300 : '横軸 (Ｘ) , 横軸 (Ｙ) の最大の長さ
230 XH=XL/N : 'Ｘ軸の目盛り幅
240 YH=YL/DM : 'Ｙ軸の目盛り幅
250 YK=YH : 'Ｙ軸の１目盛り当たりの縮尺係数
以下の課題が明日提出で困っています。
以下のプログラムを円グラフで作れという問題です。
100 '棒グラフ
110 SCREEN 3 : CONSOLE 0,25,0,1 : CLS 3
120 DIM TBL(12),XB(12)
130 FOR J=1 TO 12 : READ TBL(J) : NEXT J
140 DATA 3,6,10,13,16,20,15,11,8,7,4,2
150 GOSUB *BOU : ' 棒グラフ
160 END
170 *BOU
180 N=12 : 'データ数
190 K=5 : '等分数
200 DM=20 : 'データの最大値
210 BX=90 : BY=320 : '原点座標 (０点の位置)
220 XL=420 : YL=300 : '横軸 (Ｘ) , 横軸 (Ｙ) の最大の長さ
230 XH=XL/N : 'Ｘ軸の目盛り幅
240 YH=YL/DM : 'Ｙ軸の目盛り幅
250 YK=YH : 'Ｙ軸の１目盛り当たりの縮尺係数
441デフォルトの名無しさん
2010/06/06(日) 15:39:35 続き
260 XA=XH/4 : '棒グラフの幅
270 ' *** 横線 ***
280 FOR J=0 TO DM STEP K
290 LINE(BX,BY-YH*J)-(BX+XL+XH,BY-YH*J)
300 NEXT J
310 ' *** 縦線 ***
320 FOR J=0 TO N+1
330 IF (J=0 OR J=N+1) THEN LINE(BX+XH*J,BY)-(BX+XH*J,BY-YL):GOTO 360
340 XB(J)=BX+XH*J
350 NEXT J
360 ' *** 横軸 ***
370 LOCATE 15,21:PRINT "0 1- 10- 20- 30- 40- 50- 60- 70- 80- 90- "
380 LOCATE 16,22:PRINT " 9 19 29 39 49 59 69 79 89 99 100 "
390 LOCATE 30,23 : PRINT "点 数"
400 ' *** 縦軸 ***
410 LOCATE 5,20 : PRINT " 0"
420 LOCATE 5,15 : PRINT "数 5"
430 LOCATE 5,10 : PRINT " 10"
440 LOCATE 5, 5 : PRINT "人 15"
450 LOCATE 5, 1 : PRINT " 20"
460 ' *** 棒グラフを引く ***
470 FOR J=1 TO N
480 X1=XB(J)-XA
490 X2=XB(J)+XA
500 Y1=BY-TBL(J)*YL
510 LINE(X1,Y1)-(X2,BY-1),4,BF
520 NEXT J
530 RETURN
260 XA=XH/4 : '棒グラフの幅
270 ' *** 横線 ***
280 FOR J=0 TO DM STEP K
290 LINE(BX,BY-YH*J)-(BX+XL+XH,BY-YH*J)
300 NEXT J
310 ' *** 縦線 ***
320 FOR J=0 TO N+1
330 IF (J=0 OR J=N+1) THEN LINE(BX+XH*J,BY)-(BX+XH*J,BY-YL):GOTO 360
340 XB(J)=BX+XH*J
350 NEXT J
360 ' *** 横軸 ***
370 LOCATE 15,21:PRINT "0 1- 10- 20- 30- 40- 50- 60- 70- 80- 90- "
380 LOCATE 16,22:PRINT " 9 19 29 39 49 59 69 79 89 99 100 "
390 LOCATE 30,23 : PRINT "点 数"
400 ' *** 縦軸 ***
410 LOCATE 5,20 : PRINT " 0"
420 LOCATE 5,15 : PRINT "数 5"
430 LOCATE 5,10 : PRINT " 10"
440 LOCATE 5, 5 : PRINT "人 15"
450 LOCATE 5, 1 : PRINT " 20"
460 ' *** 棒グラフを引く ***
470 FOR J=1 TO N
480 X1=XB(J)-XA
490 X2=XB(J)+XA
500 Y1=BY-TBL(J)*YL
510 LINE(X1,Y1)-(X2,BY-1),4,BF
520 NEXT J
530 RETURN
■ このスレッドは過去ログ倉庫に格納されています
ニュース
- 米大統領報道官「日本と強固な同盟維持、中国とも協力」 [少考さん★]
- 高市首相の答弁書に「台湾有事答えない」と明記 存立危機発言当時 ★2 [蚤の市★]
- ミス・ユニバース フィンランド代表の「つり目」写真が波紋… 本人釈明も批判やまず 協会謝罪「徹底的に検証」へ [冬月記者★]
- 【おこめ券】鈴木憲和農相 小泉前農相の備蓄米放出を“反省”「備蓄の円滑な運営を図ってまいります」 [Hitzeschleier★]
- JA全農が「新おこめ券」…来年9月末の有効期限を新設、必要経費のみ上乗せ ★2 [蚤の市★]
- 1人3千円の食品高騰対策、何に使える？ あいまいなまま衆院通過 [蚤の市★]
- 【悲報】維新の政治資金でガールズバー、高市首相「良いか悪いかは国民の皆さまが判断されること」 [115996789]
- 【マギレコ】VIPでマギアレコード＆マギアエクセドラ【まどドラ】
- 中国人、ガチ超正論。「日本人がアイヌに対してやったことを『問題ない』とするなら、中国が日本人に同じことをしても文句ないだろう？」 [314039747]
- 【速報】俳優の三浦春馬さん、自宅で死亡 自殺とみられる←この衝撃を超える速報テロ、いまだない
- 衛生的に気持ち悪くて性風俗店行ったこと無いんだ
- 【悲報】タンパク質さん、寿命を縮めることが判明