【クイズ】何のプログラムでしょう?
■ このスレッドは過去ログ倉庫に格納されています
0001御影 ◆KAGE.AcA
NGNGよく遊んでました。
で、ふと最近思いついたプログラムがあるんですが、
これは一体何のプログラムのつもりでしょう?(>>2に書きます。)
命令の書式など忘れた部分もあるので、
日本語で説明しながらになります。
わかる人は、適切な命令に書き換えて実行してみてください。
もちろん、対応する命令さえわかればBASICでなくてもよいです。
結果がわかった人は何のプログラムのつもりなのか書いてください。
専門板なのに、拙いプログラム書式ですみません。
0002御影 ◆KAGE.AcA
NGNG120 y(i)=0
130 next i
140 ここで変数Xに、0〜MAXXの間の任意の整数を"ランダムで"代入
150 座標(x、y(x))に赤い点をプロット
160 y(x)=y(x)+1
170 for j=1 to seinou
180 next j
190 goto 140
MAXXはディスプレイ画面の右端のx座標です。
変数seinouは各PCの処理速度に比例するもので、
万単位の数を入れて処理を適度に遅くしてください。
0003ドラム缶をキックする男
NGNG0004デフォルトの名無しさん
NGNG0005オラア
NGNG0006デフォルトの名無しさん
NGNG0007デフォルトの名無しさん
NGNG0008御影 ◆KAGE.AcA
NGNGプログラミング上級者の人たちにはクソスレなんだろうけど、
1には感動的な発見だったのに・・・。
0009
NGNG0010デフォルトの名無しさん
NGNGいまどき行番号付きBASICなんかで投稿するからだ。
Cの擬似コードとかにしとけばよかったのに。
やっぱ、ガンダムはBASICで組まれてたのか
0012デフォルトの名無しさん
NGNGガンダムは「教育型コンピュータ」です。
なんか良くわからんが、われわれのつかっとるノイマン型とはちょっとちがうらしい。
ざんねんでした。
0013かぼ師匠@N88-ぱんぷきん
NGNG( ‘д‘) < 記念カキコ
0014デフォルトの名無しさん
NGNG>1には感動的な発見だったのに・・・
?8=1なのになぜそんなに他人のような口調?
(・∀・)ジサクジエンの失敗?
0015C++屋
NGNGでも、170、180の意味がわからんなあ。
0016糞スレ
NGNG□□□■■□□□□□■□□□□□□□■■■■■■■■■■■■□□
□□■■□□□□□■■■■■■□□□□□□□□□□□□□■■□□
□■■□□■□□□■□□□□■□□□□□□□□□□□□■■□□□
□□■□■■□□■■■□□■■□□□□□□□□□□□■■□□□□
□□□■■□□■■□■■■■□□□□□□□□□□□■■□□□□□
□□■■□□□□□□□■■□□□□□□□□□□□■■□□□□□□
□□■□□□■□□□■■■■□□□□□□□□□□■□□□□□□□
□■■■■■■□□■■□□■■□□□□□□□□□■□□□□□□□
□□□□■□□□■■□□□□■■□□□□□□□□■□□□□□□□
□□■□■□■□□□□■■□□□□□□□□□□□■□□□□□□□
□□■□■□■□□□□□■■□□□□□□□□□□■□□□□□□□
□■■□■□■□□□□□□□□□□□□□□□□□■□□□□□□□
□■□□■□□□□■■■□□□□□□□□□□□□■□□□□□□□
□□□□■□□□□□□■■■□□□□□□□□□□■□□□□□□□
□□□□■□□□□□□□□■■□□□□□□■■■■□□□□□□□
0017デフォルトの名無しさん
NGNG0018デフォルトの名無しさん
NGNGfor(i=0;i<=MAXX;i++)
y[i]=0;
while(True){
x = rnd();
plotdot( x , y[x] , RED);
y[x] ++;
sleep(WAIT_TIME);
}
どうってことないような。
0019デフォルトの名無しさん
NGNGゴジャース!
0020御影 ◆KAGE.AcA
NGNGこのタイプしか知らなかったので。
センター試験対策のBASICだったので。
>14
一人称に『1』を使うのは変ですか?
『私』にすればよかったかなあ・・・
まさかジサクジエンなんてしませんよ。
>18
これがCの書式なんですか?
なんか似てますね。
0021デフォルトの名無しさん
NGNGx = rnd()%MAXX;
って言って欲しかったんだね。
俺はplotdotって知らない。SetPixelじゃ?
002219
NGNG0023デフォルトの名無しさん
NGNG0024デフォルトの名無しさん
NGNGかかって却って逆効果ダタよ。
0025デフォルトの名無しさん
NGNGgotoの使い方カコイイ
0026デフォルトの名無しさん
NGNG$c{$_}++ for split /\W/,join' ',<>;
print "$_:$c{$_}\n" for sort keys %c;
0027デフォルトの名無しさん
NGNGせめて、JavaとかCにしろよ・・・
■ このスレッドは過去ログ倉庫に格納されています