5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

第1回昔のPC板杯プログラムコンテスト

1 :あまぐらまぁ:01/12/20 20:21
毎年恒例となった 第1回昔のPC板杯プログラムコンテストを開催するヨ!
かつてやった(であろう)クダラネー!!プログラムや クダラネー!!テクニックを
再びここで披露して下さい。

目的:画面上に100回「オマエモナー」と表示させる。
   特例としてカナが使えない機種は「OMAEMONA-」でも良い。
使用機種:不問
使用言語:BASIC限定(各機種の方言の使用は可)
条件:プログラムコードが長くならないように注意。
   (省略されました・・全てを読むにはここを押してください)が
   出てしまったら、そのエントリーは無効。
評価:綺麗なソースやアルゴリズムだけではなく、実行したときの芸術性
   なども評価の対象とする。
   表示1回毎に色を変えたり音を出したり等、演出を凝らすのは
   構わない。各自工夫してプログラムすること。
   ネタ歓迎!。

エントリーする人は、動作機種を(ものによっては何BASICかも)明記してくれ。
エントリーに対するレスなんかも大いにしちゃって!。もりageて行こう!
ビクーリするようなヤツ期待してます!

166 :誰か:02/02/02 11:54
RND(X)
Xの条件:数値型定数, 変数, 配列変数, 式。
返される値: 数値型。

0<X の時:常に一定の系列の乱数を発生する。
X=0 の時:1つ前に発生したのと同じ値を返す。
X<0 の時:Xの値に対応する発生系列を作り、
     それ以降の RND関数はその系列で乱数を発生する。
-----------
MSXにあるのはRNDだけで、RNDが RANDOMIZEも兼ねてるみたいですね。

167 :ナイコンさん:02/02/02 15:54
>>166
さんくす!

・・・むむむ。でもRANDOMIZE効かないなぁ。

10 CLS:CLEAR
20 FOR I=1 TO 20
30 A=10*(RND(10))
40 PRINT INT(A)
50 NEXT I

これでrunしても、毎回同じ乱数しか出ないっす・・・。(T_T)
分かる人、誰か教えて下さい。

168 :ナイコンさん:02/02/02 16:03
>>167
MSXは使ってないからわからないけど>>166を見ると、
始めにRND(-TIME)とかやっておけばいいんじゃないの?


71 KB
■ このスレッドは過去ログ倉庫に格納されています

★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.04.00 2017/10/04 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)