★★★Quick Basicが組めませんっ★★★
■ このスレッドは過去ログ倉庫に格納されています
0001デフォルトの名無しさん
NGNGあさって（水曜日）までに提出で、一生懸命やったんですけど
どうしてもわからなくて。お願いしますーーー。
＜課題F＞
数当てゲームのプログラムを作成
①０～９９の整数値の乱数を一つ発生させる。これが正解の値となる。
ただし、解答者には数えない。
②解答者が正解の値がいくつかを予想する。予想値が正解と一致したら終了。
③もし②のよそうちが、正解より大きければ「（正解は）もっと小さい」等の
ヒントが出され、他所うちが正解より小さければ「もっと大きい」等の
ヒントが出される。
④③で出されたヒントをもとに、再度、正解の値を予想する。
⑤予想値が正解と一致するまで③と④を繰り返す。
繰り返しが少ないほどよく、３回以内で正解できたなら超能力者、
３～５回程度なら勘がよいひと、６回以上はふつうと
表示できるとよい）
0002デフォルトの名無しさん
NGNG課題H
自然数Nの約数のうち、N自身を除く約数の和SがNと一致するとき、Nを完全数という。
２以上、５００以下の完全数をすべて求めて表示するプログラムをつくりなさい。
0003デフォルトの名無しさん
NGNG00041
NGNG0005デフォルトの名無しさん
NGNGN88と違いCircleに塗り潰しが無くて苦労した。
>>1
それだけ問題が親切なら出来るような気が…(藁
00061
NGNG0007デフォルトの名無しさん
NGNGこんな問題の何処がネックになってるのかわからんよ。
これって何気にソートとサーチのアルゴリズムの初級問題でしょ。
まずはその分野の本でも読んどけ。
これ二分検索法だっけ？すまん、名前は忘れた。
約数の方はよく考えてないとしかいいようがないな。
0008デフォルトの名無しさん
NGNG公立高校？
0009デフォルトの名無しさん
NGNG乱数生成法はいろいろあるけど僕知らない。
>2
フィボナッチ数列だっけ？
ユークリッドの互除法だっけ？
そんな方法があったはず。
コードは自分で考えてね（はぁと
0010デフォルトの名無しさん
NGNG***すれ立てるまでもない質問はここで***
http://piza.2ch.net/test/read.cgi?bbs=tech&key=975576060&ls=10
0011名無しさん＠お腹いっぱい。
NGNG00121
NGNGいや、私立です。＜学校
お願いしますー。本当に。泣きそうです。数学苦手なので。
0013デフォルトの名無しさん
NGNG0014デフォルトの名無しさん
NGNGお前さあ、頭悪いよ。
才能無いよ。
この程度の課題が出来ないなら辞めりゃいいじゃん。
0015デフォルトの名無しさん
NGNG0017デフォルトの名無しさん
NGNG0018デフォルトの名無しさん
NGNG(cond ((= n 0) 0)
((= n 1) 1)
(#t (+ (fib (- n 1))
(fib (- n 2))))))
0019名無しさん＠お腹いっぱい。
NGNGワンボードマイコンを買って作った。
そのときに８０８０のアセンブラで１と同じ仕様で、数当てプログラム
というリストが付いて来て、入力して遊んだことを思い出したよ。
なつかしい思い出。
0020デフォルトの名無しさん
NGNG0021デフォルトの名無しさん
NGNG復習するとよろしい。
乱数発生は自分で作るのでなくて多分RNDとかRANDとかRANDOMとかそんな感じの名前の
があるはずでそれを使うのでしょう。
「解答者が予想する」は勿論プログラムがすることではないので
プログラム的にはユーザーからの数値データの入力だけすればよい。
AからEまでのおそらくもっと基本的な課題が出来てるのなら
なんとかなるんでは？
00221
NGNG考えてもこの２つだけできない。。。
0023デフォルトの名無しさん
NGNG00241
NGNG人数そう多くないので写すとばれちゃうーー。むーー。
0025デフォルトの名無しさん
NGNGこれくらい週一クラブ活動でコンピュータいじってる小学生でも組めるぞ
0026デフォルトの名無しさん
NGNG気にすんなや。
お前んとこの教師はそんなに偉いんか。
もっと胸はって堂々と生きたらいいんじゃ、ボケ！
0027デフォルトの名無しさん
NGNGオレQuick Basicって知らないし。普通のBASICと同じでいいわけ？
ちょっとQuick Basicってどんなものか、逆にお前が教えろよ。
>>1
00281
NGNGすいません、なんか、どうしてもできなくて助けを求めたつもりだったんですけど。
考えてもでないしー。ううー。
0029デフォルトの名無しさん
NGNG0030現役高校生
NGNG20 INPUT "正解いくつだと思う？",a
30 IF 答え = a THEN GOTO 110
40 IF 答え > a THEN GOTO 70
50 PRINT "答えはもっと小さいの（はぁと）"
60 GOTO 90
70 PRINT "答えはもっと大きいんだよ、ばーか"
80 GOTO 90
90 回数 = 回数 + 1
100 GOTO 20
110 IF 回数 < 4 THEN GOTO 170
120 IF 回数 < 6 THEN GOTO 150
130 PRINT "最低"
140 END
150 PRINT "最悪"
160 GOTO 140
170 PRINT "普通"
180 GOTO 140
BASICって昔数Aの教科書読んだだけだから自信ないけど。
0031デフォルトの名無しさん
NGNGあとINT(乱数*100)だね
0032デフォルトの名無しさん
NGNG乱数*100じゃないのか？
それに整数化してないぞ。
あと、1行に命令を複数記述する場合は;じゃなくて:だ。
003332
NGNGあら、かぶった。
ごめんねアロエリーナ。
0034現役高校生
NGNGもう頭寝てるや。おやすみなさい。
5 合計 = 0
10 FOR I=2 TO 100
20 FOR J=1 TO (I-1)
30 IF I/J - INT(I/J) <> 0 THEN GOTO 50
40 合計 = 合計 + J
50 NEXT J
60 IF I <> 合計 THEN GOTO 80
70 PRINT I
80 NEXT I
90 END
ん～？約数のやつ。約数ってこんな感じだよね？
行番号いらないってどういう状態？
003532
NGNGそれじゃ何一つ表示されないぞ。
理由は自分で考えてね。基本的なミス。
0036デフォルトの名無しさん
NGNG最近は中学生でも結構いいソフト作って公開してたりする。
一体どういう育ち方をしたのやら？
真性のコンピュータヲタ？
0037仕様書どおり
NGNGSUBやFUNCTIONもサポートしてました。
http://www.cqpub.co.jp/try/kijidb/yougo/go.htm
コンパイルはしてないけど、こんな感じかなあ。
小さな親切、大きなお世話。
'$DYNAMIC
DEFINT A-Z
DIM iSeikai AS INTEGER
DIM iRetryTime AS INTEGER
DIM iInput AS INTEGER
iSeikai = INT(RND * 100)
iRetryTime = 0
DO
INPUT "正解いくつだと思う？",iInput
IF (iSeikai < iInput) THEN
PRINT "答えはもっと小さいの（はぁと）"
ELSEIF(iInput < iSeikai)
PRINT "答えはもっと大きいんだよ、ばーか"
ELSE
IF (iRetryTime < 3) THEN
PRINT "普通"
ELSEIF (iRetryTime = 3) THEN
PRINT "普通"
PRINT "最悪"
ELSEIF (iRetryTme < 6) THEN
PRINT "最悪"
ELSE
PRINT "最低"
END IF
EXIT DO
END IF
iRetryTime = iRetryTime + 1
LOOP
END
0038仕様書どおり
NGNGPRINT "28"
PRINT "496"
0039デフォルトの名無しさん
NGNGhttp://www2.nkansai.ne.jp/users/yoshioka/challe_14b.htm
004032
NGNG全然仕様どおりになったない（あてた回数ごとの表示とか）。
0041デフォルトの名無しさん
NGNGhttp://faust.irb.hr/~stipy/qb2c/qb2c.html
0042おお
NGNG偉いなぁー。君。
0043ID付き名無しさん＠１周年
NGNGプログラムが正常に動作しません
まず
行番号10はなんですか？この時点でつまずきました
あと、行番号30ですがここでもつまずきます
というか、バグの荒らしです
0044デフォルトの名無しさん
NGNGそりゃ多分君が悪いと思うけど。
コピペしてそのまま実行したでしょ?
■ このスレッドは過去ログ倉庫に格納されています