プチコンまとめWiki (初代/mkII)

Toukou/勝てないじゃんけん の変更点


#title(投稿プログラム : 勝てないじゃんけん)
#contents
2012年10月23日投稿
/ 投稿者 : [[hatena>http://www1.atwiki.jp/hatena71869/pages/17.html]]
/ &tag(投稿プログラム,1画面プログラム,mkII専用,QRコード,ゲーム);

* 概要 [#Summary]
CPUが必ず勝つじゃんけんゲームです。&br;
VAL("9"*(9999^9999^9999^9999^9999))回やってもCPUには勝てません。&br;
勝てないからといって間違ってもDSを投げないでください。

* QR コード [#QR]
プチコンmkII 向けの QR コードです。
|~&basic{PRG:HN_JANKN};|
|&ref(qr000.png);|

* プログラムリスト [#List]
#basic{{
'CPU カ゛ カナラス゛ カツ シ゛ャンケン
ACLS         'by hatena
CLEAR
@LOOP
 ?"ク゛- or チョキ or ハ゜- ?"
 LINPUT A$
 A=0
 A=A$=="ク゛-"
 A=A+2*(A$=="チョキ")
 A=A+3*(A$=="ハ゜-")
 IF !A THEN GOTO@LOOP
 B=(A-1)+!(A-1)*3
 ?
 ?"アナタ:";
 IF !(A-1) THEN ?"ク゛-"
 IF !(A-2) THEN ?"チョキ"
 IF !(A-3) THEN ?"ハ゜-"
 ?"CPU:";
 IF !(B-1) THEN ?"ク゛-"
 IF !(B-2) THEN ?"チョキ"
 IF !(B-3) THEN ?"ハ゜-"
 ?"CPUノカチ。"
 ?"-"*31
GOTO@LOOP
}}
+初期化(1〜2行目)
+ラベル定義:&basic{@LOOP};(3行目)
+ユーザーの手を入力させる。(4〜5行目)
+&basic{A};変数にユーザーの手に当てはまる数値を代入。&br;当てはまる数値はそれぞれ&basic{グー};→&basic{1};、&basic{チョキ};→&basic{2};、&basic{パー};→&basic{3};である。(6〜10行目)
+ユーザーの手がグー、チョキ、パーのいずれかにあてはまらない場合は&basic{@LOOP};(2. )に行く。(11行目)
+ユーザーの手からCPUの手を決める。(12行目)
+結果発表(13〜23行目)
+強制的に&basic{@LOOP};(2. )に行く。(24行目)

* CHECKER FLAG (ひとことコメント) [#Comments]
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は[[掲示板>Board]]へ)
- ''朱雀'' : おお (&new{2012/10/23 (火) 19:07:35};)
- ''ウイング'' : すごいw (&new{2012/10/23 (火) 19:18:46};)
- ''名無しさん'' : もっと短くできそう (&new{2012/10/23 (火) 19:22:26};)
- ''hatena(投稿者)'' : マルチステートメントを使用したらかなり短く出来る。 (&new{2012/10/23 (火) 19:24:40};)
- ''名無しさん'' : 「アナタノカチ。」っていうメッセージが用意されてないのがウケました。 (&new{2012/10/23 (火) 20:54:19};)
- ''hatena(投稿者)'' : だってCPUの勝率が100%なんだもの。 (&new{2012/10/24 (水) 00:12:00};)
- ''名無しさん'' : 23行と24行を1行にまとめて新たに24行に ?"アナタノカチ。" を加えれば解決だなw絶対にこの行は実行されないけどw (&new{2012/10/24 (水) 00:22:19};)
- ''RND128'' : 8~10,14~21行目は短縮可能です。&br;12行目はグーを0とすると&basic{B=(A+2)%3};にすればおk (&new{2012/10/24 (水) 13:58:19};)
- ''道産子の初心者'' : 「9」何個あるのwwwwwwwwww (&new{2012/10/24 (水) 16:23:31};)
- ''名無しさん'' : マジレスすると9999^9999回終了する前に地球がなくなるw (&new{2012/10/24 (水) 19:00:13};)
- ''ウイング'' : 子孫に任せるかw (&new{2012/10/24 (水) 19:47:22};)
- ''進'' : おーばーふろー(9999^9999) (&new{2012/10/24 (水) 19:51:43};)
- ''hatena(投稿者)'' : 子孫に任せたところでCPUには勝てないのだ! (&new{2012/10/24 (水) 20:08:54};)
- ''ウイング'' : うわぁぁぁぁぁ!!!そんな!!! (&new{2012/10/24 (水) 20:59:02};)
- ''どらごん'' : …………… (&new{2012/10/25 (木) 17:11:47};)
- ''キービィ'' : 無理ゲー集に行け (&new{2012/10/27 (土) 19:48:10};)
- ''hatena(投稿者)'' : 無理ゲーでなく…そもそもゲームというより笑いをとるためのプログラムですから。 (&new{2012/10/27 (土) 19:54:53};)
- ''レックス'' : プログラムを変えれば・・・クックック・・・ (&new{2012/10/30 (火) 00:01:20};)
- ''hatena(投稿者)'' : ↑絶対勝てるじゃんけんも作成可能ですな。 (&new{2012/10/30 (火) 10:50:39};)
- ''名無しさん'' : 絶対引き分けになるじゃんけんを1行で作った (&new{2012/10/30 (火) 11:07:42};)
- ''名無しさん'' : よし、勝てたり負けたり引き分けたりするじゃんけんを作ろう。・・・あれ? (&new{2012/10/30 (火) 17:48:13};)
- ''ウイング'' : 普通w (&new{2012/10/30 (火) 18:13:12};)
- ''名無しさん'' : インチキなしに2回に1回以上の割合でCOMが勝てるじゃんけんを作ったらすごいと思う (&new{2012/10/30 (火) 19:27:27};)
- ''ウイング'' : DSのカメラで 体温 息の荒さ 心拍数 を計り最も相手に勝てる確率が高い(ry (&new{2012/10/30 (火) 19:33:20};)
- ''名無しさん'' : いいねw (&new{2012/11/03 (土) 19:10:14};)
- ''ふぇむと'' : これパクってウディタでコモン作ってしまったwどうしようw (&new{2012/11/26 (月) 21:26:57};)
- ''名無し'' : ( ノ゚Д゚) よし!グチョパつくろー!! (&new{2013/03/22 (金) 12:20:54};)
- ''名無しさん'' : リストは半分くらいの長さに短くできそう (&new{2013/03/22 (金) 12:39:30};)

#comment

表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.069 秒 | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30