[過去ﾛｸﾞ] 【ｼｬｰﾌﾟ】ポケコン 10:PRINT "SHARP"【ｻﾞｳﾙｽ以外】 (1001ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
1(2): 2006/06/17(土)11:55 AAS
またーりといきましょ
ザウルスは専用スレがあるからそちらで
厳密な名称問題をやり出すときりがないからそこそこに

関連スレ
【PJ】ポケコン総合スレッドPart9【BASIC】
2chｽﾚ:i4004

PB-100は氏ね |READY　P1　　　　|
2chｽﾚ:i4004

【Had!】MI/PIザウルススレ 第16章【皆国民】
2chｽﾚ:mobile
省2
982: ◆0ifOH8taNk 2012/02/11(土)15:18 AAS
30 GOTO 40+20*(I>=1)

IFは消えたが２文字増えてしまった。。。 2012

※動作未確認
983(1): ◆0ifOH8taNk 2012/02/11(土)15:35 AAS
行番号を1刻みにして

3 GOTO 4+2*(I>>0) にすれば短くなる
984: ◆0ifOH8taNk 2012/02/11(土)15:56 AAS
PC-E500用
TEXTモードにして入力。※動作未確認

1 A$="":I.I
2 I=I/2:A$=CHR$(48.5+I-INTI)+A$
3 G.4+2*(I>=1)
4 P.A$
5 E.

かなり短くなりました (;・｀д・´)
…ってそういう意味じゃぁないかぁ。。。 2012
985(1): ◆0ifOH8taNk 2012/02/11(土)15:58 AAS
ｺﾞﾒﾝ>>983はｽﾙｰしてｗ
986(1): ◆0ifOH8taNk 2012/02/11(土)15:59 AAS
1 A$="":I.I
2 I=I/2:A$=CHR$(48.5+I-INTI)+A$:G.3+(I>=1)
3 P.A$
4 E.

ちょっと訂正です。2012
987: ◆0ifOH8taNk 2012/02/11(土)22:08 AAS
>>985 そのお陰で短くなったやん。
でも、行番号２０の根本的な部分のとこで改良するのは難題だなぁ。。。2012
988: ◆0ifOH8taNk 2012/02/12(日)10:28 AAS
おはヨーグルト
989(1): ◆0ifOH8taNk 2012/02/12(日)11:43 AAS
｢ｺﾝﾁWAIT♪｣

｢…｣

…うゎ〜ｽﾍﾞｯﾀか。。。 2012
990: 2012/02/12(日)14:36 AAS
>>989
きっとWAITで止まってるだけだよ
「WAIT 0」

・・・・・・変化がない。やはりすべｔｔ(ry
991: ◆TFvd9tzKTbxR 2012/02/12(日)15:35 AAS
>>978
とある日本一のお方が更なる短縮方法を導いてくださりました。
しかし、演算処理ではほぼ限界とのことです。
が、、、それでも挑戦してみましょうか！？ 2012
992(1): ◆0ifOH8taNk 2012/02/12(日)15:52 AAS
一番短いプログラムを頼む
993: ◆TFvd9tzKTbxR 2012/02/12(日)16:17 AAS
>>992

>>986の４行目を省く！2012
994(2): ◆0ifOH8taNk 2012/02/12(日)16:31 AAS
そんなプログラムで大丈夫か？
995: ◆0ifOH8taNk 2012/02/12(日)16:41 AAS
>>994
BASICモードにしないと使えないから、最終的にはこうなる↓↓↓
1 A$="":INPUT I
2 I=I/2:A$=CHR$ (48.5+I-INT I)+A$:GOTO 3+(I>=1)
3 PRINT A$

ちょっと解説を加えると、、、
・CHR$は小数切り捨て扱いだから、"0"か"1"になる。
・(I>=1)は成り立てば-1に、成り立たなければ0になるから、2か3になる。

試してないけどね…2012
996: ◆0ifOH8taNk 2012/02/12(日)16:48 AAS
>>994
大丈夫だ問題ない
997(1): 2012/02/12(日)16:50 AAS
GOTO 2-(I<1)

ならどうか
998(1): 2012/02/12(日)17:01 AAS
で、次スレは？
999: ◆0ifOH8taNk 2012/02/12(日)17:09 AAS
>>997
仮にI=2の時

一回目の計算は　I=1で CHR$(48.5+0)⇒CHR$ 48 つまり"0" (I>=1)だから繰り返す。
二回目の計算は I=0.5で CHR$(48.5+0.5)⇒CHR$ 49
つまり"1" (I>=1)ではないから終了。
…と、２回処理をしなければならないが、(I>>1)にしてしまうと、いきなり成り立たなくなってしまい、処理が終わってしまう。
だから、(I>=1)にしないとうまくいかない。

説明が下手くそですまん。。。2012
1000: 2012/02/12(日)17:12 AAS
　
1001: １００１ Over 1000 Thread AAS
このスレッドは１０００を超えました。
もう書けないので、新しいスレッドを立ててくださいです。。。
上下前次1-新書関写板覧索設栞歴
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.176s*