■ このスレッドは過去ログ倉庫に格納されています
第1回昔のPC板杯プログラムコンテスト
- 168 :ナイコンさん:02/02/02 16:03.net
- >>167
MSXは使ってないからわからないけど>>166を見ると、
始めにRND(-TIME)とかやっておけばいいんじゃないの?
- 169 :ナイコンさん:02/02/02 16:31.net
- >>167
30 A=INT(RND*10)
だったらどうよ?
違うかもしれんが。
- 170 :ナイコンさん:02/02/02 16:36.net
- >>169
それを言うなら、
30 A=INT(RND(1)*10)
- 171 :169:02/02/02 16:50.net
- >>170
おっしゃる通りっす。
- 172 :ナイコンさん:02/02/02 17:17.net
- 色々さんくす!>ALL
まず、>>170さんありがとうございます。行がスッキリしました。
で、
30 A=INT(RND(1)*10)
で綺麗にいったんですが、結局RANDMIZEできません。
>>168さん
これって例えば
15 RND(-TIME)
とかじゃないんですよね(Syntax error出た)。
「-TIME」って時間かなんかの変数でしょうか?
う〜、今までポケコンでは
RANDOMIZE:A=RND 10
↑コレで済んでたもんで・・・。
- 173 :ナイコンさん:02/02/02 17:28.net
- 10 CLS
20 PRINT "ムカシノPC@2chケイジバン
30 PRINT "http://pc.2ch.net/i4004/
40 END
- 174 :ナイコンさん:02/02/02 17:36.net
- 10 ’RUNだMy図、がないと将来踊れないよ。他力踊り希望の人?
20 ’それはやめたほうがいいよ。
- 175 :170:02/02/02 17:43.net
- >>172
おれはMSXユーザでないから MSX=BASICは詳しくは分からんが、
要は起動するたびに違った数値を引っ張ってくれば良いわけだからさ.....
15 RND(VAL(RIGHT$(TIME$,2)))
なんかではどうだろ?
RANDOMIZE(VAL(RIGHT$(TIME$,2)))
てのが、N-80/88では定石でした。
- 176 :大学生MSXユーザ ◆Ym1dK0rg :02/02/02 17:44.net
- >172
15 ZZ= RND(-TIME)
と適当な変数への代入にすればOK。
TIMEは1/60秒毎にカウントアップされる変数だよ。
こいつは自分で値をセットすることも出来るから簡単な時間計測に使えたりする。
例)30行の計算時間を計る。
10 TIME= 0
20 FOR I=1TO100
30 Z=ATN(1)^ATN(1)
40 NEXT I
50 T= TIME/60/100
60 PRINT "ヤク"; T; "秒"
- 177 :ナイコンさん:02/02/02 19:00.net
- 1/60毎にカウントアップならば、
50 T = TIME/60
なんじゃねーの?と言ってみるテスト。
- 178 :大学生MSXユーザ ◆Ym1dK0rg :02/02/02 20:48.net
- >177
>176の例では30行を100回実行して1回あたりの時間を
計算してるのでこれでOKです。
30行を1回しか実行しない場合、1/60の精度までしか出ないけど、
100回やって時間を100で割れば1/6000の精度で測定できます。
#実際にはFOR文で消費される時間を差し引いて計算しないと
#いけないんだけど、その処理は例って事で省略してあります。
- 179 :ナイコンさん:02/02/03 01:43.net
- 言語を、統一した方がいいと思うよ。もしくは、機種依存する命令は使わないとか。
みんなのソースをためせる方が、盛り上がると思うし。
- 180 :172:02/02/03 10:48.net
- おお〜、なんかレベルの高いレスありがとうございます!
今仕事中ですので、帰ってから色々試してみたいと思います。
- 181 :ナイコンさん:02/02/03 15:39.net
- >>180=>>172
つーか、第2回のスレ立ってるんだし、こっちはsage進行したほうが良いぞ。
- 182 :ナイコンさん:02/02/04 20:48.net
- このスレ(主に第2回スレ)がスレの杜で紹介されてるけど
スレの杜で紹介されるってステータスなの?
ちょっとビクーリしたYo.
- 183 :ナイコンさん:02/02/05 14:49.net
- >182
けっこうステータスではないかと。
実は推薦したの俺なんだけど、あーゆー形で取り上げられるとは思わなかった。
- 184 :ナイコンさん:02/02/06 00:25.net
- >52
99回でループから抜けてしまいませんか?
- 185 :ナイコンさん:02/02/27 18:36.net
- 遊び方は、実行後にシフトキーを連打して下さい。最後に表示される。
タイムの多い人が勝ちです。他のキーでも出来るかもしれません。
100 REM PC-8801/mk2テイドマデ
110 DEF USR=28342
120 CONSOLE ,,1,1:WIDTH 80,25:SCREEN 0,1
130 SCREEN ,1:CLS USR(0)
140 TIME$="00:00:00"
150 PAINT(2,100),2
160 PRINT TIME$
170 END
- 186 :ナイコンさん:02/02/28 06:45.net
- 久しぶりに来たけどまだ続いてたんだ。
良かった…。
- 187 :ナイコンさん:02/03/09 20:45.net
- 第2回へ
- 188 :ナイコンさん:02/03/23 14:49.net
- こっそりsage
- 189 :ナイコンさん:02/06/21 00:38.net
- 100 goto 100
- 190 :ナイコンさん:02/06/21 00:54.net
- 言語を統一した方が盛り上がると思うな。
- 191 :ナイコンさん:02/06/21 05:52.net
- >>190
お前、この板初心者だろ?
- 192 :ナイコンさん:02/06/21 07:29.net
- >>191
1を読めばわかるけどBASIC限定です
- 193 :ナイコンさん:02/06/21 12:41.net
- >>191
お前、BASICを知らない初心者だろ?
- 194 :ナイコンさん:02/06/21 14:07.net
- delete 190
OK
list 191-
191 名前:ナイコンさん :02/06/21 05:52
>>190
お前、この板初心者だろ?
192 名前:ナイコンさん :02/06/21 07:29
>>191
1を読めばわかるけどBASIC限定です
193 名前:ナイコンさん :02/06/21 12:41
>>191
お前、BASICを知らない初心者だろ?
OK
- 195 :ナイコンさん:02/06/22 19:32.net
- delete 194
OK
- 196 :GOTO 1 ':02/06/29 16:30.net
-
- 197 :END:02/07/17 13:00.net
-
- 198 :age:02/09/05 01:54.net
- 10 REM ホシュsage
20 END
- 199 :ナイコンさん:02/09/19 11:59.net
- ActiveBASICはexitで終了だが、
99BASICは終了時はsystemって打つのね。
昔を思い出して笑ったよ〜
- 200 :ナイコンさん:02/09/20 01:04.net
- LEFT$("00"+ HEX$(A), 2)
- 201 :ナイコンさん:02/09/29 13:45.net
-
1000 CLS 3 : A = 400 : B = 8000 : C = 100
1100 FOR Z = 1 TO C
1200 FOR X = 1 TO 7
1300 COLOR X : LOCATE 15,15 : PRINT "キタ (゚∀゚) !!!!!"
1400 FOR Y = 1 TO A : NEXT Y
1500 COLOR X : LOCATE 15,15 : PRINT "キタ ━(゚∀゚)━ !!!!!"
1600 FOR Y = 1 TO A : NEXT Y
1700 COLOR X : LOCATE 15,15 : PRINT "キタ ━━(゚∀゚)━━ !!!!!"
1800 FOR Y = 1 TO A : NEXT Y
1900 COLOR X : LOCATE 15,15 : PRINT "キタ ━━━(゚∀゚)━━━ !!!!!"
2000 FOR Y = 1 TO A : NEXT Y
2100 COLOR X : LOCATE 15,15 : PRINT "キタ ━━━━(゚∀゚)━━━━ !!!!!"
2200 FOR Y = 1 TO A : NEXT Y
2300 COLOR X : LOCATE 15,15 : PRINT "キタ━━━━━━(゚∀゚)━━━━━━ !!!!!"
2400 BEEP
2500 FOR Y = 1 TO B : NEXT Y
2600 NEXT X
2700 NEXT Z
2800 END
- 202 :ナイコンさん:02/09/29 13:49.net
- 1000 CLS 3 : A = 400 : B = 8000 : C = 100
1100 FOR Z = 1 TO C
1200 FOR X = 1 TO 7
1300 COLOR X : LOCATE 15,15 : PRINT "キタ (゚∀゚) !!!!!"
1400 FOR Y = 1 TO A : NEXT Y
1500 COLOR X : LOCATE 15,15 : PRINT "キタ ━(゚∀゚)━ !!!!!"
1600 FOR Y = 1 TO A : NEXT Y
1700 COLOR X : LOCATE 15,15 : PRINT "キタ ━━(゚∀゚)━━ !!!!!"
1800 FOR Y = 1 TO A : NEXT Y
1900 COLOR X : LOCATE 15,15 : PRINT "キタ ━━━(゚∀゚)━━━ !!!!!"
2000 FOR Y = 1 TO A : NEXT Y
2100 COLOR X : LOCATE 15,15 : PRINT "キタ ━━━━(゚∀゚)━━━━ !!!!!"
2200 FOR Y = 1 TO A : NEXT Y
2300 COLOR X : LOCATE 15,15 : PRINT "キタ━━━━━━(゚∀゚)━━━━━━ !!!!!"
2400 BEEP
2500 FOR Y = 1 TO B : NEXT Y
2600 NEXT X
2700 NEXT Z
2800 END
- 203 :ナイコンさん:02/09/29 13:52.net
- ↑
??? 上の二つ、PRINT文の中のspaceが消えてる・・・
しかも結局二重投稿だし・・・ 鬱
Syntax error
ok
■
- 204 :ナイコンさん:02/09/29 14:32.net
- >203
連続の半角空白は1つに圧縮されます。
で、半角で「 」と書くと圧縮されない半角空白に置き換わります。
- 205 :ナイコンさん:02/09/29 16:21.net
- >>204
ひとつおりこうになりますた ありがとうございますた m(_ _)m
- 206 :ナイコンさん:02/12/03 04:08.net
- なるほど
- 207 :ナイコンさん:02/12/24 19:34.net
- 0 go to 0
- 208 :WIDTH :02/12/24 22:06.net
-
●/ < RANDOMIZEニ タヨラナイ、ランスウノ カエカタ。
PRINT"HIT SPACE KEY!":WHILE INKEY$<>" ":A=RND(1):WEND
●/ < ソノ オウヨウレイ。
http://pc.2ch.net/test/read.cgi/i4004/1037113354/202
- 209 :WIDTH 40:02/12/24 22:09.net
- 三(#゚Д)つΣ●/ < >>208ハント゛ルメイヲ ウチソコネマスタ!
- 210 :山崎渉:03/01/13 21:51.net
- (^^)
- 211 :山崎渉:03/03/13 17:31.net
- (^^)
- 212 :山崎渉:03/04/17 12:22.net
- (^^)
- 213 :山崎渉:03/04/20 06:02.net
- ∧_∧
( ^^ )< ぬるぽ(^^)
- 214 :山崎渉:03/05/28 17:12.net
- ∧_∧
ピュ.ー ( ^^ ) <これからも僕を応援して下さいね(^^)。
=〔~∪ ̄ ̄〕
= ◎――◎ 山崎渉
- 215 :山崎 渉:03/07/15 11:10.net
-
__∧_∧_
|( ^^ )| <寝るぽ(^^)
|\⌒⌒⌒\
\ |⌒⌒⌒~| 山崎渉
~ ̄ ̄ ̄ ̄
- 216 :なまえをいれてください:03/07/22 13:00.net
- ハッキリ言ってアメリカなどの多民族国家では黒人の方がアジア人よりもずっと立場は上だよ。
貧弱で弱弱しく、アグレッシブさに欠け、醜いアジア人は黒人のストレス解消のいい的。
黒人は有名スポーツ選手、ミュージシャンを多数輩出してるし、アジア人はかなり彼らに見下されている。
(黒人は白人には頭があがらないため日系料理天などの日本人店員相手に威張り散らしてストレス解消する。
また、日本女はすぐヤラせてくれる肉便器としてとおっている。
「○ドルでどうだ?(俺を買え)」と逆売春を持ちかける黒人男性も多い。)
彼らの見ていないところでこそこそ陰口しか叩けない日本人は滑稽。
- 217 :ぼるじょあ ◆ySd1dMH5Gk :03/08/02 04:59.net
- ∧_∧ ∧_∧
ピュ.ー ( ・3・) ( ^^ ) <これからも僕たちを応援して下さいね(^^)。
=〔~∪ ̄ ̄ ̄∪ ̄ ̄〕
= ◎――――――◎ 山崎渉&ぼるじょあ
- 218 :ナイコンさん:04/02/24 16:00.net
- α
- 219 :ナイコンさん:04/02/25 19:18.net
- β
- 220 :ナイコンさん:04/05/01 21:04.net
- γ
- 221 :ナイコンさん:04/05/02 17:05.net
- δ
- 222 :ナイコンさん:04/05/03 21:21.net
- auto 223,1
- 223 :ナイコンさん:04/05/07 17:51.net
- シルフィード 1面でやられると
「オンマエモナイヨワークワッカッ ハー!」
- 224 :ナイコンさん:04/05/07 18:01.net
- 208のリンク先が見れないなぁ
RANDOMIZEって毎回同じ結果になるから使えないよね?
それを消すためのプログラムがあるのは知ってたが、資料不足でどうにもできず。
田舎で月1000円の小遣いとかじゃどうにも資料を集めるできんかった厨房の頃。
- 225 :ナイコンさん:04/05/12 23:07.net
- ビギナーズオールパーパスシンボリックインストラクションコード!
BASIC
Syntax Error
Ok
- 226 :ナイコンさん:2005/04/17(日) 16:38:42 .net
- 保守
- 227 :ナイコンさん:2005/06/04(土) 03:06:52 .net
- 最下層
- 228 :ナイコンさん:2005/06/05(日) 01:24:07 .net
- 最下層って目立つよな。
あげw
- 229 :ナイコンさん:2006/06/01(木) 20:03:14 .net
- 一年ぶりにあげ
- 230 :ナイコンさん:2006/11/22(水) 01:58:06 .net
- PRINT CHR$(13)
- 231 :ナイコンさん:2006/11/25(土) 13:56:09 .net
- 5 cls
10 print "懐かしい 泣きそうだった ";
15 beep
20 goto 10
25 end
- 232 :ナイコンさん:2007/05/13(日) 00:47:20 .net
- >>224
RANDOMIZE TIMEとか使ってたな。
3年前の書き込みにレスつけるのもどーかだがw
- 233 :ナイコンさん:2007/05/13(日) 00:58:32 .net
- そして内蔵時計脂肪の昨今
- 234 :ナイコンさん:2007/05/21(月) 13:28:06 .net
- 10 PRINT"nullpo"
20 GOTO 10
- 235 :ナイコンさん:2007/05/21(月) 14:28:50 .net
- 15 print ゙ga゙:stop
- 236 :ナイコンさん:2007/05/21(月) 14:44:26 .net
- ゙じゃねえだろオレorz
- 237 :ナイコンさん:2009/08/28(金) 19:45:31 .net
- 二年ぶりにあげ
- 238 :ナイコンさん:2010/11/06(土) 17:18:31 .net
- 1年3ヶ月ぶり age
- 239 :ナイコンさん:2010/11/07(日) 01:11:04 .net
- そんなにスレもつもんか
テーマ決めずになんでもBASICソース貼ってくれ
- 240 :─☆─ [ X | I.I.T. ] COURANT DE CONSOLE ◆TXFAX7cidQpG :2012/01/22(日) 10:06:37.63 .net
- …ってなワケで、オレ様はこちらにいる。
MAIN STREET
http://www.geocities.jp/courant_de_console/main_street/
シンプル・ブレーク・アウト…。
- - - - - - - -
関連スレ
TIME SESSION PART.1 - 新作戦略会議 -
http://jbbs.livedoor.jp/bbs/read.cgi/computer/42600/1321405314/l100
- 241 :ナイコンさん:2012/01/25(水) 19:17:23.99 .net
-
★★今時代は嫌中ブーム!!★★
みなさん嫌中ブーム知ってますか?嫌中ブームが今ネットでのひそかなブームとなってます
2ちゃんねるで大流行りした、嫌韓ブームでしたが
新しく中国を嫌う嫌中ブームがインターネットで流行っているのです!
それもそのはず彼らの横暴な態度に今日本人は怒っているからです!嫌韓と同じですね
新世紀の話題 嫌中ブーム!
時代のトレンド 嫌中ブーム!
さあ新しい時代に乗り遅れるな!話題沸騰、今時代はまさに嫌中ブームなのです!
- 242 :電脳プリオン 忍法帖【Lv=40,xxxPT】(2+0:8) 【17.9m】 :2013/08/18(日) NY:AN:NY.AN ?PLT(12080).net
- ∧_∧
( ・∀・) | | ガッ
と ) | |
Y /ノ 人
/ ) < >__Λ∩
_/し' //. V`Д´)/ ←>>213
(_フ彡 /
- 243 :ナイコンさん:2017/11/23(木) 14:15:17.85 .net
- 忘れたな
- 244 :ナイコンさん:2017/12/18(月) 19:21:17.07 .net
- http://imepic.jp/20171218/674390
- 245 :ナイコンさん:2020/07/03(金) 15:08:14.96 .net
- うける
- 246 :ナイコンさん:2022/05/04(水) 10:48:04 .net
- うけない
総レス数 246
77 KB
掲示板に戻る
全部
前100
次100
最新50
read.cgi ver.24052200