12/02/10 11:36:09.85
>>960
打ち込んだのか！？ｗｗｗ
>>962
一昔前にウルトラマンコスモスのウルトラスモスって何だよｗｗｗｗｗｗｗ
ってネタがあってだな
964: ◆0ifOH8taNk
12/02/11 00:58:47.48
>960 脳内再生で十分でしょう！？ 色々な意味で… 2012
965: ◆0ifOH8taNk
12/02/11 02:08:12.03
脳内で再生したら「ウルトラ マンコ スモス」になったｗ
966:ナイコンさん
12/02/11 05:27:18.41
> 942
> 電池が液漏れしてたよ T_T
> 947
> ボタンの裏側に付ければ
どっかずれたレスになってないか？
つか、液漏れしたなら、マイナス側の端子をきちんと清掃して、芯金を出してやれば
通電すると思われ。ONボタンの裏にある導電性ゴムは、もっと先の話ではないかと
マジレスしてみるが…釣られたのだろうか？
967: ◆0ifOH8taNk
12/02/11 07:09:06.93
>966さんへ
『>947』は 『>912』の問いに関するレスだし、『>912』と『>942』とは無関係ﾀﾞﾖ。2012
968:ナイコンさん
12/02/11 09:32:46.60
>>963
> 一昔前にウルトラマンコスモスのウルトラスモスって何だよｗｗｗｗｗｗｗ
> ってネタがあってだな
規制ワードが削除される掲示板とか？
969:ナイコンさん
12/02/11 10:01:35.68
17年も前に作ったのがひょっこり出てきたので貼ってみる
10 CLS :CLEAR :LOCATE 0,0:PRINT "10ｼﾝｦ 2ｼﾝﾆ ﾍﾝｶﾝ ｼﾏｽ":LOCATE 0,1:INPUT "INPUT(0-65535):";I:IF I<0OR I>65535THEN 10
20 I=I/2:T=INT I:IF I>T THEN A$="1"+A$:I=T ELSE A$="0"+A$
30 IF I>0THEN 20
40 LOCATE 40-LEN A$,2:PRINT A$:LOCATE 0,3:PRINT "PUSH SPACE KEY"
50 IF INKEY$ =" "THEN 10
60 IF INKEY$ <>CHR$ 8THEN 50
70 END
970:ナイコンさん
12/02/11 11:33:19.91
10進2進変換で思い出した
PC-G850シリーズに内蔵の進数変換ＢＡＳＩＣプログラム
これってLIST表示する方法無いのかな
971:ナイコンさん
12/02/11 12:18:00.08
せっかくだから36進対応を自作したいところ
972: ◆0ifOH8taNk
12/02/11 12:46:58.17
>969
面白そうだから、自分なりにアレンジしてみました！！！ (飾り付け部分は省略…)
〔SHARP PC-E500〕
10 A$="":INPUT I
20 I=I/2:A$=CHR$(48.5+I-INT I)+A$
30 IF I>=1 THEN 20
40 PRINT A$
50 END
初めて十進⇒二進変換作った！！！ 2012
973:ナイコンさん
12/02/11 12:50:05.53
20 A$=STR$(I AND 1)+A$:I=I/2
ではどうか？
974: ◆0ifOH8taNk
12/02/11 13:04:12.74
>973
PC-E500に関して言えば、65535みたいな大きな数でANDを使うことができないんです。。。 2012
975:ナイコンさん
12/02/11 13:10:27.85
>>974
そうなのか
仕様なんてもうすっかり忘れてしまったな
976:ナイコンさん
12/02/11 13:11:23.18
>>972
いいね。IF文使うよりずっとスマートにまとまってる
こういう流れを見ると何か作りたくなる
977: ◆0ifOH8taNk
12/02/11 13:15:04.76
『過去の自分は赤の他人』
>976 IFを使わないと、後から見て理解不能なプログラムに化けている危険性も持ち合わせている。。。 2012
978: ◆0ifOH8taNk
12/02/11 15:01:58.79
>>972より短いリストのものを作ろうぜ。
入力する数字は0～65535の整数に限るという条件下で。
979: ◆0ifOH8taNk
12/02/11 15:03:04.27
0～65535ではなく1～65535に変更
980:ナイコンさん
12/02/11 15:05:36.36
埋め立て開始
981: ◆0ifOH8taNk
12/02/11 15:11:05.94
>>980
次スレよろぴく
982: ◆0ifOH8taNk
12/02/11 15:18:36.73
30 GOTO 40+20*(I>=1)
IFは消えたが２文字増えてしまった。。。 2012
※動作未確認
983: ◆0ifOH8taNk
12/02/11 15:35:38.95
行番号を1刻みにして
3 GOTO 4+2*(I>0) にすれば短くなる