トップページ⇒tech
114コメント27KB

ポケコンで・・・

■ このスレッドは過去ログ倉庫に格納されています
0001デフォルトの名無しさんNGNG
シャープのpc-g850sです。学校で買わされて、basicでもc-言語
でもいいので、なにか凄いプログラムを教えてください！
0008デフォルトの名無しさんNGNG
>>1
三角形の面積を求めるすごいプログラム。

#include <stdio.h>

int main()
{
　int h, w;
　printf("height=");
　scanf("%d",&h);
　printf("width=");
　scanf("%d",&w);
　printf("area = %g\n", (double)h*w/2);
　return 0;
}
0009デフォルトの名無しさんNGNG
このスレ、マ板にもあった...
0010デフォルトの名無しさんNGNG
早く歩毛魂を捨てろと教えてやれよ>>10
0011デフォルトの名無しさんNGNG
無限ループが発生しましたので

====================強制終了====================
0012デフォルトの名無しさんNGNG
いいかげんポケコンなんか買うわせるのやめろよ、大学生協
0013１NGNG
高校生です
0014デフォルトの名無しさんNGNG
SHARPからPICのプログラミングができるものがでたが、AVRには
対応してくれないのか？

変態命令セットのPICはｲﾔｰﾝ
0015１NGNG
age
0016デフォルトの名無しさんNGNG
いいかげんなポコチンもセット販売ＯＫ
0017　NGNG
まだポケコンを強制購入させられるところがあるのか。
そんな学校やめるのが吉。
0018デフォルトの名無しさんNGNG
ポケコンでウィザードリィって作れますか？
モンスターのグラフィックはいりません。
文字とダンジョンの線画だけでいいので作れませんかね？
どなたかお願いします。

>>17
そんな理由で辞めるつもりはありません。
0019デフォルトの名無しさんNGNG
ノートPCより駆動時間長いだろうし、
適度にロースペックだし、いいんでない＞ポケコン
0020デフォルトの名無しさんNGNG
>>17
ほとんどの工業高校で使ってますよ。
必要だから使っているんですよ。
0021デフォルトの名無しさんNGNG
プログラムできる関数電卓として使うと吉な気がする。
大学でも物理実験に使った。
0022デフォルトの名無しさんNGNG
win電卓が関数電卓になるのを知ってから使ってないな。
0023BTRON名無しさんNGNG
>>18
いまどきはそういうことを人に聞くのか？
本屋にはポケコンプログラミングの本は売ってないのか？

俺が厨房でカシオのポケコンFX-702Pを買ったころにはなぁ……
クドクドクド……
0024仕様書無しさんNGNG
>>1
つーかマニュアルにBASICの命令載ってるだろ。
LINEとかって命令で座標を指定すれば線が引ける。
ウィザードリー程度なら何パターンか用意すれば
いいわけだし。

ポケコンのCはライブラリ無いから
Cをやりたいならパソコンでやるべし。
インタプリタだからBASICより速くも無い。
御茶目菜子と言う人のページに色々書いてるから
要検索。

ポケコンでプログラミングに興味を持ったのは
見込みあるがこの程度の事を人に効いてたら駄目だよ。

俺が工房でシャープのPC-G815を買ったころにはなぁ……
クドクドクド……
0025デフォルトの名無しさんNGNG
俺が消防でちっちゃいポコチンを触りだしたころにはなぁ…
クドクドクド……
0026デフォルトの名無しさんNGNG
俺が幼房でピカチュのポケモン見出したころにはなぁ……
クラクラクラ……
0027　NGNG
情報系の学生です。
ポケコンってなに？

そもそも何かを作ってくれと言う前に自分で何かを作ればいい。
0028デフォルトの名無しさんNGNG
ポケコンジャーナルっていうマイナー雑誌が３年くらいまえまでみかけて
たんだけど今もあるかどうか謎・・・。
0029デフォルトの名無しさんNGNG
関数電卓は、三角関数など全部ＢＣＤ演算で計算してます。
そこがＷｉｎ電卓と違うところ。
003027NGNG
　ラジコンみたいなやつを制御するプログラムとか面白いんじゃない。
俺の通ってた学校は、ロボコンとかよくでてたけどマシンは、ほとんど教師が作ってた・・。
0031デフォルトの名無しさんNGNG
>>30
コラぁ〜〜〜〜！
それはゆっちゃ、ダメでしょ〜〜〜〜〜〜っ
ｳｧｰｰｰｰﾝ
0032デフォルトの名無しさんNGNG
計算尺だった漏れって…
0033デフォルトの名無しさんNGNG
>ポケコンでウィザードリィって作れますか？
Wizardry:Black-Onix = Black-Onix:俺のプログラム
くらいの割合でヘボイのなら作った。
8x8の5階構造くらいだったかな？BASICで3000byte程度。
あと、BASICコンパイラ使って
スクランブルとグラディウスを足して２で割ったようなのを
作ったこともある。これは2500byteくらい。
あ！ポケコンじゃなかった！ポタコンだった。。。
0034デフォルトの名無しさんNGNG
大昔ポケコンさわった事あるけど、
演算させると動きが遅くなるんで、
全て手計算で出した値を記憶させ、
それを使わせた。

計算させられない計算機だった。
0035デフォルトの名無しさんNGNG
おいらのポケコンはHP200LXですが何か？
0036デフォルトの名無しさんNGNG
PC-E500買ってベーマガに３回載ったので
ちょうど元は取ったといえよう。
0037デフォルトの名無しさんNGNG
化学科では必要です。
0038デフォルトの名無しさんNGNG
>>28

休刊した。多分4年前くらいにな。
0039デフォルトの名無しさん NGNG
昔のやつならＣＰＵにＺ80　乗っけてたからアセンブラはじめる
のにちょうどよかったんだけど。
　まさか　Ｚ80がこんなにはやく消えるとは、思わなかったＹＯ。
0040元PC-E500ユーザNGNG
誰か今メジャー？なポケコンについて教えて。角度とか。
関数電卓壊れたので、ひとつ欲しくなってしまった。
0041デフォルトの名無しさんNGNG
メジャーなポケコンなんてあるのか？
0042元PC-E500ユーザNGNG
うん。だからハテナマークつけてるの。
0043デフォルトの名無しさんNGNG
TOSHIBA
0044デフォルトの名無しさんNGNG
IBM
0045デフォルトの名無しさんNGNG
>1
超遅レス。
PC-G850ならシューティングとか作れる。


って見てないか・・・
0046デフォルトの名無しさんNGNG
連立方程式を解くプログラムって
御存知の方いらっしゃいますか？
もしいらっしゃれば
何卒、
漏れにご教授いただけませんでしょうか？
お願いします
0047デフォルトの名無しさんNGNG
ポケコンで？
0048デフォルトの名無しさんNGNG
言語は？
004946NGNG
レス有難う御座います
>>47
はい
漏れは今ＳＨＡＲＰのＰＣ−Ｇ８３０
使ってます
>>48
ＢＡＳＩＣでお願いします
0050デフォルトの名無しさんNGNG
1
俺と同じ学校のやつじゃないの？
いのかしら
0051 NGNG
おい1
ha
ore to isshon gakkou janeeka?
soredattara hazukasiina konna kotokakikomunante
inokasira de wakarudaro?
0052デフォルトの名無しさんNGNG
ぎょ、行番号付きC
005346NGNG
何方か御存知の方いらっしゃいませんか？
小一時間検索しましたが見つかりませんでした
0054たしか・・NGNG
>>46
行列解かせろyo.
数値解析の本でも嫁.
0055駄レスさんNGNG
>46
何次か知らんが掃き出し法でも調べとけ。
行列式で判定して丁寧にやったっていいじゃないか。
0056デフォルトの名無しさんNGNG
このポケコンで、C言語使ってオセロとか、
マインスイーパーとか作って授業中に
回してましたよ〜。
ま〜、結構ソースが長いからココに書いても、
それを打ち込むかどうかは、又別問題だと思うけど・・・。
005746NGNG
>>55
２次方程式が解きたいです
漏れ的にはソースだけわかればいいんです
まだ行列とかわからないので…
ソースがわかったら後は自分で考えます
0058駄レスさんNGNG
２次方程式？連立二元一次方程式じゃないの？
第一、原理を知らずにプログラムを読むのは不可能です。
0059デフォルトの名無しさんNGNG
連立ではないけど2次方程式解くプログラム、知らない間に作っていたようですが何か。
006046NGNG
>>59
本当ですか！？
是非教えていただけませんか？
0061デフォルトの名無しさんNGNG
casioのz-1grのことだけど、
条件判断式のとき、条件要素をANDで区切ったるするときにその要素を括弧でくくってやると
少しだけ解釈が早くなるということがあった。意外と実用的かも。

あと、こいつのおかげで遅いコンピューターも必要だということがわかった。
突き詰めてくと、割と簡潔に書けるようになる。（トリッキーにもなるが。）
0062デフォルトの名無しさんNGNG
>>60
大学の計算機内にありますが何か。
つか、単なる2次方程式なら解の公式使えば？
漏れ持ってるのはその方法だった。

…高次方程式を解くのを作ろうかと思ったけど面倒になてﾊﾟｽ。
0063デフォルトの名無しさんNGNG
というか、何で自分でやらないんだろう
どこかにそんなプログラムがネット上に
転がっていると思っているのだろうか
○○バンクじゃあるまいし
プログラム作って
動いたときの感動を味わいたくないの？
ただ単に、数学の宿題を楽に仕上げたいだけなのかな
006446NGNG
ヒントを手に入れました
ヒントって言うか答えみたいなモンだけど

ax+by=c
dx+ey=f
という2式が与えられたとき、その解として
x=(ce-bf)/(ae-bd)
y=(cd-af)/(bd-ae)
となるものです.
よって,
・a,b,c,d,e,fの値を入力する
・x,yを上式に従って計算する
・x,yを表示する
といった手順を踏めば良いわけですよね？

これで良いならスグにプログラム組めます
0065デフォルトの名無しさんNGNG
漏れは、ポケコン検定上級とかいう検定を取ったが
これってマイナー過ぎか?
ついでにポケコンはCASIO Z-1GR。
学校で無理やり買わされましたｗ
0066デフォルトの名無しさんNGNG
非常にマイナー。(w
漏れも持ってる。
工高生なら多少いるだろうけど…
0067デフォルトの名無しさんNGNG
>66
漏れ工高生。
今年で卒業。もう学校行ってないヽ(´ー｀)ﾉ
006861NGNG
僕の場合はポケコンは買わさせられたが、結果的に良かったと思えるよ。
うんで、ポケコンの計算検定3級だったかはもってるけど意味なしっぽい・・・。
工業に行ったら、危険物取ればほかいらない気がする。
僕は落ちたんで持ってないが（笑
0069デフォルトの名無しさんNGNG
46は（デルタ）=0の判定を忘れる
に１０００ペリカ。
007046NGNG
>>69
（デルタ）=0の判定って何ですか？
0071デフォルトの名無しさんNGNG
>>68
俺も去年工高卒したが、確かにポケコンは役に立つ。
電気工事士とか取りたかったが、結局乙四危険物だけ。
この資格、今だに役に立たない…
0072デフォルトの名無しさんNGNG
漏れなんか乙全類取ったぞ。
…1類たった10問に数千円＋手数料って、物凄い無駄金かけて。
他の人と同様全く役に立ってない。
0073デフォルトの名無しさんNGNG
>1 ﾎﾟｹｺﾝﾎｽｨ
　　幾らだったの？
0074東条上等兵NGNG
今、最も高性能のポケコンってやっぱＺ１？
0075デフォルトの名無しさんNGNG
ポケコンで多元の連立方程式はもとより、常微分方程式もいけるよ
TI-92plusに買い替えればよいのだ
0076デフォルトの名無しさんNGNG
ポケコンといえば PB-100 に限りますが何か？
0077デフォルトの名無しさんNGNG
　
0078デフォルトの名無しさんNGNG
ポケットコンピュータ（PC-G850）用ソフトウェア注文製作

こんなサービスはじめちゃったよ　だれか注文してみて

http://www53.tok2.com/home/patrosystem/service.htm
0079デフォルトの名無しさんNGNG
テスト中にカンニングできるのが最大の魅力
0080デフォルトの名無しさんNGNG
しかしポケコンって壊れやすいよな。
0081デフォルトの名無しさんNGNG
PC-E650が最強だ。
ったらいいのに。
0082デフォルトの名無しさんNGNG
>>79
ほとんどの携帯電話には、電卓が付属していると思われ。
0083デフォルトの名無しさんNGNG
>>82
テスト中に携帯ちょしたら捕まるって
0084デフォルトの名無しさんNGNG
質問です！
ベーシックでキャラクターのスクロールの仕方を教えてください。→のキーを押したときに
Ｘ座標に＋して表示すると前のキャラクターが残っているので消すためにＣＬＳを使ってるんですけど、
そうするとすべての表示が消えてしまうので、そのキャラクターにビームを発射させようとするとビームだけが表示されて（スクロールはできている）
発射したキャラクターが消えてしまいます。
一部を消す関数みたいなのはないのでしょうか？
やりかたを教えてください。
0085デフォルトの名無しさんNGNG
仮想VRAM
0086マリモーマNGNG
ここも　ポケコンスレが　あるが　立てるときに　見てないのか？

http://pc.2ch.net/test/read.cgi/tech/1021219939/
0087デフォルトの名無しさんNGNG
>>86
日付の比較もできないバカﾊｹｰﾝ!!
0088デフォルトの名無しさんNGNG
ポケコンと言えば御茶目菜子さんがすごいよマジで
0089デフォルトの名無しさんNGNG
>88
いや、たかじょだろ？
0090デフォルトの名無しさんNGNG
ポケコンと言えばPatrosystemが一番すごいに決まっているだろ
なんせオペレーティングシステムを作ったんだからな。
0091マリモーマNGNG
いや　僕だったりして
0092デフォルトの名無しさんNGNG
いや、猫妖精ことこたちゃんだろう。
いや、VERTEBRAかも知れん。
もしかしたらMORかも知れないし、
実は島崎犬だったのかも知れない。
009392NGNG
追加
実は佐伯氏かも。
0094デフォルトの名無しさんNGNG
>>93
禿同。あの人すげぇよ。
最後の逸材だったね。
0095デフォルトの名無しさんNGNG
ageage
0096デフォルトの名無しさんNGNG
ポケコンを2chの流行語にした加藤勇喜君には感謝します。
0097かおりん祭り ◇KAORinK6NGNG
∋oノハヽo∈　／￣￣￣￣￣￣￣
　 （　＾▽＾） ＜　新スレおめでとうございま−す♪　
= ⊂ 　　）　　 ＼＿＿＿＿＿＿＿
= (__/"(__)　ﾄﾃﾃﾃ　
0098ポケコンスレageまくり連合NGNG



0099デフォルトの名無しさんNGNG
凄いプログラム？わかった！教えるよ。

10 PRINT"ｽｺﾞｲ!":END
0100デフォルトの名無しさんNGNG
10' [product] operating system << Powers CE >> ver. 5.8 lev. 13 trial version ver. 1.0 lev. 4 [copyright] Patrosystem [programer] Yuki Kato
20CLEAR :CLS :FOR A=0 TO 500:NEXT :LOCATE 7,2:PRINT "Patrosystem":FOR A=0 TO 5000:NEXT :CLS :FOR A=0 TO 1000:NEXT :LINE (132,1)-(7,1):LINE -(7,42):LINE (11,5)-(136,46),B
30LINE (8,2)-(10,4):LINE (8,43)-(10,45):LINE (133,2)-(135,4):LOCATE 3,1:PRINT "operating system":LOCATE 6,2:PRINT "Powers CE 5.8":LOCATE 4,3:PRINT "active 6ic manager":LOCATE 6,4:PRINT "trial version"
40FOR AA=135 TO 12 STEP -.5:PSET (AA,23):PSET (147-AA,15):IF AA<116 LINE (AA+20,23)-(AA+20,23),R:LINE (128-AA,15)-(128-AA,15),R
50FOR A=0 TO 10:NEXT :NEXT :FOR A=0 TO 5000:NEXT :CLS :IF FRE <680 GOSUB *MER:GOTO *EX2 ELSE GOSUB *SETL:ZL=0:GOSUB *SETS:ZA=1:CLS :FOR Y=0 TO 4:READ ZB,ZK:GOSUB *BP:NEXT
60CLS :ZA=3:ZB=20:ZK=0:GOSUB *BP:GOSUB *WINDOW:LOCATE 4,1:PRINT "(^_^)ｺﾉｿﾌﾄﾊﾀｲｹﾝﾊﾞ":LOCATE 4,2:PRINT "ﾝﾃﾞｽ｡ｾｲﾋﾝﾊﾞﾝﾉｲﾝｽﾄ":LOCATE 4,3:INPUT "ｰﾙｦｵｽｽﾒｼﾏｽ｡";N$
70CLEAR :USING :GOSUB *SETL:CLS :DIM J$(10,2),V(5):LOCATE 10,5:PRINT "Powers CE 5.8t":LINE (4,6)-(54,40),B:LINE (64,6)-(138,32),B:LOCATE 10,2:PRINT "> <":LINE (59,14)-(64,24),B:LINE (138,14)-(143,24),B:LINE (64,15)-(138,18),R,B
80LINE (64,20)-(138,23),R,B:S=1:V(1)=1:OUT 4
90SWITCH S
100CASE 1:RESTORE 1220
110CASE 2:RESTORE 1230
120CASE 3:RESTORE 1240
130CASE 4:RESTORE 1250
140CASE 5:RESTORE 1260
150CASE 6:RESTORE 1270
160CASE 7:S=2:P=1:RESTORE 1230
170CASE 11:RESTORE 1280
180ENDSWITCH
190READ Q:FOR K=1 TO 10:READ J$(K,1),J$(K,2):NEXT :K=Q
200FOR L=1 TO 3:LOCATE 11,L:PRINT " ":NEXT :FOR L=0 TO 2:LOCATE 11,L+1:IF K+L>Q THEN O=K-Q ELSE O=K
210PRINT J$(O+L,1);J$(O+L,2):NEXT :WHILE INKEY$ :WEND :Z=0
220M= ASC INKEY$ :IF M=0 THEN Z=Z+1:IF Z= INT C*48 GOSUB *WINDOW:LOCATE 4,1:PRINT "(~o~)ｵｰﾄｻｽﾍﾟﾝﾄﾞｷﾉ":LOCATE 4,2:PRINT "ｳｶﾞﾊﾀﾗｷﾏｼﾀ｡":FOR A=0 TO 3000:NEXT :GOTO *EX3 ELSE ELSE 240
230IF ZL=0 IF INP =4 GOSUB *ICC:GOTO 60 ELSE 220 ELSE IF INP =0 THEN AF=0:WHILE INP =0 AND AF<100:AF=AF+1:WEND :IF AF=100 GOSUB *ICO:GOTO 60 ELSE 220 ELSE 220
240SWITCH M
250CASE D:IF K=1 THEN K=Q+1
260K=K-1:ZA=1:ZB=B+10:ZK=0:GOSUB *BP
270CASE F:IF K=Q THEN K=0
280K=K+1:ZA=1:ZB=B+10:ZK=0:GOSUB *BP
290ENDSWITCH
300IF M=I OR M=G AND P>0 THEN ZA=1:ZB=B+5:ZK=0:GOSUB *BP:LOCATE 1,P:PRINT " ":S=V(P):P=P-1:GOTO 90
0101デフォルトの名無しさんNGNG
悪い！長すぎてＵＰできん
0102デフォルトの名無しさんNGNG
何やってんの？
ていうか人のﾌﾟﾛｸﾞﾗﾑ勝手にUPするのはやめとけ。
法律に触れる。
0103デフォルトの名無しさんNGNG
>>102
100を擁護するわけじゃないが、こんなのをオペレーティングシステムだと言い張り
違うだろといっても全く聞く耳持たずＯＳと言い張るほうが法律に触れると思う。
0104デフォルトの名無しさんNGNG
>>103
それはどうかな。
OSの定義なんてはっきりしてない。
OSについて書いてある本とかも本によってぜんぜん違うこと書いてあるし。
本によってはあのLinuxをOSではないと書いてある本もあった。
誰もやつが作ったPowersを絶対にOSではないとは言い切れないはず。
0105デフォルトの名無しさんNGNG
>>103
Powersを誤解してｲﾝｽﾄｻｰﾋﾞｽを受けることがないようにするために
Patroはわざわざ体験版を配布したのでは？
0106デフォルトの名無しさんNGNG
>>104
http://pc.2ch.net/test/read.cgi/tech/1022685075/550-553
ｶｺﾜﾙｲ
0107デフォルトの名無しさんNGNG
>>105
わざわざ体験版を用意したのは誤解してもらうためだろ。
別に正式版だけでも問題なかったはず。
0108デフォルトの名無しさんNGNG
>>103
パトロの超誇大解釈に誰が付き合うかバーカ
はっきりしていないのは認めるがあれがＯＳでないことははっきりしている。
■ このスレッドは過去ログ倉庫に格納されています