06/01/09 15:50:40
10 PRINT "斉藤"
20 PRINT "鈴木"
30 PRINT "ゴンザレス"
40 END
3:デフォルトの名無しさん
06/01/10 00:19:06
>>1
そんなことは無理
4:デフォルトの名無しさん
06/01/10 18:26:48
☀
5:BASIC
06/01/15 16:26:34
N人分のデータ（氏名、体重、身長、年齢）がＤＡＴＡ文で入力されているプログラムが
ある。これを用いて次のプログラムをＢＡＳＩＣで作成しなさい
身長が１６０ＣＭ以上で１７０ｃｍ未満の人の名前を表示する
6:デフォルトの名無しさん
06/01/15 16:41:53
10 READ $NAME
20 READ $WAIT
30 READ $HEIGHT
40 READ $OLD
60 IF ($HEIGHT>=160)*($HEIGHT<170) THEN PRINT $NAME;$CHR(13)
50 IF (READ<>"END")*($WAIT<>0)*($HEIGHT<>0)*($OLD<>0) THEN 10
70 END
100 REM --BODY INFORMATION--
110 DATA "SUZUKI",67,150,15
120 DATA "SATOU",80,180,24
130 DATA "ITO",74,170,18
140 DATA "TANAKA",90,190,20
150 DATA "YAMADA",45,168,16
160 DATA "SIMIZU",68,165,18
170 DATA END,0,0,0
180 REM --INFORMATION END--
7:デフォルトの名無しさん
06/01/15 16:44:31
$の位置が逆じゃね？
8:デフォルトの名無しさん
06/01/15 16:55:11
デバッグしますた。(´･ω･`)ｼｮﾎﾞｰﾝ
10 READ NAME$
20 READ WAIT
30 READ HEIGHT
40 READ OLD
60 IF (HEIGHT>=160)*(HEIGHT<170) THEN PRINT NAME$;CHR$(13)
50 IF (NAME$<>"END")*(WAIT<>0)*(HEIGHT<>0)*(OLD<>0) THEN 10
70 END
100 REM --BODY INFORMATION--
110 DATA "SUZUKI",67,150,15
120 DATA "SATOU",80,180,24
130 DATA "ITO",74,170,18
140 DATA "TANAKA",90,190,20
150 DATA "YAMADA",45,168,16
160 DATA "SIMIZU",68,165,18
170 DATA END,0,0,0
180 REM --INFORMATION END--
9:デフォルトの名無しさん
06/01/15 17:02:15
MZ-1200 SP-5030なら上で動くはずだけど、下の場合は動かない。
でも、Tiny Basic for Windowsだとエラーがでた。
下でないとエラーが出る。
10 READ NAME$
20 READ WAIT
30 READ HEIGHT
40 READ OLD
50 IF (HEIGHT>=160) and (HEIGHT<170) THEN PRINT NAME$;CHR$(13)
60 IF (NAME$<>"END") and (WAIT<>0) and (HEIGHT<>0) and (OLD<>0) THEN 10
70 END
80 REM --BODY INFORMATION--
110 DATA "SUZUKI",67,150,15
120 DATA "SATOU",80,180,24
130 DATA "ITO",74,170,18
140 DATA "TANAKA",90,190,20
150 DATA "YAMADA",45,168,16
160 DATA "SIMIZU",68,165,18
170 DATA "END",0,0,0
180 REM --INFORMATION END--
10:BASIC
06/01/15 20:31:18
N人分のデータ（氏名、体重、身長、年齢）がＤＡＴＡ文で入力されているプログラムが
ある。これを用いて次のプログラムをＢＡＳＩＣで作成しなさい
年齢が３０歳以下の人の、体重と身長の平均値を計算し表示する
11:デフォルトの名無しさん
06/01/15 20:56:11
1 N=10
2 FOR I=1 TO N: READ NA$,W,H,A:IF A<=30 THEN WA=WA+W: HA=HA+H: M=M+1:NEXT
3 IF M<>0 THEN PRINT "30歳以下の平均体重、身長:"; WA/M, HA/M
4 DATA （以下略）
12:デフォルトの名無しさん
06/01/15 23:06:54
お願いします。
N個のデータがエクセルで入力されている。OPEN文を用いて、最大値と
平均値を求めるプログラムをBASICで作成しなさい。
データはこんな感じで並んでいます。
2 4 6 8 9 3 1 7 5
13:デフォルトの名無しさん
06/01/15 23:33:29
エクセルがあるんならエクセルで計算しろよ
14:デフォルトの名無しさん
06/01/15 23:35:08
>>13
宿題だからそうはいかないんです。
15:デフォルトの名無しさん
06/01/16 01:20:16
>>14
じゃぁ、自分でやれ。
16:デフォルトの名無しさん
06/01/16 03:32:56
ぬるぽ
17:デフォルトの名無しさん
06/01/16 03:58:06
>>16さんｶﾞｯなの！
＼＿＿＿ ＿＿＿/ ミ'' ''ヽ
Ｖ ミ ', - - ―
― ┼―ヽl ,､ l/ ミ;ヽ ミ ', ― ＼ /
〃")' ~´ﾍﾍ)"ヽ ミ; , l＼ :: ', ＼ ,-､,-､/
- - ― !( ソﾉ八)ヽ） ｿ '' :,ヽ＼:: lヽ￣―-('∀`；）―
- - ――ヾl._ﾟヮﾉ!. .-[／二─― -_C Ｏ）>>6
(二====O===O三二=［!=!●二二二二==-○ ￣三二＝－―
- - ―― ./ｿ､j､iヾ. ﾍゝ. -[＼二─￣ ,―ﾉ￣ﾉ -
- - ――~(_/ '-'~ ,,; ,''/／:: .lﾉ ―┼（ ）― -
彡 'l／ :: ,' ― / /.:^⌒^ ﾟ ＼丶
- - ―― ┼― 彡:;, ﾉ 彡 ,' -
彡 ,' - - ―
― 彡,, ,,ﾉ
18:BASIC
06/01/17 12:12:13
キーボードより入力したデータの中で最大値と最小値を求める
プログラムを作成しなさい。０を入力した場合に終了
19:デフォルトの名無しさん
06/01/17 16:36:20
10 INPUT "C:>",KEY$
20 IF KEY$="0" THEN END
30 NEW
20:BASIC
06/01/18 15:54:39
N人分のデータ（氏名、体重、身長、年齢）がＤＡＴＡ文で入力されているプログラムが
ある。これを用いて次のプログラムをＢＡＳＩＣで作成しなさい
最も体重の軽い人の名前を表示する
21:デフォルトの名無しさん
06/01/18 21:33:16
110 N=5:DIM NA$(N)
120 FOR I = 1 TO N
130 READ NA$(I),W,H,A
140 PRINT "No.";I,"体重";W
150 NEXT
160 INPUT "一番体重の軽い番号を入力して下さい:", X
170 IF X <= 0 OR N < X THEN 160
180 PRINT "一番体重の軽い人は "; NA$(X); " です."
190 END
200 DATA "SUZUKI",67,150,15
210 DATA "SATOU",80,180,24
220 DATA "ITO",74,170,18
230 DATA "TANAKA",90,190,20
240 DATA "YAMADA",45,168,16
22:デフォルトの名無しさん
06/01/19 00:27:12
10 REM >>21
20 PRINT "WAROTA"
22 GOTO 23
23:BASIC
06/01/19 17:00:01
N人分のデータ（氏名、体重、身長、年齢）がＤＡＴＡ文で入力されているプログラムが
ある。これを用いて次のプログラムをＢＡＳＩＣで作成しなさい
体重が６０ｋｇ以上で、身長が１５０ｃｍ未満の人の名前を表示する
24:デフォルトの名無しさん
06/01/19 17:08:43
>>23
それってすごく失礼だと思う。
25:BASIC
06/01/19 17:08:48
N人分のデータ（氏名、住所、電話番号）がＤＡＴＡ文で入力されているプログラムが
ある。
氏名を入力すると、住所と電話番号が表示されるプログラムをＢＡＳＩＣで作成
しなさい
26:デフォルトの名無しさん
06/01/19 17:50:58
10 INPUT "氏名を入力して下さい"; NA$
20 PRINT "個人情報保護の観点からお答えできません。ご了承下さい。"
30 END
27:デフォルトの名無しさん
06/01/19 17:58:42
10 INPUT "氏名を入力して下さい"; NA$
20 PRINT "データに無い人の住所とか表示できません。"
30 PRINT "データにある人の住所だったらデータをそのまま読んだ方が早いです。"
40 END
28:BASIC
06/01/20 17:15:33
N人分のデータ（氏名、体重、身長、年齢）がＤＡＴＡ文で入力されているプログラムが
ある。これを用いて次のプログラムをＢＡＳＩＣで作成しなさい
体重が６０ｋｇ以上で、身長が１５０ｃｍ未満の人の名前を表示する
29:デフォルトの名無しさん
06/01/20 17:17:49
>>28
先生、作ったら、名前を表示された人が自殺しました。
30:デフォルトの名無しさん
06/01/20 23:51:31
デスノート型のPCで表示したお前が悪い。
31:デフォルトの名無しさん
06/01/22 17:22:19
奇数ｎ*nの魔方陣をｎを入力するだけで作るプログラムを誰か作って。
32:デフォルトの名無しさん
06/01/22 19:05:50
>>31
奇数×奇数の魔方陣の作り方
1. 上段の中央を1にする
2. 右上に次の数字を置いていく（最上段の上は最下段になる。）
3. 右上が埋まっていたら一つ下に次の数字を置く
4. 再び右上へと数字を埋めていく
5. 後は3,4の繰り返しで完成
33:デフォルトの名無しさん
06/01/22 19:41:20
それはわかるけどそれをどうやるかわからん。
二次元配列？
34:デフォルトの名無しさん
06/01/22 20:34:11
>>33
10 DIM A(99,99):INPUT "n";N:IF N MOD 2 = 0 THEN PRINT "（ ´,_ゝ｀）ﾌﾟｯ":END
20 X=N\2+1:Y=1:FOR I=1TO N*N:A(Y,X)=I:X=(X+(I MOD N=0)) MOD N+1:Y=Y+(I MOD N<>0)*2+1-((Y-(I MOD N=0)*2-1)=0)*N:NEXT
30 FOR I=1TO N:FOR J=1TO N:PRINT A(I,J);:NEXT:PRINT:NEXT:END
35:デフォルトの名無しさん
06/01/22 21:12:39
それでやってみたけど>>32のやりかたじゃなくね？
できることは出来るけど>>34の原理がわかんね
36:デフォルトの名無しさん
06/01/22 21:20:22
できたよ！まじさんくす
37:デフォルトの名無しさん
06/01/23 01:42:52
すばらすぃスレを発見！！
よかったら私のもお願いできませんでしょうか・・・(´Д｀;)
課題9
URLﾘﾝｸ(www.imgup.org)
課題11
URLﾘﾝｸ(www.imgup.org)
URLﾘﾝｸ(www.imgup.org)
課題12
URLﾘﾝｸ(www.imgup.org)
課題13
URLﾘﾝｸ(www.imgup.org)
課題14
URLﾘﾝｸ(www.imgup.org)
URLﾘﾝｸ(www.imgup.org)
どうか、よろしくお願い致します(´･ω･`)
38:デフォルトの名無しさん
06/01/23 06:40:35
>>37
テキストで打ち込め。
画像なんか一々見ていられるか。
お前の手下のいるスレじゃないんだ。
力を貸してくれる人に対して、閲覧の手間くらいは省こうという
気はないのか?
何でもかんでも、人任せにするんじゃない。
39:デフォルトの名無しさん
06/01/23 09:35:36
他力本願もここまでくると天晴れだなｗ
40:デフォルトの名無しさん
06/01/23 10:54:16
>>38
Basic課題９ (2005/11/24)
１．配列に以下の値を代入して以下の計算をしなさい。
111+112+113+114+115+116+117+118+119+120+121=?
配列に代入した値も表示する。プログラムと結果を提出する。
２．配列に適当な値(15～19個ぐらい)を代入(読み込む）しその値を出力
する。総和、平均、標準偏差を求め出力しなさい。配列内の値を小さい
順に並べて出力しなさい。
41:デフォルトの名無しさん
06/01/23 11:02:03
Basic課題11（2005/12/08）
１．5行5列の行列[A]を作成し、値を表示しなさい。
行列に見えるように表示する。
データは「read文」を使用して代入する。
5行5列の行列[A]の転置行列を表示しなさい。
プログラムと結果を提出する。
２．2次元配列を使用して以下の計算をしなさい。
プログラムと結果を提出する。
（図は元の図を参照してください）
―――――――→
01 02 03 04 05 06 07 08 09 10｜055 ｜
11 12 13 14 15 16 17 18 19 20｜155 ↓
21
：
：
91
---------------------------
460 470 ・・・ 550｜5050↓
42:デフォルトの名無しさん
06/01/23 11:03:28
課題11図省略
URLﾘﾝｸ(www.imgup.org)
URLﾘﾝｸ(www.imgup.org)
を参照（全部で3つ）
43:デフォルトの名無しさん
06/01/23 11:06:38
Basic課題１２（2005/1/11）
問 以下の処理を1つのプログラムで記述します。プログラムは1つです。
１．5行5列の行列[A]にデータを入力し、表示しなさい。
データは不規則な値とする。
２．行列[A]の転置行列を行列[B]に代入し表示しなさい。
３．行列[A]＋行列[B]の計算をして表示しなさい。
４．行列[A]－行列[B]の計算をして表示しなさい。
５．行列[A]＊行列[B]の計算をして表示しなさい。
プログラムと結果を提出します。
44:デフォルトの名無しさん
06/01/23 11:08:13
秋田。あとよろしく
45:デフォルトの名無しさん
06/01/23 11:44:35
せめて
どこまでできたのか、何が分からないのか、
を書けよ。
ほんとに全部まる投げか？
46:デフォルトの名無しさん
06/01/23 15:07:27
>>40
1
5 dim a$(1)
10 a$(0)=" 111+112+113+114+115+116+117+118+119+120+121=?"
20 print a$(0)
30 print 111+112+113+114+115+116+117+118+119+120+121
2
5 dim a$(1)
10 a$(0)="0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0"
20 print a$(0)
30 print 0
40 print 0
50 print 0
60 print a$(0)
47:デフォルトの名無しさん
06/01/23 19:33:09
ごめんなさい・・・(；ω；)
全然わからないんです・・・orz (・ー・）ｵﾜｯﾀﾅ･･･
皆さん、ご迷惑をおかけして申し訳ございませんでした・・・(´つω-`)
48:BASIC
06/01/23 22:05:08
N人分のデータ（氏名、住所、電話番号）がＤＡＴＡ文で入力されているプログラムが
ある。
氏名を入力すると、住所と電話番号が表示されるプログラムをＢＡＳＩＣで作成
しなさい
49:デフォルトの名無しさん
06/01/24 00:16:13
良スレハケーン
Microsoft Visual Studio .NETなんですが
よくある３×３マスの○×ゲームのソースをお願いできないでしょうか
50:デフォルトの名無しさん
06/01/24 01:11:58
>>49
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Debug.WriteLine("×|○|○")
Debug.WriteLine("--+--+--")
Debug.WriteLine("○|×| ")
Debug.WriteLine("--+--+--")
Debug.WriteLine(" | |×")
Debug.WriteLine("俺の勝ち")
End
End Sub
51:49
06/01/24 01:29:11
>>50
サンクス
助かりました
52:デフォルトの名無しさん
06/01/24 11:32:45
宿題スレだろ？いじわるなやつばっかだなｗってか、おまえらわからないんだろ？あ？俺はしらね
53:デフォルトの名無しさん
06/01/24 11:42:55
宿題ってのは自分でやるもんだ。
54:BASI
06/01/25 11:01:03
N人分のデータ（氏名、住所、電話番号）がＤＡＴＡ文で入力されているプログラムが
ある。
氏名を入力すると、住所と電話番号が表示されるプログラムをＢＡＳＩＣで作成
しなさい
期日が迫っているので、だれか早くこたえてくれ！！
55:デフォルトの名無しさん
06/01/25 11:17:34
問題は DATA 文が65536 行あるって点だな。
56:デフォルトの名無しさん
06/01/26 18:29:37
>>54
110 N=5
120 INPUT "氏名：";S$
130 FOR I=1 TO N
140 READ A$,B$,C$
150 IF S$="氏名" THEN PRINT "住所と電話番号":END
160 NEXT
170 END
180 DATA "鈴木","北海道","AAAA-BB-CCCC"
190 DATA "佐藤","埼玉県","DDD-EEE-FFFF"
200 DATA "伊藤","奈良県","GGG-HHH-IIII"
210 DATA "田中","福岡県","JJJJ-KK-LLLL"
220 DATA "山田","沖縄県","MMMM-NN-OOOO"
57:ＢＡＳＩＣ
06/02/04 13:46:27
三角関数の値を０度から１８０度まで計算するプログラム
を作成しなさい（ＦＯＲーＮＥＸＴを用いて）
ただし、Ｒ＝３．１４１５９/180とすると、sin(R*30)でsin30度の
値を求めることができる。
値を
58:デフォルトの名無しさん
06/02/04 13:59:11
>値を
sin(R*30) = 0.499999616987256
59:デフォルトの名無しさん
06/02/04 19:21:23
ﾌﾟﾛｸﾞﾗﾐﾝｸﾞの勉強をしようと思って、ｲﾝﾀｰﾈｯﾄを使っていろいろ試してみた。
それで最終的にTinyBASICに落ち着いた。
他にもVB.NET・ActiveBasic・REALbasicがあるのを知っている。
その中からTinyBASICを選んだ俺の選択は正しかったですか？
60:デフォルトの名無しさん
06/02/05 06:54:57
>>57
10 goto 20
20 for i=0 to 180:print sin(3.1415926535897932384626433832795028841971693993751/180*i):next
30 rem sin関数ってラジアンなんですか？
61:デフォルトの名無しさん
06/02/07 18:42:41
お願いします。
1.SQR(N)を用いて、2から10までの自然数について、
Nとその平方根を表示するプログラムつくれ
ヒント：fo ～ next
2.自然数Nを入力すると、
1+2+3・・・+Nを計算するプログラムつくれ
3.関数sin(X)とsin(180-x)の値を0度から180度まで
表示するプログラムつくれ
62:デフォルトの名無しさん
06/02/07 19:28:57
>>61
仕様の不明な部分については俺のｴｽﾊﾟｰ能力で補完しといてやった。
100 ' 1.
110 FOR N=2 TO 10: PRINT N, SQR(N): NEXT
120 ' 2.
130 INPUT "N=";N: S=0: FOR I=1 TO N: S=S+I: NEXT: PRINT S, N*(N+1)/2
140 ' 3.
150 S=10: FOR D=0 TO 180 STEP S: PRINT D, SIN(D*3.14/180), SIN((180-D)*3.14/180): NEXT
63:61
06/02/07 19:53:48
>>62
ありがとうございました。
64:デフォルトの名無しさん
06/02/08 14:39:42
>>59
There are a lot of roads that can be chosen.
However, the aimed top is one.
65:デフォルトの名無しさん
06/02/10 02:05:17
ぬるぽ
66:デフォルトの名無しさん
06/02/14 02:02:30
＿
┌―─┴┴─―┐
│ セルフサービス .│
└――┬┬─―┘
││ .／
゛゛'゛'゛ ／
／
| ＼／
＼ ＼
＼ノ
ｶﾞｯ はセルフサービスになりました。
使用方法は以下のようになります
∧
ｶﾞｯ< >＿∧
＝ ()二)Ｖ｀Д´）＜ぬるぽ
＼ヽ ﾉ ）
ﾉ(○´ノ
（＿ﾉ（_＿）
尚、使用方法を誤ると、最悪の場合、命を落とす危険性がございますので、
初めてご使用される方は、各都道府県に設置してある専門の窓口に相談下さい。
財団法人 全日本 ぬるぽｶﾞｯ セルフ振興会
67:BASIC
06/03/14 20:50:41
予約語ってなんですか？
68:デフォルトの名無しさん
06/03/14 22:15:10
使用が予約された言葉
69:http://www.vector.co.jp/soft/win95/util/se072729.html
06/03/18 20:25:48
TextSS のWindowsXP(Professional)64bit化おながいします
もしくは64bitにネイティブ対応したテキスト置換ソフトありますか？
70:デフォルトの名無しさん
06/05/16 23:29:02
Visual Basicで3つの数の最小公倍数を表示するプログラムをお願いします。
71:デフォルトの名無しさん
06/05/17 00:10:27
>>70
MsgBox "2, 3, 4の最小公倍数は12です。"
72:デフォルトの名無しさん
06/05/17 00:19:36
「3つの数の最小公倍数」のような数を列挙する時、
3 つの数が全て等しい場合なども考慮して良ければ自然数全体になるから、
1 から始めて 1 ずつ増やしながらコンピュータの限界まで数を表示し続ければ
良いでしょう。
もし異なるとすると厄介ですね。
一つの数が 1 でよいなら素数と素数の二乗を除いた全ての数になりますが、
これはちょっと難しいかも。
1 を許さないとするとかなり複雑になりますね。
73:デフォルトの名無しさん
06/05/17 21:54:45
四則演算の電卓を作るプログラムなんですけど、ここからわかりません。
ご指摘お願いします。
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim e As Integer
Dim f As Integer
Dim g As Integer
Dim h As Integer
Dim i As Integer
Dim j As Integer
Dim tasu As Integer
Dim hiku As Integer
Dim kakeru As Integer
Dim waru As Integer
74:デフォルトの名無しさん
06/05/17 21:55:41
--------------------------
Private Sub Command1_Click()
Text1.Text = "0
End Sub
--------------------------
Private Sub Command10_Click()
Text1.Text = "9"
End Sub
--------------------------
Private Sub Command11_Click()
a = Val(Text1.Text)
b = Val(Text1.Text)
c = Val(Text1.Text)
d = Val(Text1.Text)
e = Val(Text1.Text)
f = Val(Text1.Text)
g = Val(Text1.Text
h = Val(Text1.Text
i = Val(Text1.Text)
j = Val(Text1.Text)
Text1.Text = ""
End Sub
75:デフォルトの名無しさん
06/05/17 21:56:43
--------------------------
Private Sub Command12_Click()
tasu = Val(Text1.Text)
hiku = Val(Text1.Text)
kakeru = Val(Text1.Text)
waru = Val(Text1.Text)
Select Case Val(Text1.Text)
Case 1
Select Case Val(Text1.Text)
Case 1
tasu = tasu + a
Text1.Text = tasu
Case 2
tasu = tasu + b
Text1.Text = tasu
Case 3
tasu = tasu + c
Text1.Text = tasu
Case 4
tasu = tasu + d
Text1.Text = tasu
Case 5
tasu = tasu + e
Text1.Text = tasu
76:デフォルトの名無しさん
06/05/17 21:57:22
Case 6
tasu = tasu + f
Text1.Text = tasu
Case 7
tasu = tasu + g
Text1.Text = tasu
Case 8
tasu = tasu + h
Text1.Text = tasu
Case Else
tasu = tasu + i
Text1.Text = tasu
77:70
06/05/19 00:56:45
やはり難しいのでしょうかね
弟の高校の課題っぽいんですが、Cで作ったら全然違うとのこと
資料を送ってもらったらBASICっぽいのですが、BASICなんて分からないです…
gcmとかlcmで一発で動いてくれるようなコマンドはないのでしょうかね…
78:デフォルトの名無しさん
06/05/20 03:36:37
>>77
なあなあ、お前完全に>>72に騙されてるんだが。
79:デフォルトの名無しさん
06/05/20 11:13:57
>>78
誰も書いてくれないので難しいものなのかなと思いましたが
そんなわけないですよね。
まあ>>72は読んですぐスルーしましたけど。
80:デフォルトの名無しさん
06/05/20 11:23:59
一応Cで書くとこんな感じになると思うのですが
これをVisualBasicに書き直すのがうまくいきません。
#include <stdio.h>
int lcm(int x,int y,int z);
main()
{
int a,b,c,d;
printf("整数aを入力 ");
scanf("%d",&a);
printf("整数bを入力 ");
scanf("%d",&b);
printf("整数cを入力 ");
scanf("%d",&c);
d = lcm(a,b,c);
printf("%d と %d と %d の最小公倍数は %d です。\n",a,b ,c,d);
}
int lcm(int x,int y,int z)
{
int answer;
answer = x;
while(1){
if(answer % y == 0 && answer % z == 0)
break;
answer += x;
}
return answer;
}
81:デフォルトの名無しさん
06/05/20 12:39:42
>>80
残りのUI関係は自分でやっとくれ。
Function lcm(ByVal x As Integer, ByVal y As Integer, ByVal z As Integer) As Integer
Dim answer As Integer
answer = x
Do
If ((answer Mod y = 0) And (answer Mod z = 0)) Then Exit Do
answer = answer + x
Loop
lcm = answer
End Function
82:デフォルトの名無しさん
06/05/20 12:43:19
おまけ： ユークリッドの互除法を使った場合
Function gcd(ByVal a As Integer, ByVal b As Integer) As Integer
Dim c As Integer
Do While b <> 0
c = a Mod b
a = b
b = c
Loop
gcd = a
End Function
Function lcm(ByVal a As Integer, ByVal b As Integer) As Integer
lcm = a * b / gcd(a, b)
End Function
Function lcm3(ByVal a As Integer, ByVal b As Integer, ByVal c As Integer) As Integer
Dim d As Integer
d = lcm(a, b)
lcm3 = lcm(c, d)
End Function
83:デフォルトの名無しさん
06/05/20 15:41:02
>>81-82
ありがとうございました。
84:デフォルトの名無しさん
06/05/25 23:18:38
ピクチャーボックスにrgbを使って上から順に明るい色から暗い色の
グラディエーションを表示するプログラムの作成お願いします。
85:デフォルトの名無しさん
06/05/25 23:59:32
嫌です。
86:デフォルトの名無しさん
06/05/29 20:32:36
好きな数字を入力して、その1部や全体が連続して居ないか調べて、
もしあればその部分を知らせるプログラムお願いしますｍ_ _ｍ
たとえば、
87:デフォルトの名無しさん
06/05/29 20:33:49
「2112」なら、1が連続してるので1を
「19529523」なら952が連続してるので952をといった風です
すみません。切れましたorz
88:デフォルトの名無しさん
06/05/29 21:12:46
>>86
(仮称)十進BASIC
INPUT s$
LET m=LEN(s$)
FOR n=1 TO INT(m/2)
FOR i=1 TO m-n+1
IF s$(i:i+n-1) = s$(i+n:i+2*n-1) THEN
PRINT s$(i:i+n-1)
END IF
NEXT i
NEXT n
END
89:86
06/05/29 23:02:07
>>88
ありがとうございます
90:デフォルトの名無しさん
06/06/12 15:39:03
>>50
腹抱えてワロタ
91:デフォルトの名無しさん
06/06/15 22:56:25
プログラムに時間の間を与えるにはどうすればいいんでしょうか？
たとえば実行してから１秒後に"１秒経過しました"と表示させる場合とか。
92:デフォルトの名無しさん
06/06/16 00:20:11
>>91
つ TIME$
93:デフォルトの名無しさん
06/06/16 18:00:01
>>91
1 sleep(1000)
2 print "１秒経過しました"
94:91
06/06/17 00:14:03
>>93
サーンクス！！
95:デフォルトの名無しさん
06/06/18 16:40:09
beep音て変えれないの？
96:デフォルトの名無しさん
06/06/18 16:52:14
>>95
つ play
97:デフォルトの名無しさん
06/06/19 00:32:40
BEEP音でPCM再生とか昔あったなぁ
98:デフォルトの名無しさん
06/06/19 01:55:56
a=FIX(RND(1)*10):b=FIX(RND(1)*10)
c=a+b
PRINT c
のときのcの一桁目の数だけPRINTするにはどうすればいいんでしょうか？
文字列じゃないんでRIGHT$ではエラーになってしまいます・・・
99:デフォルトの名無しさん
06/06/19 20:06:10
>>98
PRINT (c MOD 10)
で出来るはず。
100:デフォルトの名無しさん
06/06/21 09:03:00
乱数を使用し、サイコロを千回振り、１から６までの出現率を求めるプログラムの作成
十進BASICで頼む10時まで…
101:デフォルトの名無しさん
06/06/21 09:11:18
１８０から４７０の範囲に入る乱数を発生させ、
２５０が発生したときに乱数の発生を止め、
範囲に入ったものの数、合計、平均、最大値、最小値を求めるプログラムの作成
これも頼む…
102:デフォルトの名無しさん
06/06/21 10:56:57
>>100-101
もう答えても遅いのか？
でも100はなんとなくわかるが、101の「180から470の乱数を発生」
がわからんかもしれん。
1000までの乱数で180～470以外を無視する感じでいいんだろうか。
103:デフォルトの名無しさん
06/06/21 12:13:45
>>102
もう終わった…
中途半端な感じで提出してしまったが…
ちなみに>>100は
DIM A(6)
RANDOMIZE
FOR J=1 TO 1000
LET S=INT(RND*6)+1
IF S=1 THEN LET A(1)=A(1)+1
IF S=2 THEN LET A(2)=A(2)+1
IF S=3 THEN LET A(3)=A(3)+1
IF S=4 THEN LET A(4)=A(4)+1
IF S=5 THEN LET A(5)=A(5)+1
IF S=6 THEN LET A(6)=A(6)+1
NEXT J
FOR J=1 TO 6
PRINT J;" ";A(J)
NEXT J
END
で
104:デフォルトの名無しさん
06/06/21 12:16:13
>>101は
DIM A(500)
LET N=1
RANDOMIZE
DO
LET P=INT(RND*500)
IF P=250 THEN EXIT DO
IF P>180 AND P<470 THEN
PRINT P;" ";
LET A(N)=P
LET N=N+1
LET S=S+P
END IF
LOOP
LET N=N-1
LET K=1
FOR J=2 TO N
IF A(J)>A(K) THEN LET K=J
NEXT J
LET MAX=A(K)
LET K=1
FOR J=2 TO N
IF A(J)<A(K) THEN LET K=J
NEXT J
LET MIN=A(K)
LET MEAN=S/N
105:デフォルトの名無しさん
06/06/21 12:17:43
PRINT "個数";N
PRINT "合計";S
PRINT "最大値";MAX
PRINT "最小値";MIN
PRINT "平均";
PRINT USING"#####.#":MEAN
END らしい…分からんてorz
106:デフォルトの名無しさん
06/06/24 00:10:54
同じ行内で文字色を変えるにはどうすればいいんですか？
たとえば
PRINT "赤""青"
の赤を赤色、青を青色にする感じです。
あー、ホントだれか頼むよ。
107:デフォルトの名無しさん
06/06/24 00:26:44
環境がわからんが、
PRINT "赤";
表示色を変える処理(COLOR 7とか)
PRINT "青"
じゃ駄目？
108:デフォルトの名無しさん
06/06/24 10:57:26
>>107
それだと
赤
青
と表示されるけど、俺がしたいのは
赤青
と表示させるやつなのね…。
やっぱ無理なのかなー。
ちなみに俺の使ってるのは結構古い
ActiveBasic ver2.56です。
授業で配布されたヤツだしやっぱ新しいのにしようかなぁ…。
109:デフォルトの名無しさん
06/06/24 12:38:21
100 FOR I=0 TO 7
110 COLOR I: PRINT MID$("イロイッカイズツ",I*2+1,2);
120 NEXT I
130 PRINT
140 COLOR 7
110:107
06/06/24 15:46:08
ActiveBasicってセミコロン無視されるの？"赤青"って1行にならない？
↓ココ
PRINT "赤";
111:デフォルトの名無しさん
06/06/24 21:10:06
なるけど>>106が理解していないだけ。
112:106
06/06/25 08:22:00
>>110
セミコロンの正しい使い方を学んだ。
トンクス！
113:デフォルトの名無しさん
06/06/29 02:43:55
改行の入った文字列はどうやって読み込ませればいいんでしょうか？
例えば
A$="Λ Λ"
"(ﾟДﾟ)"
といった風です。
やはり変数を２つ使って２行に分けるしかないんですか？
114:デフォルトの名無しさん
06/06/29 07:26:27
>>113
10 A$="Λ Λ"+CHR$(13)+CHR$(10)+"(ﾟДﾟ)"
20 PRINT A$
115:113
06/06/29 17:52:39
>>114
ありがとうございました！助かりました！
116:デフォルトの名無しさん
06/07/03 10:16:55
変数の色の指定とかってできないんですか？
A$=赤
みたいな感じです…
117:デフォルトの名無しさん
06/07/04 23:05:15
課題なんです。
何か動くのを作れってゆう課題なんです。
そこで、何かお願いします！
118:デフォルトの名無しさん
06/07/04 23:08:49
何で21世紀にもなってBASICの課題が存在してるの？
119:デフォルトの名無しさん
06/07/04 23:10:39
>>117
10 print "ばか ";
20 goto 10
とかで大丈夫かな？
120:117
06/07/04 23:19:28
>>118
あるみたいです。
>>119
大丈夫じゃないですね・・・
関数をグラフィックにして簡単な動画を。
121:デフォルトの名無しさん
06/07/04 23:30:30
処理系も指定せずに関数をグラフィックにしてなんて言われてもな
122:デフォルトの名無しさん
06/07/04 23:39:23
>>121
117 は問題をあと5,6 回に分けて小出しにして来ると思うから、
しばらくは静観してた方がいいよ。
123:117
06/07/05 00:12:28
処理系はおまかせするよ。
花火が打ちあがる様とかゴルフの球がカップに入るのとかを作ったりしてるヤシもいる。
124:117
06/07/05 00:20:47
ｽﾏｿ
処理系→(仮称)十進BASIC
125:117
06/07/05 00:23:49
>>122
確かに小出しにしてる俺ガイル
126:117
06/07/05 18:17:17
誰かおながい
127:デフォルトの名無しさん
06/07/05 20:22:55
あと二個くらい条件が増えるのかなぁ……
128:117
06/07/05 20:54:29
>>127
もう増えないです。
簡単なのでいいのでどうかおながいします・・・
129:デフォルトの名無しさん
06/07/05 21:06:08
じゃあ、処理系 FBASIC ね
10 symbol(rnd*10,rnd*10),"BAKA",10,10,rnd*7
20 goto 10
もう条件は増えないからこれでおしまいだね。
130:117
06/07/06 02:36:11
(仮称)十進BASIC
SET WINDOW 0,10,-1,10
SET POINT STYLE 4
LET t=0
LET dx=0
LET x=10
LET dt=0.0125
LET g=-9.8
LET f=1
DO WHILE t<10
LET t=t+dt
LET ox=x
LET odx=dx
LET x=ox+odx*dt
LET dx=odx+g*dt
PRINT "x=";x;"dx=";dx
CLEAR
PLOT POINTS : t,x
IF x<0 AND f=1 THEN
LET f=0
LET dx=-0.6*dx
END IF
IF x>0 AND f=0 THEN LET f=1
loop
END
こんな感じのに手を加えてみてください。
131:デフォルトの名無しさん
06/07/06 03:52:12
>>127の言ったとおりだな。次は「XX日までにお願いします」とかかな？
132:デフォルトの名無しさん
06/07/06 12:58:10
basicでクイズゲームみたいなの作りたいんですけど、
input文を使いつつ時間制限を設けるにはどうすれば？
inputが入ると(入力画面になると)そこで命令がとまってしまうわけですが、
やはりbasicでは無理でしょうか？
133:デフォルトの名無しさん
06/07/06 14:15:06
on time gosub が使える BASIC があると思うので、その BASIC を使いなさい。
134:デフォルトの名無しさん
06/07/09 18:31:48
>>132
INKEY$を使えばできるよ
135:デフォルトの名無しさん
06/07/12 13:41:26
>>134
あ、できました!
どうもどうも
136:デフォルトの名無しさん
06/07/18 21:43:05
waveファイルをリピート再生したいんですけど
mcisound "open "+chr$(34)+"D:\test.wav"+chr$(34)+" type waveaudio alias test
mcisound "play test notify",at
Do
if at=1 then mcisound "stop test":mcisound "seek test to start":mcisound "play test notify",at:at=0:
Loop
ではリピートに間ができてしまいます…
なんとかならないでしょうか？
137:名無しさん
06/07/23 13:55:30
各桁の数字に、桁数乗したものの和が、
元の数字になるものを求める。こんなものをBASICで書いてもらえませんでしょうか？？
1^3+5^3+3^3=153(←こんなようなの)
よろしくお願いします！！
138:デフォルトの名無しさん
06/07/23 16:40:04
誰かおながい
139:デフォルトの名無しさん
06/07/23 17:38:09
>>137
110 I0=0:FOR I1=1 TO 9:FOR I3=1 TO 9:FOR I5=1 TO 9:FOR I2=1 TO 9
120 FOR I4=1 TO 9:FOR I8=1 TO 9
130 I6=I8^I5+I4^I3+I2^I1:I7=100*I8+10*I4+I2
140 IF I7=I6 THEN I0=I0+1:PRINT I0,I8;"^";I5;"+";I4;"^";I3;"+";I2;"^";I1;"=";I6
150 NEXT:NEXT:NEXT:NEXT:NEXT:NEXT
160 END
140:名無しさん
06/07/23 22:11:08
>>139
ありがとうございます！
桁数を自分で指定して計算させられるようにできませんでしょうか？？
3桁以外も計算してみたいので。。。
わがままいって申し訳ございません・・・
よろしくお願いします！
141:デフォルトの名無しさん
06/07/23 22:39:12
>>140
求めたい桁数に合わせて自分で改造すれ
142:名無しさん
06/07/23 22:42:49
>>139
これだと、なんか余計なものまで表示されてるな。。。
>>137の言っているのは、
370とか、407みたいな、3桁の数の時はそれぞれの桁の数を3乗するってことだろ？？
370＝3^3+7^3+0^3とか。
ってことは>>139だとちょっと余分なものまで表示されてるぞ。
143:デフォルトの名無しさん
06/07/24 00:14:24
ベキ乗の指数を桁数に合わせるなら
DIM n(11)
MAT n = ZER
INPUT keta
IF keta<0 OR 10<keta THEN STOP
LET n(keta) = 1
DO
FOR i=1 TO keta+1
LET n(i) = n(i) + 1
IF n(i) >= 10 THEN LET n(i)=0 ELSE EXIT FOR
NEXT i
IF n(keta+1)<>0 THEN EXIT DO
LET x = 0
LET y = 0
FOR i=1 TO keta
LET x = x + n(i)^keta
LET y = y + n(i)*(10^(i-1))
NEXT i
IF x=y THEN
FOR i=keta TO 2 STEP -1
PRINT "("; n(i); "^"; keta;") + ";
NEXT i
PRINT "("; n(1); "^"; keta; ") ="; x
END IF
LOOP
END
昔のM$系ではループ処理がめどいので十進BASICでやった。
つーか、質問する時はどの処理系でやるのかまで指定しろよ。
BASICったって色々あるし、処理系によって文法も違うんだから。
144:名無しさん
06/07/24 01:43:18
>>143さん
ありがとうございます！
すみません。処理系を書くのをわすれていました。
当方は、UBASICを使用しておりまして、少し十進BASICとは異なるようです。。。
もしお時間がございましたら、そちらでも書いていただけたら幸いです。
145:名無しさん
06/07/24 15:10:40
>>143
さすがに桁が多くなると時間かかるなｗ
146:デフォルトの名無しさん
06/07/24 22:00:55
>>144
さすがにあんたのためだけにソフト入れて試してる暇はない。
大して特殊なことはしてないから自分で直せ。
MAT n = ZER → FOR I=1 TO 11: N(I)=0: NEXT
DO ～ LOOP → WHILE 1 ～ WEND または GOTO を使った無限ループ
EXIT FOR, EXIT DO → それぞれ FORループ, DO～LOOPループを抜けるGOTO
IF ～ END IF → 1行の IF文にまとめる
UBASICはどうか知らんが、これで大抵の処理系で実行できるだろう。
147:デフォルトの名無しさん
06/08/03 18:39:50
Format関数で通貨記号付きで、3桁ごとのカンマ区切り、且つ小数点以下切捨てで変数を出力する、Format関数を書け
VisualBasicの課題でこれだけわからないのでお願いします。
148:デフォルトの名無しさん
06/08/04 22:54:42
SQL文なら >>1 は、こんな感じ。
SELECT [Name] FROM DataTable WHERE [Height] >= 160 AND [Height] < 170
149:デフォルトの名無しさん
06/08/12 11:06:43
あとは SQL を BASIC で実装すればおしまいだね。
150:デフォルトの名無しさん
06/09/30 13:48:49
サイコロを何回も投げて次々出目を入力した時に各自の出た回数を表示するプログラムを作れ
ただし入力終了の合図は０を入力した時とする
一晩頑張りましたがdim使えの一言で突っ返されました
習い始めで全く理解出来ません…誰かお願いします
↓これ出して突っ返されました
10 input "サイコロの目=",d
20 if d=0 goto 110
30 if d=1 then a=a+1
40 if d=2 then b=b+1
50 if d=3 then c=c+1
60 if d=4 then e=e+1
70 if d=5 then f=f+1
80 if d=6 then g=g+1
90 if d>6 then print "無効な数値"
100 goto 10
110 print "1の目",a,"回 2の目",b,"回 3の目",c,"回 4の目",e,"回 5の目",f,"回 6の目",g,"回"
120 end
151:デフォルトの名無しさん
06/09/30 14:52:12
basicは完全に忘れちゃったので、概要だけ
dim dice(6)
loop:
input "サイコロの目=",d
id d=0 then goto exit
if 1<=d and d<=6 then dice(d)=dice(d)+1: goto loop
print "無効な数値"
goto loop
exit:
for i=1 to 6
print i;"の目=";dice(i)
next
こんな感じ
152:デフォルトの名無しさん
06/09/30 15:11:30
同じ様なデータに番号つけて扱うのが配列。
例えば a という配列があったとしたら
a の 1 番目の要素は a(1)
a の 2 番目の要素は a(2)
a の 3 番目の要素は a(3)
って感じ。
で、ここからポイント。
★配列の何番目を使いたいかを示す番号（添字という）★
★には、変数を使うことが出来る。。。★
例えば a1, a2, a3 という変数を作って
d 番目の変数を使いたいからって ad なんてやってもそれは別の変数になってしまう。
ところが配列の場合は
a(d)
と書けば「a という配列の d 番目」を使える。
dim 命令はそんな配列を使うために使うのさ。
153:デフォルトの名無しさん
06/09/30 15:43:52
>>151
サンクス！そのままだと構文エラー出まくるんで何とか意味理解してみる…
>>152
なるほど…配列からバラバラに引き出せるとはなんと便利な…
154:デフォルトの名無しさん
06/09/30 16:03:15
>>151-152
出来ました！
配列使うとホントに無駄が無いんですね…ありがとうございました！
155:デフォルトの名無しさん
06/09/30 16:09:36
>>154
考え方が逆でして、今回は無駄があるところを配列を使って纏められただけです
なので有効性を考えずに配列を使うのはバカの一つ覚えになりますぉ
156:句読点書けないバカをサマージャンボする俺 ◆9NQzQ21lx.
06/09/30 16:35:45
>>155
157:デフォルトの名無しさん
06/10/23 10:10:56
ファイルダイアログみたいなのでファイル指定して、読み込みたいのですが
だれか御教授ください。
n=FreeFile()
i=0
FileOpen(n,"data.dat",OpenMode.Input)
Do While Not EOF(n)
input(n,a(i))
i +=1
loop
FileClose(n)
としたとき、ファイルを指定（"data.dat"）するのではなくて、ファイルダイアログで指定したいのです。
おねがいします。 vb.netです。
158:デフォルトの名無しさん
06/10/23 10:14:20
URLﾘﾝｸ(dobon.net)
で色々探してみて
159:デフォルトの名無しさん
06/10/25 08:59:57
↑
ありがとうありがとうありがとう ほんまありがとう めちゃ助かった！！！
160:デフォルトの名無しさん
06/10/30 20:48:24
ＶＢ.netについてです。
ボタン１を押すと”別ウィンドウに”グラフが描画されるようにしたいのですが、どなたか御教授ください。
Form1にはボタンがあって、それを押すと別のフォームが出現して、そこにあるpictureBoxにグラフが出力できるようにしたいのです。
161:デフォルトの名無しさん
06/11/10 16:01:33
F-BASICのエラーなんですが
ﾋﾞﾙﾄﾞ方法が指定されていません。
て出るんですけどどうすれば解決されるんでしょうか
162:なぽ
06/11/29 04:55:15
４行４列の行列ＡとＢの積の計算のプログラムをおそえてくださーーーい
163:デフォルトの名無しさん
06/11/29 23:45:00
>>162
MAT C = A * B
164:デフォルトの名無しさん
06/11/30 19:26:32
問．2次元配列を使用して以下の計算をしなさい。
行の和→
01 02 03 04 05 06 07 08 09 10 55
列 11 12 13 14 15 16 17 18 19 20 155 ←和は出せたのですが、
の ・ ここに表示させる方法が
和 ・ 分かりません。
↓ ・
91 92 93 94 95 96 97 98 99 100 955
460 470 ・・・・・ 5050
01 02 03 04 05 06 07 08 09 10 0
11 12 13 14 15 16 17 18 19 20 10
・ 29 ←これは全然分かりません。
・
81 ・
91 92 93 94 95 96 97 98 99 100 414
0 91 173 ・・・・・ 505
↑右斜め下方向の和
どうかお願いしますm(_ _)m
165:デフォルトの名無しさん
06/12/01 15:48:01
>>164
いやもう帰っていいよ
ほんとに
166:デフォルトの名無しさん
06/12/02 01:39:48
>>164
10 DIM A(11,11):N=10:FOR I=1TO N:FOR J=1TO N: A(I,J)=(I-1)*N+J:NEXT:NEXT:Z=0:FOR I=1TO N:X=0:Y=0:
20 FOR J=1TO N:X=X+A(I,J):Y=Y+A(J,I):NEXT:A(I,N+1)=X:A(N+1,I)=Y:Z=Z+X:NEXT:A(N+1,N+1)=Z:FOR I=1TO N+1:
30 FOR J=1TO N+1:PRINT USING" ####";A(I,J);:NEXT:PRINT:NEXT:FOR I=1 TO N+1:X=0:Y=0:FOR J=I TO N:
40 X=X+A(J,J-I+1):Y=Y+A(J-I+1,J):NEXT:A(N+1,N-I+2)=X:A(N-I+2,N+1)=Y:NEXT:FOR I=1TO N+1:FOR J=1TO N+1:
50 PRINT USING" ####";A(I,J);:NEXT:PRINT:NEXT
167:デフォルトの名無しさん
06/12/03 00:10:16
>>166
ありがとうございます！
助かりました。
168:何卒よろしくお願いします
06/12/06 09:32:13
標準正規分布を使った仕入れ最適問題です。(Windows板N88BASIC)
１個40円で仕入れ100円で売る。売れ残った物は1個15円で引き取ってもらう。
統計によれば1日に売れる物は平均800標準偏差120の正規分布に従っている。
1日にいくつ仕入れれば利益が最大になるか。
プログラムの一部を下に書きます。何処か写し間違えがあるかもしれませんがよろしくお願いします。
(s:仕入れtotal:粗利計k:客数a:余りの部数)
for s=600 to 1000 step 20
total=0
for day=1 to 500
gosub *nomal(所定の正規分布乱数を作ってrに入れて戻る)
k=int(120*r+80)
if s<=k then (何処かの行番号)
arari=100*s-40*s
else
a=s-k
arari=100*k-40*s+15*a
tatal=total+arari
next day
169:デフォルトの名無しさん
06/12/06 10:34:52
>>168
tatalとはなでふおどろおどろしきこと哉
170:デフォルトの名無しさん
06/12/06 12:54:45
>>169
すいません、言ってる事がわかりません＞＜
171:デフォルトの名無しさん
06/12/07 07:33:16
> 何処か写し間違えがあるかもしれませんが
> tatal=total+arari
> tatal=total+arari
> tatal=total+arari
172:デフォルトの名無しさん
06/12/07 09:53:38
>>171
その通りです。誰か助けてください＞＜
173:デフォルトの名無しさん
06/12/08 01:47:00
>>168
XT=0:XS=0
FOR S=600 TO 1000 STEP 20
TOTAL=0: KT=0
FOR DAY=1 TO 500
GOSUB *NOMAL
K=INT(120*R+800)
IF S<=K THEN
ARARI=100*S-40*S
ELSE
A=S-K
ARARI=100*K-40*S+15*A
END IF
TOTAL=TOTAL+ARARI: KT=KT+K
NEXT DAY
IF TOTAL>XT THEN XT=TOTAL:XS=S
PRINT "仕入れ／日: ";S,"粗利計:";TOTAL,"客数平均:";KT/500
NEXT S
PRINT "利益が最大になったのは";XS;"個仕入れたとき"
END
*NOMAL
R=(RND+RND+RND+RND+RND+RND+RND+RND+RND+RND+RND+RND)-6
RETURN
174:デフォルトの名無しさん
06/12/08 01:53:23
プログラミング自体全然分かってないです(>_<)
それでも課題はやらなきゃいけない････
誰か助けてください
その①
『入力された3桁の自然数ａに対し、ａの一の位、十の位、
百の位の和Ｓと、Ｓを３で割ったときの余りを表示する
プログラムを作れ』
その②
『自然数ｎに対し、ｎ以外の正の約数の和がｎに等しいと
き、ｎを完全数という。10,000以下の全ての完全数を、
プログラムを作って求めよ』
教えてくださいお願いします!!
175:Nw
06/12/08 02:15:02
BASICで書いて頂けませんか？
10： 20： ってな感じで・・
1.数A，B，Cを入力してA＞BかつB＞CならA＊B＊Cの計算を、A＞BかつB≦Cなら
A＋B＋Cの値を、A≦BならA/B＋Cの値を求めるプログラム。
2.1＋2＋3＋・・・・＋X の合計が初めて200を超える X の値を表示するプログラム。
3.1,3,5,7,9,・・・・, X までの和を求め、和が1000を超えない X の最大値を表示するプログラム。
4.X,Yを入力し、X=1でY=2なら"A"と、X=3でY=4なら"B"と、X=5でY=6なら"C"と表示し、
上記以外の数字の組み合わせを入れたときはプログラムの最初に戻るプログラム。
5.2つの数XとYを入力し、両方マイナスのときは√(X*Y)を、どちらか一方がプラスのときはX*Yを、
両方プラスのときはX/Yのそれぞれの値を表示するプログラム。
6.自然数MからNｍでの和と平均を求めるプログラム。（NとMの値は入力するものとし、M<Nとする）
S=M＋・・・・＋N
7.Y=3X^3 ＋2X^2 ＋X ＋15 において、Xの値を-10から10まで、0.5刻みで変化させてYの値を求めるプログラム。
8.AAB＋BB=BAA つまり、（100×A＋10×A＋B）＋（10×B×B）=（100×B+10×A+A）となるAとBを
求めるプログラム。（A,Bは一桁の整数）
9.ABA×B=BCBつまり（100×A+10×B+A）×B=(100×B+10×C+B)となるA,B,Cを求めるプログラム。
10.三角形の辺A,B,Cにおいて、それぞれを1から20まで変化させたとき、直角三角形となる組み合わせをすべて
求めるプログラム。
11.Y=6X^2 - 5X - 9 の式において、-10≦X≦10 の範囲でYの最大値を求めるプログラム。
（Xは、0.2刻みとする）
自分でやるべきなのですが、分からなくて・・
早急に解答が欲しいのですが、教えて頂ける方がおられましたら
どうか宜しくお願いします
176:デフォルトの名無しさん
06/12/08 02:56:23
>>174
>>174
>その①
100 INPUT "N";N
110 W=(N MOD 10)+(INT(N/10) MOD 10)+(INT(N/100) MOD 10)
120 PRINT W, W MOD 3
>その②
100 FOR A=1 TO 10000
110 C=0
120 FOR B=1 TO A-1
130 IF ((A MOD B) = 0) THEN C=C+B
140 NEXT
150 IF C=A THEN PRINT A
160 NEXT
177:デフォルトの名無しさん
06/12/08 02:58:25
>>175
10 PRINT "糞して寝ろ"
178:デフォルトの名無しさん
06/12/09 04:21:21
>>175
11 INPUT A,B,C:IF A>B AND B>C THEN PRINT A*B*C ELSE IF A>B AND B<=C THEN PRINT A+B+C ELSE PRINT A/B+C
21 X=X+1:T=T+X:IF T>200 THEN PRINT X ELSE 21
31 FOR I=1 TO 500 STEP 2:T=T+I:IF T>1000 THEN PRINT I-2 ELSE NEXT
41 INPUT X,Y:IF X=1 AND Y=2 THEN PRINT "A" ELSE IF X=3 AND Y=4 THEN PRINT "B" ELSE IF X=5 AND Y=6 THEN PRINT "C" ELSE 10
51 INPUT X,Y:IF X<0 AND Y<0 THEN PRINT SQR(X*Y) ELSE IF X>=0 AND Y>=0 THEN PRINT X*Y ELSE PRINT X/Y
61 INPUT M,N:IF M<N THEN PRINT (N^2-M^2+M+N)/2,(N+M)/2
71 FOR I=-100 TO 100 STEP 5:X=I/10:PRINT 3*X^3+2*X^2+X+15:NEXT
81 FOR A=1 TO 9:FOR B=1 TO 9:IF A*99=B*88 THEN PRINT A,B
82 NEXT:NEXT
91 FOR A=1 TO 9:FOR B=1 TO 9:FOR C=1 TO 9:IF (A*101+B*10-101)*B=C*10 THEN PRINT A,B,C
92 NEXT:NEXT:NEXT
101 FOR A=1 TO 20:FOR B=1 TO 20:FOR C=1 TO 20:IF A*A+B*B=C*C OR B*B+C*C=A*A OR C*C+A*A=B*B THEN PRINT A,B,C
102 NEXT:NEXT:NEXT
111 YM=-1.E23:FOR I=-100 TO 100 STEP 2:X=I/10:Y=6*X^2-5*X-9:IF Y>YM THEN YM=Y
112 NEXT: PRINT YM
179:デフォルトの名無しさん
06/12/10 00:07:39
xの値が-2～2変化したときの、関数f(x)=sin(1/x)のグラフと、
xの値が0～4変化したときの、関数f(x)=cos(x^2)のグラフを描く
プログラムを教えてください。どうかお願いします。
180:デフォルトの名無しさん
06/12/10 01:54:40
>>179
! f(x) = sin(1/x)
DEF f(x) = SIN(1/x)
SET WINDOW -2,2,-2,2
DRAW GRID(0.5,0.5)
FOR x=-2 TO 2 STEP 0.01
WHEN EXCEPTION IN
PLOT LINES: x, f(x);
USE
PLOT LINES
END WHEN
NEXT x
END
! f(x) = cos(x^2)
DEF f(x) = COS(x^2)
SET WINDOW -0.1,4,-2.05,2.05
DRAW GRID(0.5,0.5)
FOR x=0 TO 4 STEP 0.01
WHEN EXCEPTION IN
PLOT LINES: x, f(x);
USE
PLOT LINES
END WHEN
NEXT x
END
181:デフォルトの名無しさん
06/12/10 15:14:22
>>180
やってもらった後で大変申し訳無いんですが、
N88互換BASICで出来るものをお願いします。
書き忘れててすいません。
182:デフォルトの名無しさん
06/12/10 16:09:45
>>181
100 DIM A$(21):ON ERROR GOTO 130
110 FOR I=1 TO 41:A$(I)=SPACE$(20)+"|"+SPACE$(20):NEXT:A$(11)=STRING$(20,"-")+"+"+STRING$(20,"-")
120 FOR I=-20 TO 20:J=INT(SIN(10/I)*10):MID$(A$(11-J),I+21,1)="*":NEXT:FOR I=1 TO 21:PRINT A$(I):NEXT:END
130 RESUME NEXT
100 DIM A$(21):ON ERROR GOTO 130
110 FOR I=1 TO 41:A$(I)="|"+SPACE$(40):NEXT:A$(11)="+"+STRING$(40,"-")
120 FOR I=0 TO 40:J=INT(COS(I*I/100)*10):MID$(A$(11-J),I+1,1)="*":NEXT:FOR I=1 TO 21:PRINT A$(I):NEXT:END
130 RESUME NEXT
183:デフォルトの名無しさん
06/12/10 18:00:28
>>182
psetやlineを使わないといけないみたいなんです。
たびたびで本当に申し訳無いんですが、
どうかお願いします。
184:デフォルトの名無しさん
06/12/10 19:09:21
>>183
条件は最初に全部書け
て言うかもう問題文全部そのまま晒せ
185:デフォルトの名無しさん
06/12/10 20:16:49
>>184
本当に申し訳無いです･･･
問題文は、
１．xの値を-2～2変化したときの、関数f(x)=sin(1/x)のグラフを作成しなさい。
２．xの値を0～4変化したときの、関数f(x)=cos(x^2)のグラフを作成しなさい。
です。
この課題が出される前に説明されたことは、
locate、line、pset、circleについてです。
186:デフォルトの名無しさん
06/12/10 22:31:19
>>185
>１．xの値を-2～2変化したときの、関数f(x)=sin(1/x)のグラフを作成しなさい。
100 cls:line(0,0)-(400,200),7,b:line(0,100)-(400,100),7:line(200,0)-(200,200),7
120 locate 25,7:print"0":locate 0,7:print"-2":locate 50,7:print"2":
123 locate 25,0:print"1":locate 25,13:print"-1"
136 for x=-2 to 2 step 0.001:if x<>0 then pset(x*100+200,100-sin(1/x)*100)
140 next:end
>２．xの値を0～4変化したときの、関数f(x)=cos(x^2)のグラフを作成しなさい。
100 cls:line(0,0)-(400,200),7,b:line(0,100)-(400,100),7:
122 locate 1,7:print"0":locate 50,7:print"4"
126 locate 1,0:print"1":locate 0,13:print"-1"
137 for x=0 to 4 step 0.001:if x<>0 then pset(x*100,cos(x^2)*100+100)
140 next:end
187:デフォルトの名無しさん
06/12/11 19:56:50
>>186
何度もご迷惑をおかけしました･･･
ありがとうございます。
188:デフォルトの名無しさん
06/12/25 02:16:06
１．次の連立一次方程式を解きなさい。
2x+ y+ z=2
｛ 2x+2y+ z=4
x+ y+3z=1
処理は以下の手順で行なう。
① 2 1 1 2
② 2 3 1 4
③ 1 1 3 -1 処理方法 処理順
-------------------------------------------------------
④ 1 0.5 0.5 1 ①を２(=a11)で割る 1
⑤ 0 2 0 2 ④を２(=a21)倍し、②から引く 2
⑥ 0 0.5 2.5 -2 ④を１(=a31)倍し、③から引く 3
-------------------------------------------------------
⑦ 1 0 0.5 0.5 ⑧を0.5(=a12)倍し、④から引く 2
⑧ 0 1 0 1 ⑤を２(=a22)で割る 1
⑨ 0 0 2.5 -2.5 ⑧を0.5(=a32)倍し、⑥から引く 3
-------------------------------------------------------
⑩ 1 0 0 1 ⑫を0.5(=a13)倍し、⑦から引く 2
⑪ 0 1 0 1 ⑫を０(=a23)倍し、⑧から引く 3
⑫ 0 0 1 -1 ⑨を2.5(=a33)で割る 1
２．作成したプログラムの一部を変更して6元連立1次方程式を解きなさい。
値は自作する。
どうかよろしくお願いします！
189:デフォルトの名無しさん
06/12/25 03:17:41
１．
100 N=3
110 DIM A(N,N+1)
120 '
130 FOR J=1 TO N: FOR K=1 TO N+1: READ A(J,K): NEXT K: NEXT J
140 FOR J=1 TO N: FOR K=1 TO N+1: PRINT A(J,K);:NEXT K: PRINT: NEXT J:PRINT
150 '
160 FOR I=1 TO N
170 T = A(I,I): FOR K=1 TO N+1: A(I,K) = A(I,K) / T: NEXT K
180 FOR J=1 TO N
190 IF J<>I THEN T = A(J,I): FOR K=1 TO N+1: A(J,K) = A(J,K) - T*A(I,K):NEXT K
200 NEXT J
210 FOR J=1 TO N: FOR K=1 TO N+1: PRINT A(J,K);:NEXT K: PRINT: NEXT J:PRINT
220 NEXT I
230 '
240 FOR I=1 TO N: PRINT A(I,N+1): NEXT I
250 '
260 DATA 2, 1, 1, 2
270 DATA 2, 3, 1, 4
280 DATA 1, 1, 3, -1
２．
100 N=3 → N=6
190:デフォルトの名無しさん
06/12/25 16:00:53
>>189
ありがとうございます！
191:デフォルトの名無しさん
06/12/25 22:32:47
問．整数ｎ(49以下の奇数とする)を入力し、寸法ｎの魔方陣を作成し表示しなさい。
魔方陣とは１からn＾2までの整数n×nの正方行列の形にならべたもので、
それぞれの行要素、列要素の和、および対角線の和が等しいものをいう。
プログラムは寸法ｎが奇数の場合、ド･ラ･ルーブルの方法を用いる。
その方法は以下である。
結果は、n=3、n=7、「適当な次元」の3つを提出する。
○１ ○ ○１ ○ ○１ ○ １．第1行中央列に１を書く。
○○○ → ○○○ → ３○○ ２．次の数字を右斜め上に書く。
○○○ ○○２ ○○２ ２．を適用できない場合は、以下の規則に従う。
３．右斜め上にすでに数字がある場合と、
○１○ ○１ ６ ○１ ６ 右斜め上が右上隅の角である場合、
→ ３○○ → ３ ５○ → ３ ５ ７ 今書いた数字の真下に書く。
４○２ ４○２ ４○ ２ ４．右斜め上が上側に出る場合、
１つ右の列の最下段に書く。
８ １ ６ ８ １ ６ 15 ５．右斜め上が右側に出る場合、
→ ３ ５ ７ → ３ ５ ７ 15 ←行の和 １つ上の行の最左端に書く。
４ ○２ ４ ９ ２ 15
15 15 15 15 ←対角線の和
↑
列の和
どうしてもわかりません･･･
どうか宜しくお願いします。
192:デフォルトの名無しさん
06/12/25 23:17:33
>>191
>>34
193:デフォルトの名無しさん
06/12/26 17:22:44
>>192
>>34を参考にして繰り返し内の文を簡単にしようと
自分でやってみたんですが、このように表示されてしまいます→ ０ １ ０
おかしい所の訂正をお願いします。 ０ ０ ０
０ ０ ０
100 color 0,7:cls
110 dim a(99,99)
120 input "n";n
130 if n mod 2=0 then print "（ ´,_ゝ｀）ﾌﾟｯ":end
140 x=n\2+1:y=1
150 for i=1 to n*n
160 a(y,x)=i
170 if i mod n=0 then y=y+1 else goto 180
180 if y=1 then y=n and x=x+1 else goto 190
190 if x=n then y=y-1 and x=1 else goto 200
200 if y<>1 and x<>n then y=y-1 and x=x+1
210 next i
220 for i=1 to n
230 for j=1 to n
240 print a(i,j);
250 next j
260 print
270 next i
280 end
194:デフォルトの名無しさん
06/12/26 19:30:22
>>193
170～200行
何もせずに次の行に行くときは「else goto NNN」は不要。
複数の文を続けて書くときは「:」で区切ること。
and は論理演算子なので、例えば180行目の「y=n and x=x+1」は
y に n を代入し、x に x+1 を代入する
ではなく
y に n と 「x と x+1が等しいかどうかの結果（常に偽=0）」との論理積 を代入する
という意味になる。
x, y の移動先の判別も少々怪しい。
まずx, yを次の位置に移動させておいて、その位置が n×n のマス目から外れていれば
補正するようにした方が良い。
195:デフォルトの名無しさん
06/12/26 21:41:34
>>194
できました！
アドバイスありがとうございます。
196:デフォルトの名無しさん
06/12/27 15:07:46
明日までの宿題ができなくて困ってます。
どなたかBASICに詳しい方教えていただけないでしょうか。
電卓のプログラミングなんですが、
一応１＋２＝３や５×３＝１５のような簡単な計算はできるようになりました。
しかし、＝のあとに数字を打って新しく計算を始めたり
（例えば１＋２＝７－８＝という計算をしたとき、３７－８＝というようになってしまう）
１＋２＋３＝という計算をするときに、１＋２＋と打った時点で電卓に３が表示されなくて、
３＋３＝６という計算結果にすることができません。
どなたかお願いします。
197:デフォルトの名無しさん
06/12/27 15:43:43
>196
＝を選んだ時点でStringに入れていて
そのまま計算を続行してるからですよ
計算処理時は計算対象が何の変数に入っているのか
解るようにしておきましょう
198:デフォルトの名無しさん
06/12/27 16:15:19
>>197
出来ました！
これで提出できます。
本当にありがとうございました！！
199:デフォルトの名無しさん
07/01/04 19:46:43
ヨーグレット
200:デフォルトの名無しさん
07/01/06 21:16:30
どなたか助けてください。
簡単なことなようなのに、どうしてもできないのです。
”tanX=c/X”を求めようとして調べている間に「高校数学の窓」というページを見つけ、
質問「１１２６」で下記のようなプログラムを見つけましたが、
このプログラムは”tanX=c/X”ではなくて”tanX=X”を求めるプログラムなのです。
自分で”tanX=c/X”用にアレンジしようとしたのですが、どうして良いのかわかりません。
Ｂａｓｉｃに詳しいどなたか、どういう風に書き換えればよいのか教えてください。
どうぞよろしくお願いします。
DEF f(x)=x-tan(x)
DEF g(x)=-(tan(x))^2 ! g(x)=f'(x)
INPUT a
LET x=a
LET E=0.000001
DO
LET x1=x-f(x)/g(x)
PRINT x1
IF ABS(x1-x)＜E THEN EXIT DO
LET x=x1
LOOP
END
201:２００
07/01/06 22:04:49
計算法的なやりかたとしては、f(x) = tan(x)-c/xとおいて，f(x)を微分し，f'(x)=g(x) = 1/cos(x)2+c/x2とお
くと思います。
よろしくおねがいします。
202:デフォルトの名無しさん
07/01/06 22:24:11
>>200-201
そこまで考えたのなら、そのまま書いて試してみればいいじゃない。
DEF f(x)=TAN(x)-c/x
DEF g(x)=COS(x)^(-2)+c*x^(-2) ! g(x)=f'(x)
INPUT c, a
LET x=a
LET E=0.000001
DO
LET x1=x-f(x)/g(x)
PRINT x1
IF ABS(x1-x)<E THEN EXIT DO
LET x=x1
LOOP
END
203:２００
07/01/06 22:58:42
>>202
ありがとうございます！！。
できてるっぽいです！！。
Ｂａｓｉｃの言語がわからないので、とても困っていました。
私は「1/cos(x)2+c/x2」をそのままプログラムへ入れました。
やはり表記法が変でしたか・・・？。
ずうずうしくて恐縮なのですが、もう一つ教えてください。
f(x) = tan(x)-c/xとおいた場合の、f(x)の微分「f'(x)=g(x) = 1/(cos(x))^2+c/x^2」と書くのでしょうか？。
204:２００
07/01/06 23:30:06
ごめんなさい。最後の行だけ訂正します
f(x) =c/x-tan(x)おくと，f(x)の微分は，f'(x)=g(x) = -c/x^2-1/(cos(x))^2で正しいのでしょうか？。
205:デフォルトの名無しさん
07/01/07 00:00:29
つ URLﾘﾝｸ(ja.wikipedia.org)
206:デフォルトの名無しさん
07/01/17 05:11:57
正月早々に近所の創価学会員一家が夜逃げしたことがわかりました。この夜逃げは私の住む地域で騒ぎになりました。
創価学会の人たちが「あの一家は信心が無かった」と宣伝して回っていますが真っ赤な嘘です。近所ではよく知られた熱心な信者でした。
羽振りの良い時期にはおだて上げて散々使いまわして、いざ破綻になれば他人事で切り捨てる。
創価学会というのは冷酷な組織だということがつくづくわかりました。
追記 アムウェイやスリムドカン等の代理店をやっていた時期もあったそうです。
ｽﾚﾘﾝｸ(manage板)
207:デフォルトの名無しさん
07/01/18 13:27:41
URLﾘﾝｸ(c-docomo.2ch.net)
208:デフォルトの名無しさん
07/01/23 23:44:57
xの値を0度～360度、刻み10度で変化したときの、
関数f(x)=sin(x)、f(x)=cos(x)のグラフを作成しなさい。
(1つの画面に2つのグラフを描く、演算子はlocate、line、circle、psetのみ)
よろしくお願いします！！＞＜
209:デフォルトの名無しさん
07/01/24 00:03:35
>演算子はlocate、line、circle、psetのみ
難しすぎて出来ません！！＞＜
210:208
07/01/24 00:28:59
>>209
あっ！図形を描くために使う演算子がlocate、line、circle、psetのみであって
for文とか四則演算子も使えます！よろしくお願いします！！
211:デフォルトの名無しさん
07/01/24 01:14:01
>図形を描くために使う演算子がlocate、line、circle、psetのみ
難しすぎて出来ません！！＞＜
212:デフォルトの名無しさん
07/01/24 16:20:38
漸化式の計算ってどうすんの？
213:デフォルトの名無しさん
07/01/24 22:26:06
>>212
つ for
214:デフォルトの名無しさん
07/01/25 05:54:54
計算したいものがありまして、
見よう見まねでプログラムを作っていますが、どうしてもコンパイルできません。
また、式の最初のπ以降のカッコ内は元の式では、∑1/n^2exp(-(t*n^2*PI()^2/R/C/L^2))となっています。
For文をうまく組み込めばこの部分ももっと級数を増やして計算できるのかもしれませんが、
組み方もわからないので、非常に困っています。
どなたか手直し等をしてくださいませんか？。
よろしくお願いいたします。
Let I=1.33
Let L=1
Let E=0.0008
Input "Ｃを入力してください。",C
Input "Ｒを入力してください。",R
For t=1 to 2500
V=E+/1000*(I*(t/C*L+R*L/3-2*R*l/PI()^2*(1/1^2/EXP(1^2*PI()^2*t/R/C/L^2)+1/2^2/EXP(2^2*PI()^2*s/R/C/L^2)+1/3^2/EXP(3^2*PI()^2*t/R/C/L^2)))))
Print V
Next t
215:デフォルトの名無しさん
07/01/25 17:04:45
>>214
E+/1000 ←ここがおかしい
216:デフォルトの名無しさん
07/01/25 17:08:03
十進BASICはこれで動いた。意図する式かどうかは
Let I=1.33
Let L=1
Let E=0.0008
Input PROMPT "Ｃを入力してください。":C
Input PROMPT "Ｒを入力してください。":R
For t=1 to 2500
LET V=E/1000*(I*(t/C*L+R*L/3-2*R*l/PI^2*(1/1^2/EXP(1^2*PI))))^2*t/R/C/L^2+1/2^2/EXP(2^2*PI^2*s/R/C/L^2)+1/3^2/EXP(3^2*PI^2*t/R/C/L^2)
Print V
NEXT t
END
217:デフォルトの名無しさん
07/01/25 21:05:55
>>213
遅かったがｻﾝｸｽｗ
218:デフォルトの名無しさん
07/01/27 00:07:17
>>215
あっそうでした。ありがとうございました。
>>216
これで良さそうです。ありがとうございました。
219:デフォルトの名無しさん
07/01/27 00:13:47
度々すみません。
前のプログラムを応用して、別のプログラムを作ったのですが、
tanx=c/xを計算する部分の組み込みがうまくいかず、どうしても計算結果が違ってしまいます。
お願いするばかりで恐縮なのですが、どうぞよろしくご教授ください。
220:２１９
07/01/27 00:15:47
こちらが自作のプログラムです。
Let Iapp=1.33
Let Ei=0
Let Cs=1
Let Rs=0.001
Input "Ｃを入力してください。",CtL
Input "Ｒを入力してください。",RtL
For t = 1 to 1300
For n=1 to 100
Let a=n*PI()
Let c=Cs/CtL
DEF f(x)=TAN(x)-c/x
DEF g(x)=COS(x)^(-2)+c*x^(-2)
LET x=a
LET E=0.000001
DO
LET x1=x-f(x)/g(x)
IF ABS(x1-x)<E THEN EXIT DO
LET x=x1
LOOP
S=0
S=S+cos(X1)*EXP(-t*X1^2/RtL/CtL)/(X1*((CtL+Cs)*sin(X1)+X1*CtL*cos(X1)))
Next n
V=Ei+1/1000*(Iapp*(Rs+2*t/(2*CtL+Cs)+RtL*CtL^2*(8*CtL+5*Cs)/(6*(2*CtL+Cs)^2)-2*RtL^2*S))
Print V
Next t
END
221:２１7
07/01/27 01:57:24
問題点がわかりました。
級数の数を決定するステップでFor文を使用してしまった為に、
tanx=c/xがちゃんと計算できてないだけでした。
しかし、For文の他に何度も計算させるコマンドがわかりません。
どうしたら良いでしょうか？。
222:デフォルトの名無しさん
07/01/27 01:59:14
IF と GOTO 使え。
それが基本（ｗ
223:デフォルトの名無しさん
07/01/27 02:03:14
DO LOOP
DO WHILE
LOOP WHILE
LOOP UNTIL
などたくさんある
224:２１7
07/01/27 02:25:51
>>222
>>223
アドバイスありがとうございました。
自分で調べてやってみましたが、どうもまだ違うようです。
どこを間違えたのでしょうか？。
また手直しをしてください。お願いします。 ↓
225:２１7
07/01/27 02:26:36
Print"Rs(単位 Ω)=(=γ*RtL)=",Rs
Print"Cs(単位 F)=(=θ*CtL)=",Cs
Input "CtLを入力してください(単位 F)．",CtL
Input "RtLを入力してください(単位 Ω)．",RtL
Print "Emeas/V"
For t = 1 to 1300
n=0
While n <=100
n=n+1
Let a=n*PI()
Let c=Cs/CtL
DEF f(x)=TAN(x)-c/x
DEF g(x)=COS(x)^(-2)+c*x^(-2)
LET x=a
LET E=0.000001
DO
LET x1=x-f(x)/g(x)
IF ABS(x1-x)<E THEN EXIT DO
LET x=x1
LOOP
S=0
S=S+cos(x1)*EXP(-t*X1^2/RtL/CtL)/(x1*((CtL+Cs)*sin(x1)+x1*CtL*cos(x1)))
Wend
Emeas=Ei+1/1000*(Iapp*(Rs+2*t/(2*CtL+Cs)+RtL*CtL^2*(8*CtL+5*Cs)/(6*(2*CtL+Cs)^2)-2*RtL^2*S))
Print a
Next t
END
226:デフォルトの名無しさん
07/01/27 03:05:34
>>225
何をしたいのかよくわからんな。
ニュートン法か？
計算の元になる文献かPDFへのリンクを貼ってくれないか？
こういうエラーは文法エラーではなく論理エラーと言う物で、
文法的には誤りがないため、元の文献を参照できないと
どこが間違っているのかわからない。
227:デフォルトの名無しさん
07/01/27 03:07:05
まあ多分
S=0
S=S+cos(x1)*EXP(-t*X1^2/RtL/CtL)/(x1*((CtL+Cs)*sin(x1)+x1*CtL*cos(x1)))
の所で、S=0を別の所に置かないとだめなんだろうぐらいは予想できるけど。
228:２１7
07/01/27 04:37:29
>>226
ニュートン法の部分に関しましては、
高校数学の窓というページの質問番号１１２６を参照して作りました。
他の部分につきましては、申し訳ないのですが、リンクがありません。
229:２１7
07/01/27 05:27:18
>>226
その部分もこちらで教えていただきました。
>>200-202を参照してください。
230:２１7
07/01/27 05:40:41
>>227
それは、どうしてなのでしょうか？。
231:デフォルトの名無しさん
07/01/27 07:59:44
そうじゃなくって、>>225のどこが間違ってるのかって
こっちが聞きたいって意味。式の意味が全然把握できないから。
それがわからない以上、誰も答えられないでしょう。
232:２１7
07/01/27 12:08:48
>>231
大変失礼いたしました。
最初のFor文は、秒数に関する設定です。
問題は次のWhile文にあるようなのですが、
ここではtanX=c/x (a=n*PI()、c=Cs/CtL )を計算してから、級数部分（s）
を計算させるつもりで作りました。
最後の行に「Print a」とありますが、これは 「Print Emeas」の間違いです。
色々な計算途中の値を表示させてみましたら、
十行目に「Let a=n*PI()」のところで
n=？の回数だけ級数の計算が為されているようなのですが、
n（n=1,2,3となってほしい。）
がきちんとnがPI()にかけられてないみたいなのです。
どこを間違えてしまったのか、この説明でわかるでしょうか？。
教えてください。
よろしくお願いします。
233:２１7
07/01/28 14:27:05
tanx=c/xの部分は、カウンターを組み込むことでクリアできました。
しかし、Ｓの計算でつまづいてしまいました。
t=1から1000までの間、Ｓの値が変化しないのです。
何故でしょうか？。
どなたか教えてください。
234:デフォルトの名無しさん
07/01/30 12:01:21
ニュートン法を教えてください
235:デフォルトの名無しさん
07/01/30 21:09:54
>>234
DEF f(x) = x^2 - 2
DEF df(x) = 2*x
LET EPS = 0.000001
LET IMAX = 1000
LET x = 2
FOR i=1 TO IMAX
LET x1 = x - f(x) / df(x)
IF ABS(x1 - x) < EPS THEN EXIT FOR
LET x = x1
NEXT i
IF i < IMAX THEN PRINT x1
END
236:デフォルトの名無しさん
07/02/02 23:51:26
10CLEAR :CLS
20DIM A(2),B(2)
30FOR J=0 TO 2
40A(J)= RND 6-1
50NEXT
60*MAIN
70LOCATE 0,0
80FOR J=0 TO 2
90IF B(J)=0 LET A(J)=(A(J)+1) MOD 6
100PRINT MID$ ("$*＼7+&",A(J)+1,1);
110NEXT
120C= ASC INKEY$ -49
130IF C>-1 AND C<3 IF B(C)=0 LET D=D+1,B(C)=1
140IF D<3 GOTO *MAIN
150IF A(0)=A(1) AND A(1)=A(2) PRINT " GOOD"
160CALL 48381
170GOTO 10
このプログラムはどのような物か教えてください。
どの命令がどのような意味を持っているのか分からないのでお願いします。
237:デフォルトの名無しさん
07/02/09 10:49:57
>>236
スロット
238:デフォルトの名無しさん
07/02/18 11:52:37
サイコロをK回振ったとする。１００回振ったとき、それぞれの目が出た回数をコンピュータでシュミレーションせよ。横軸に出た目、縦軸に出た回数をプロットし、折れ線グラフをかけ。
どうやって解けばいいでしようか
どなたかお願いします
239:デフォルトの名無しさん
07/02/18 15:51:52
>>238
100 CLS 3:DIM D(6):FOR I=1 TO 6:D(I)=0:NEXT I:RANDOMIZE 10
110 FOR I=1 TO 100:N=INT(RND*6)+1:D(N) = D(N) + 1:NEXT I
120 LINE (100,10)-(100,300),7:LINE(100,300)-(580,300),7
130 FOR I=1 TO 6:LOCATE 11+10*I,19:PRINT I;:NEXT I
140 FOR I=0 TO 6:LOCATE 9,18-I*3:PRINT I*5;:NEXT I
150 PSET(180,300-D(1)*10),7
160 FOR I=1 TO 6
170 LINE-(I*80+100,300-D(I)*10),7
180 LOCATE I*10+10,18-INT(D(I)*3/5):PRINT D(I);
190 NEXT I
200 LOCATE 0,20
240:デフォルトの名無しさん
07/02/18 17:41:25
>>239
遅くなりました！有り難うございます
241:デフォルトの名無しさん
07/02/25 18:31:08
簡単な自分の好きなゲームを２つ作りなさい。
ただし数当てゲームは無しとする。
どうしたらいいか全くわかりません！
どなたか助けていただけないでしょうか？
今週の水曜日までなので…
242:デフォルトの名無しさん
07/02/25 19:24:41
>>241
10 REM TAIPINGU GE-MU
20 A$ = "RENSYUU SHITAI MOZIRETSU"
30 PRINT A$
40 INPUT B$
50 IF A$ = B$ THEN 80
60 PRINT "TIGAIMASU"
70 GOTO 30
80 PRINT "OWARI"
90 END
100 'NOURYOKU TORE-NINGU
110 SCREEN 0,1:CONSOLE ,,0,1:CLS 3:DEFINT A-Z
130 SIZ = 9:MAX = 100 : WAITCOUNT =10000
140 RANDOMIZE VAL(RIGHT$(TIME$,2))
150 FOR I=0 TO SIZ
160 Q(I) = RND(MAX):ANS = ANS + Q(I)
170 NEXT
180 FOR I=0 TO SIZ
190 PRINT Q(I)
200 GOSUB *SWAIT
210 CLS
220 NEXT
230 INPUT "GOUKEI";G$
240 IF VAL(G$) = ANS THEN PRINT "SEIKAI!":END
250 PRINT "ZANNEN!":END
300 *SWAIT
310 FOR S=0 TO WAITCOUNT :NEXT
320 RETURN
243:デフォルトの名無しさん
07/02/25 20:43:42
>>241
10 REM 4,6で左右移動
20 CONSOLE 0,14,0,1:CLS 3:X=320:Y=199:K=0:W=0
30 A$=INKEY$
40 IF A$="4" THEN X=X-1:IF X<0 THEN X=0
50 IF A$="6" THEN X=X+1:IF X>639 THEN X=639
60 FOR I=1 TO 10:PSET(RND(1)*640,399),3:NEXT
70 ROLL 1 'ActiveBasicの場合は ROLL 0,-1
80 IF POINT(X,Y)=3 THEN PRINT "走行距離";K;"m":END ELSE K=K+1
90 PSET(X,Y),1:FOR I=1 TO W:NEXT:GOTO 30
100 REM じゃんけんゲーム
110 CLEAR:DIM A$(3),B$(3),H(3,3),S(3)
120 A$(1)="グー":A$(2)="チョキ":A$(3)="パー":S(1)=0:S(2)=0:S(3)=0
130 B$(1)="あいこ":B$(2)="あんたの勝ち":B$(3)="あんたの負け"
140 H(1,1)=1:H(1,2)=2:H(1,3)=3:H(2,1)=3:H(2,2)=1:H(2,3)=2:H(3,1)=2:H(3,2)=3:H(3,3)=1
150 CLS:PRINT "じゃんけんゲーム"
160 INPUT "(1:グー, 2:チョキ, 3:パー, 0:やめる)"; N1
170 IF N1=0 THEN GOTO 220 ELSE IF N1>=1 AND N1<=3 THEN GOTO 190
180 GOTO 160
190 N2=INT(RND(1)*3)*Z+N1-1:IF N2<1 THEN N2=3
200 K=H(N1,N2):S(K)=S(K)+1
210 PRINT "あんた:";A$(N1), "俺:"A$(N2)," ";B$(K):PRINT:GOTO 160
220 PRINT S(2);"勝", S(3);"敗", S(1);"引き分け":END
244:デフォルトの名無しさん
07/02/28 00:14:40
ありがとうございます！
おかげさまでとても助かりました！
245:デフォルトの名無しさん
07/03/22 23:32:51
統計の平均と標準偏差をポケコン(PC-G850)で計算したいんだけど、
プログラムをすっかり忘れたので教えて。
変数は
D データ
M 平均
S 標準偏差
SUM 総和
V 分散
N サンプル数
こんな感じで、
10 INPUT D
20 N=N+1
30 SUM=SUM+D
40 M=SUM/N
50 PRINT M
60 GOTO 10
みたいなプログラムを作りたいんだけど、初めからN数が分かっていない場合に、
分散ってどうやって計算したらよい？
出来ればデータを入力するたびに平均、標準偏差を出力したい。
エレガントな必要は全く無いので、よろしく頼みます。
246:デフォルトの名無しさん
07/03/23 06:34:10
分散は平均値がわからないと出せないんじゃないの？
だから各データを配列変数とかにこっそりしまっておくのがいいとおもう
247:デフォルトの名無しさん
07/03/23 07:45:35
それについては
各データの自乗の総和から平均の自乗のN倍を引けば良いんじゃないかと・・・？
∑(Di-M)^2を変形して出来ない？
248:デフォルトの名無しさん
07/03/23 08:48:39
>出来ればデータを入力するたびに平均、標準偏差を出力したい。
これをどう解釈するかだな
249:デフォルトの名無しさん
07/03/23 20:30:21
Dの自乗の総和を変数SUM2(?)としといて
35 SUM2=SUM2+D^2
45 V=(SUM2-M^2)/N
46 S=SQR V
55 PRINT S
ダメ？
250:245
07/03/24 10:56:42
>>246
配列のプログラム書けないんだ
＿
ミ ∠＿）
/
/ ＼＼
ｳｲｰﾝ Γ/了 | |
ｳｲｰﾝ |.＠| | | ｶﾞｯｶﾞｯｶﾞｯ
| / | . 人
|/ | < >_Λ∩ >>245
＿/ | ／／. Ｖ｀Д´）/
（＿フ彡 /
251:デフォルトの名無しさん
07/03/24 17:03:50
>>250
書く気が無いの？それとも実現できないの？
252:デフォルトの名無しさん
07/03/27 01:01:13
ポケコンってSUMみたいな名前は変数に使えないっけ？
10 INPUT X
20 N=N+1
30 S=S+X
40 R=Q+X^2
45 IF N=1 THEN 10
50 M=S/N
60 V=R/N-M^2
70 D=SQR V
80 PRINT "標本数",N
90 PRINT "平均",M
100 PRINT "分散",V
110 PRINT "標準偏差",D
120 GOTO 10
>>251
配列の構文を知らない
253:デフォルトの名無しさん
07/03/28 19:57:53
40行目間違ってた。
254:デフォルトの名無しさん
07/06/04 21:32:17
10 N=0
20 T=0
30 S=0
40 INPUT X
50 N=N+1
60 T=T+X
70 S=S+X^2
80 IF N=1 THEN 10
90 M=T/N
100 V=(S-T^2/N)/(N-1)
110 D= SQR V
120 PRINT "標本数",N
130 PRINT "平均",M
140 PRINT "分散",V
150 PRINT "標準偏差",D
160 GOTO 10
170 END
255:デフォルトの名無しさん
07/06/04 21:36:12
N = 標本数
T = 総和
S = 平方和
X = 変数
M = 平均
V = 分散
D = 標準偏差
256:デフォルトの名無しさん
07/09/02 00:20:12
あげ
257:デフォルトの名無しさん
07/09/18 15:28:04
age
258:デフォルトの名無しさん
07/10/03 19:57:36
寿司食いたいﾌﾌﾌﾌﾌﾌﾌﾌﾌﾌﾌﾌﾌﾌﾌﾌﾌﾌﾌﾌﾌﾌﾌﾌﾌﾌﾌﾌﾌﾌﾌﾌﾌﾌ
259:某高専生
07/12/07 15:01:08
えーとDIMとFOR~NEXTで繰り返しのたびに順々に数値を読んでくやつ教えてくれ。
テストに出たが忘れた･･･
260:デフォルトの名無しさん
07/12/07 19:24:22
10 DIM A(10)
20 FOR I=1 TO 10:READ A(I):NEXT
30 NEW
40 DATA 1,2,3,4,5,6,7,8,9,10
261:デフォルトの名無しさん
08/01/21 15:50:37
問 以下の処理を1つのプログラムで記述します。プログラムは1つです。
１．5行5列の行列[A]にデータを入力し、表示しなさい。
データは不規則な値とする。
２．行列[A]の転置行列を行列[B]に代入し表示しなさい。
３．行列[A]＋行列[B]の計算をして表示しなさい。
４．行列[A]－行列[B]の計算をして表示しなさい。
５．行列[A]＊行列[B]の計算をして表示しなさい。
プログラムと結果を提出します
どうしてもわかりません…
お願いします。
262:デフォルトの名無しさん
08/01/24 15:07:13
10 OPTION BASE 1
20 FOR I=1 TO 5
30 FOR K=1 TO 5
40 READ A(I,K)
50 NEXT:NEXT
60 GOTO 0
263:デフォルトの名無しさん
08/01/24 19:05:09
VISUAL BASIC で学生人数の平均を出す
プログラムを作りたいのですが、どういうようなコードを
書けばいいかわかりません・・・・・。
コマンドボタンを押すと、Text欄に社員が10人の平均が出力されるような・・・ものです。
自分何とかで調べたのですが、演算（+, /, * ）を使うまではわかりました。
264:デフォルトの名無しさん
08/01/24 19:05:41
訂正
社員でなく学生です
265:デフォルトの名無しさん
08/01/24 21:04:14
問題12
xの値を0～360度、10度刻みで変化したときの、関数f(x)=sin(x)、f(x)=cos(x)のグラフを同画面上に描きなさい。
N88互換BASICでよろしくお願いします。
266:デフォルトの名無しさん
08/01/24 23:02:23
>>265
10 CLS
20 YS1=INT(-100*SIN(0)+200)
30 YC1=INT(-100*COS(0)+200)
40 X=0
50 FOR I=10 TO 360 STEP 10
60 S=3.14159/180*I
70 YS2=INT(-100*SIN(S)+200)
80 YC2=INT(-100*COS(S)+200)
90 LINE(X,YS1)-(I,YS2),2
100 LINE(X,YC1)-(I,YC2),3
110 YS1=YS2
120 YC1=YC2
130 X=I
140 NEXT I
150 LINE(0,200)-(360,200),1
160 END
267:デフォルトの名無しさん
08/01/25 07:10:38
>>266
ありがとう御座いました。
268:デフォルトの名無しさん
08/01/29 15:53:57
これ最短でゴールするようにプログラムつくってくれませんか？
できればゴール後パフォーマンスもお願いします
URLﾘﾝｸ(imepita.jp)
269:デフォルトの名無しさん
08/01/29 23:57:59
国旗（何でもよし。でもちょっとだけ手間かかるほうがいいかも）２つ書くプログラミングと、
簡単なゲームのプログラミング（それか実行押すと絵が変わるのとかの）どなたかお願いします！！
単位かかってて切実です・・・
お願いします！
270:デフォルトの名無しさん
08/01/30 01:18:44
>>269
フランスとチェコの国旗(N88互換BASIC用)
10 CLS
20 LINE(15,100)-(115,300),1,BF
30 LINE(115,100)-(215,300),7,BF
40 LINE(215,100)-(315,300),2,BF
50 FOR Y=100 TO 200
60 XM=225+Y
70 LINE(325,Y)-(XM,Y),1
80 LINE(XM,Y)-(625,Y),7
90 NEXT Y
100 FOR Y=200 TO 300
120 XM=625-Y
120 LINE(325,Y)-(XM,Y),1
130 LINE(XM,Y)-(625,Y),2
140 NEXT Y
150 END
271:デフォルトの名無しさん
08/01/30 08:49:06
268 はライントレーサーです お願いします
272:デフォルトの名無しさん
08/01/31 04:53:44
>>268は、ライントレーサーでハードウェアの仕様もAPIもわからずに、
どうやって解けとｗｗｗｗｗ
丸投げにもほどがあるｗｗｗｗ
273:デフォルトの名無しさん
08/02/07 04:53:46
TINY Basic について
a1=√(1/2)
a2=√(1/2)×√((1/2)+(1/2)√(1/2)）
a3=√(1/2)×√((1/2)+(1/2)√(1/2)）
×√((1/2)+(1/2)((1/2)+(1/2)√(1/2)))
… とするとき、
ｎを入力すればanが出力されるプログラムってどう書くのですか？
274:デフォルトの名無しさん
08/02/07 09:32:12
WAITってw
275:デフォルトの名無しさん
08/02/07 12:09:57
>>272
式を生成するんじゃなくて数値を計算するんだよね？
こんな感じでどうかな。
n = 1
Do Until n = 0
Input "n (0で終了)"; n
If n<> 0 Then Print A(n)
Loop
End
Function A(n)
If n = 1 Then
A = Sqr(1/2)
Else
A = A(n-1) * Sqr(B(n))
End If
End Function
Function B(n)
If n = 1 Then
B = Sqr(1/2)
Else
B = 1/2 + 1/2 * B(n-1)
End If
End Function
276:デフォルトの名無しさん
08/02/07 12:19:38
>>272じゃなくて>>273だった。
277:273
08/02/07 12:41:36
>>275
ご協力ありがとうございます。
申し訳ありません… "2/an を出力" でした。
"print 2/A(n)"と書きかえればよろしいでしょうか。
2/anの極限はπ(=3.1415…)になるそうですが…
278:273
08/02/07 12:47:33
たびたびすみません。
a3=√(1/2)×√((1/2)+(1/2)√(1/2)）
×√((1/2)+(1/2)√((1/2)+(1/2)√(1/2)))
です。すみません
279:デフォルトの名無しさん
08/02/07 13:46:29
3行直せば大丈夫。
If n<> 0 Then Print A(n) → If n > 0 Then Print 2/A(n)
B = Sqr(1/2) → B = 1/2
B = 1/2 + 1/2 * B(n-1) → 1/2 + 1/2 * Sqr(B(n-1))
280:デフォルトの名無しさん
08/02/07 13:49:25
おっとっと、最後のが間違ってる。
B = 1/2 + 1/2 * B(n-1) → B = 1/2 + 1/2 * Sqr(B(n-1))
281:デフォルトの名無しさん
08/02/08 05:38:39
Basicプログラム
ｽﾚﾘﾝｸ(math板)
1 ：暇人：2008/02/07(木) 04:50:09
TINY Basic について
a1=√(1/2)
a2=√(1/2)×√((1/2)+(1/2)√(1/2)）
a3=√(1/2)×√((1/2)+(1/2)√(1/2)）
×√((1/2)+(1/2)((1/2)+(1/2)√(1/2)))
… とするとき、
ｎを入力すればanが出力されるプログラムってどう書くのですか？
2 ：１３２人目の素数さん：2008/02/07(木) 04:54:15
>>1
ｽﾚﾘﾝｸ(tech板)
よって終了。
282:デフォルトの名無しさん
08/02/08 13:04:32
いや、このスレは漏れが課題を貰うためのスレだし。
283:273
08/02/09 00:47:20
ありがとうございました。
解決しました。
284:Ｎ８８互換
08/02/15 00:48:30
25 input n
35 if n=1 then goto 25
40 x=n MOD 2
50 if x=1 then 70
60 if x=0 then 90
70 n=n*3+1
75 print n;
80 goto 35
90 n=n/2
95 print n;
100 goto 35
この処理でどの数字も最後は１になるのですが、この処理を上手く使って
五桁の整数で１になるまで、計算処理回数が最も多い値を求めるにはどう
すれば良いのでしょうか？
分からなくて困ってしまってます・・・
お願いします。
285:デフォルトの名無しさん
08/02/15 08:20:16
>>284
昔それの一般解出そうとして死んだなぁ
素朴な方法としては，５桁の数値を総当りする方法だな
maxcnt=0
theninit=0
for init=1 to 99999
n=init
cnt=0
*loop
if n=1 goto *out
reminder=n mod 2: cnt=cnt+1
if reminder=1 then n=n*3+1: cnt=cnt+1: print n: goto *loop
if reminder=0 then n=n/2: cnt=cnt+1: print n: goto *loop
*out
if maxcnt<cnt then maxcnt=cnt: theninit=init
next
print "計算処理回数がもっとも多い値="; theninit
286:Ｎ８８互換
08/02/19 21:07:14
返信遅くなりました！
かなり参考になりました。
ありがとうございました！！
287:デフォルトの名無しさん
08/02/20 21:07:56
文字列変数に[,]が入れたときに動作不良を起こさないのってどうすればいいの？
288:デフォルトの名無しさん
08/03/06 11:03:29
次のフローチャートに入るものがなにか
わからないので、解答をどなたかお願いします；
問１
URLﾘﾝｸ(uproda11.2ch-library.com)
問2
URLﾘﾝｸ(uproda11.2ch-library.com)
見にくくて申し訳ありませんが
よろしくお願いします。
289:デフォルトの名無しさん
08/03/06 11:21:22
>>288
問1
(1)D(M)
(2)80
(3)C1+1 -> C1
(4)C2+1 -> C2
(5)C3+1 -> C3
問2
(1)D -> S
(2)N > 0
(3)D > B
(4)D < S
290:デフォルトの名無しさん
08/06/21 05:20:35
長さが２cm、５cm、７cmの竹ひごがそれぞれたくさんあります。
いま、これらの竹ひごを合計３０本使って、１本の長い棒を作ることにします。（１本も使わない長さの竹ひごがあっても構いません）（※）
では、 長い棒の長さとして考えられる数は何通りあるでしょうか。
※・・・例えば、「２cmを３０本、５cmを０本、７cmを０本」なら６０cm、「２cmを２本、５cmを１０本、７cmを１８本」なら１８０cmの長い棒ができますね。
この問題を解くためのプログラムを教えてください。お願いします。
291:デフォルトの名無しさん
08/06/21 06:10:06
充足問題を解くのか
動的計画法でいいんかな
微妙に単調増加っぽいけど忘れた
292:デフォルトの名無しさん
08/06/27 00:55:42
質問しつれいします。
素数のリストを、有限の自然数N以下に限定しないで次々に書き出す
プログラムを書きたいのですが、どのようにすればいいのでしょうか？
Nを限定した時はDIMを使えば出来たのですが、上のような時はどうすればいいのか。
記憶容量は無視していいそうです。
どなたか回答お願いします。
293:デフォルトの名無しさん
08/06/27 16:28:08
>>292
100 ' SOSUU PRINT
110 N=1
120 'SOSUU TYEKKU
130 FOR M=2 TO N-1
140 IF (N MOD M) = 0 THEN GOTO 170
150 NEXT
160 PRINT N;
170 N=N+1
180 GOTO 120
300 END
294:デフォルトの名無しさん
08/06/28 00:43:23
メッセージの定義されていないエラーです。
行番号：130
と出て、71までの素数しか表示されないのですが・・・
せっかく答えていただいたのに文句言ってすいません。
どこを改良すればいいのでしょうか？
295:デフォルトの名無しさん
08/06/28 08:19:43
>>292
>記憶容量は無視していいそうです。
無限に大きい配列を用意すればいい。
296:デフォルトの名無しさん
08/06/28 23:17:12
>無限に大きい配列を用意すればいい。
どうすればいいんでしょうか？
297:デフォルトの名無しさん
08/06/29 00:52:56
>>292
100 PRINT 2
110 PRINT 3
120 N=5
130 IF (N MOD 3)=0 THEN GOTO 190
140 I=6 :M=INT(SQR(N))+1
150 IF I>M THEN PRINT N :GOTO 190
160 IF (N MOD (I-1))=0 THEN GOTO 190
170 IF (N MOD (I+1))=0 THEN GOTO 190
180 I=I+6 :GOTO 150
190 N=N+2 :GOTO 130
298:デフォルトの名無しさん
08/06/29 01:09:48
できました！
これで単位落とさなくてすみそうです。
本当にありがとうございました。
299:デフォルトの名無しさん
08/06/29 08:36:57
できた、じゃなくてやってもらった、だろ。
300:学生
08/07/02 14:07:14
プログラミングの授業でsin30°の値を出したときに0.499999616987256という値が出てきたのですが・・・
普通だったら0.5だがなぜこの値になったのか理由を示せといわれました。
自分には全然わからなかったので是非教えていただきたいのですが、
よろしいでしょうか？
301:デフォルトの名無しさん
08/07/02 18:13:21
大卒ニートによる回答
結論から言うと、計算時に誤差が発生しているから。
おそらくπが3.14159と定義されている。
三角関数(SINとか)は確か引数にラジアン単位で指定したような気がした。
ラジアンと度数の変換は「度数×円周率(π)÷180」で出来る。
円周率は無限小数だから、コンピュータ上でそのままの値を扱うのは困難。
なので、πはπそのものではなく、近い数値が割り当てられている。
10 p1=3.1415 : p2=3.14159 : p3=3.1415926535897
20 print sin(30*p1/180) : print sin(30*p2/180) : print sin(30*p3/180)
これの実行結果で発生する誤差を確認の事
302:学生
08/07/03 00:49:58
本当にありがとうございます！
もしよければ、まだ他にsin(30)=0.499999616987256（なぜ0.5でないのか？）
可能性があるとしたら何かありませんか？
303:デフォルトの名無しさん
08/07/03 10:50:15
誤差以外に思い当たることはないなぁ。
処理系によって実装の仕方が違うと思うし、どのBASICなのか明示されてないから、これ以上詳しくはわからない。
パソコン上のBASICだと三角関数の引数にはラジアンで指定してやるのが普通。(だった気がする)
ポケコン上のBASICなら度数で指定してやれるものもあった気がする。使った事無いけど。
度数からラジアンに変換して計算する限り、誤差が発生する。
計算結果が小数点以下15位まで求められるのに、それよりもずっと低い精度でπが定義されてるとか。
十分な精度でπが定義されていれば、計算結果を修正して表示する処理系もある。(ような気がする)
もし、sin(30)と指定できて、0.49999616987256が帰って処理系があるとすれば、次のような感じではないだろうか。
・内部的には30°をラジアンに変換している
・変換に使用するπは3.14159と定義されている
・求まる答えは0.49999961698725570...である
・有効桁は小数点以下15位までなので、16位で四捨五入し、0.49999616987256が返ってくる。
もし、有効桁数が小数点以下5位あたりまでであれば、四捨五入されて0.5が返ってきたんじゃないかと。
304:学生
08/07/03 12:00:30
本当にありがとうございます！
305:デフォルトの名無しさん
08/07/04 14:10:01
BASICを勉強しているのは工業系の高校ですか？
普通科高校卒の僕はBASICの宿題がある事を今知りました
306:デフォルトの名無しさん
08/07/04 15:33:42
コラコラ、普通科でも数学でBASICやるぞ。
307:デフォルトの名無しさん
08/07/13 16:34:53
質問です。次のようなプログラムを組むにはどうしたらいいのでしょうか？
どれか１つでもいいので分かる方お願いします。
１．八十八夜の月日を求めるプログラムをWHILE繰り返し分を使って作成し、実行しなさい
結果は次のように出力すること
この問題の八十八夜は 月 日となります
２．２の平方根を出力しなさい（二分法による平方根の計算） δ＝0.0001とする
3．２の平方根を出力しなさい（ニュートン・ラプソン法による平方根の計算） δ＝0.0001とする
308:デフォルトの名無しさん
08/07/14 00:43:52
宿題してるんですけど質問させてください
10 for x=&h61 to &h7A
20 print chr$(x);
30 next x
40 end
run
abcdefghijklmnopqrstuvwxyz
になるんですけど
これを逆順に表示する方法ありますかね
10 for x=0 to 25
20 print chr$(122-x);
30 next x
40 end
な感じでもできるっちゃできるんですけど
アスキーコード？使ってできないですかね。
さっきベーシックはじめて触って苦戦してます。
教えていただきたいです。お願いいたします～。
309:デフォルトの名無しさん
08/07/14 00:47:04
>>308
for x=&f7a to &h61 step -1 ってできなかったっけ？
310:デフォルトの名無しさん
08/07/14 01:06:15
>>309
あ、できましたっ
ありがとうございました！ｗ
311:デフォルトの名無しさん
08/07/20 16:57:54
等差数列のプログラムがうまくいかないので、御伝授下さい。
100 REM 等差数列
110INPUT N, A, D
120 S=N{2A+(N-1)*D}/2
130 PRINT "項数=" ; N
140 PRINT "初項=" ; A
150 PRINT "公差=" ; D
160 PRINT "総和=" ; S
170 END
312:デフォルトの名無しさん
08/07/20 17:26:19
>>311
> 110INPUT N, A, D
# 110 INPUT N, A, D
> 120 S=N{2A+(N-1)*D}/2
# S=N*(2*A+(N-1)*D)/2
313:デフォルトの名無しさん
08/07/20 18:33:58
>>312
ありがとうございます。
助かりました。
314:デフォルトの名無しさん
08/07/24 16:28:20
Ｃ言語をＢＡＳＩＣに翻訳するソフトをどこで手に入るか教えてください
315:デフォルトの名無しさん
08/07/24 22:24:59
>>314
URLﾘﾝｸ(www.google.co.jp)
316:デフォルトの名無しさん
08/07/24 22:33:52
いやいや、まずないと思うし
万が一あったとしてもBASICとして読んでもわからないプログラムに変換されてるだろ
317:デフォルトの名無しさん
08/07/25 00:22:26
まあ今時BASICなんて方言だらけだし
Cと互換性のあるBASICを自分で作っちゃえばいいんじゃね？
318:デフォルトの名無しさん
08/07/25 03:23:53
>>314
脳内。手作業でやる以外ないよ。
319:デフォルトの名無しさん
08/07/27 08:23:31
Cでマクロを使え
#define if(x) IF (x) THEN
#fefine for(x) FOR _Bas=1 TO x
とか
320:デフォルトの名無しさん
08/07/27 11:03:50
むしろアセンブラからBASICのpeek pokeに変換すればいいんでね？
321:245
08/08/05 18:51:42
今日見たら間違えてたことに気が付いた
10 N=0
20 T=0
30 S=0
40 INPUT X
50 N=N+1
60 T=T+X
70 S=S+X^2
80 IF N=1 THEN 40
90 M=T/N
100 V=(S-T^2/N)/(N-1)
110 D= SQR V
120 PRINT "標本数",N
130 PRINT "平均",M
140 PRINT "分散",V
150 PRINT "標準偏差",D
160 GOTO 40
170 END
N = 標本数, T = 総和, S = 平方和, X = 変数
M = 平均, V = 分散, D = 標準偏差