トップページ⇒tech
81コメント21KB

ゴミのようなプログラムをとことん改良するスレッド

■ このスレッドは過去ログ倉庫に格納されています
0001クレジャパンNGNG
10 cls
20 a=5000:b=20:c=1:d=20:e=b:f=17:g=1:h=0
100 a=a-1:beep:beep:beep:beep:beep:beep:beep
110 locate b,2:print" <凹> "
120 locate d,19:print" 凸 "
130 locate e,f:print" ｌ "
140 locate e,f+1:print" "
150 if b>40 then c=0
160 if b<4 then c=1
170 if c=0 then b=b-1
180 if c=1 then b=b+1
190 if g=2 then f=f-1
200 if f<2 then goto 300
210 if f=17 then e=d
220 if d>40 then d=d-1
230 if d<4 then d=d+1
240 if a<0 then goto 2000
250 goto 1000
300 if e=b And f<2 then h=h+100
310 f=17
320 g=1
330 goto 1000
500 d=d+1:h=h+1
510 goto 100
600 d=d-1:h=h+1
610 goto 100
700 g=2
710 goto 100
1000 a$=inkey$
1010 if a$="6" then goto 500
1020 if a$="4" then goto 600
1020 if a$="5" then goto 700
1100 goto 100
2000 locate 5,10:print"あんたの点数は"
2100 locate 20,10:print h
2200 locate 25,10:print "点や"
2300 goto 2000
0002デフォルトの名無しさんNGNG
２ずさ
0003デフォルトの名無しさんNGNG
1 goto 1
0004クレジャパンNGNG
ちなみに俺が作ったソース。
言語はアクティブベーシック　or　n88basic。
0005デフォルトの名無しさんNGNG
見事なまでのgoto羅列だな。。。
0006デフォルトの名無しさんNGNG
誰か BASIC 以外の言語に書き換えてやれ。
0007デフォルトの名無しさんNGNG
「目森　べーし」っていう奴、知ってるか？
0008デフォルトの名無しさんNGNG
mov ah,a
mov dx,0
int 21h
0009デフォルトの名無しさんNGNG
スレタイをゴミ未満の1をとことん罵倒するスレッドに変えたい。
0010デフォルトの名無しさんNGNG
なんで、行番号がとんでるのかと思ったら
BASICじゃないかぁ！なつかしー
俺が、昔学校で無理やり買わされた
関数電卓は、BASICとかC言語とかで
遊べてさぁ（今もあるよな）
俺がはじめて学んだ言語がそのBASICなんだよぉ
右から数字が並んで現れて
それと同じ数字を押せば消えていくやつ
作ったことあるだろ？GOSUB >>1
0011クレジャパンNGNG
あははは関数電卓ってなにさぁ？ポケコンの事？
0012デフォルトの名無しさんNGNG
関数電卓を知らない方がハズカシー。
0013とりあえずＣNGNG
#include <stdio.h>
#include <conio.h>
#define Beep() printf( "\x7" )
#define locate(x,y) printf( "\x1B[%d;%dH",y,x )
main() {
int cnt,key;
int a,b,c,d,e,f,g,h;

for( cnt=0; cnt<30; cnt++ ) printf("\n"); // cls
b=20;c=1;d=20;e=b;f=17;g=1;h=0;

for( a=5000; a>0; a-- ) {
for( cnt=0; cnt<7; cnt++ ) Beep();
locate(b,2); printf(" <凹> ");
locate(d,19); printf(" 凸 ");
locate(e,f); printf(" ｌ ");
locate(e,f+1);printf(" ");
if ( b>40 ) c=0;
if ( b<4 ) c=1;
b += ( (c==0)? -1: 1 );
if ( g==2 ) f--;
if ( f<2 ) {
if ( e==b ) h+=100;
f=17;
g=1;
}else{
if ( f==17 ) e=d;
if ( d>40 ) d--;
if ( d<4 ) d++;
if ( a<0 ) break;
}
if(!kbhit()) {
switch( getch() ) {　// ココ間違ってるかも
case '6': d++; h++; break;
case '4': d--; h++; break;
case '5': g=2; break;
}
}
locate( 1,20 );printf("Timer=%d",a);
}
while(1) {
locate(5,10);
printf("あんたの点数は%d点や", h );
}
}
0014デフォルトの名無しさんNGNG
>>10
カシオのゲーム電卓じゃないか？
電卓インベーダはやりこんだなぁ。
ユーフォーの出現パターンを発見するのに
１０年かかったね。
0015デフォルトの名無しさんNGNG
最終的に7行になるのかな
0016クレジャパンNGNG
すげー（ﾟДﾟ；　Cにされちゃったよおい！7行にするんかい！
0017デフォルトの名無しさんNGNG
[11:クレジャパン (02/04/20 08:45)]
あははは関数電卓ってなにさぁ？ポケコンの事？

[12:デフォルトの名無しさん (02/04/20 11:14)]
関数電卓を知らない方がハズカシー。
0018クレジャパンNGNG
だから（＞＿＜）関数電卓ってなーに？
0019デフォルトの名無しさんNGNG
スピードをBEEPでコントロールしてるのか・・・・・・・

100 a=a-1:beep:beep:beep:beep:beep:beep:beep

おひおひ（＾＾；


0020デフォルトの名無しさんNGNG
ｶｺﾜｰﾙｲ(ﾌﾟﾌﾟ
0021デフォルトの名無しさんNGNG
いまどきの関数電卓はBASICやCでプログラムを組めるのか？
ポケコンみたいだな。
0022デフォルトの名無しさんNGNG
絵に描いたような初心者だ・・・わざっとっぽい
0023デフォルトの名無しさんNGNG
関数電卓を知らない人は、Windowsのアクセサリにある電卓を
使ってみると良い。
電卓の種類で、普通の電卓／関数電卓が切り替えられるから
使ってみて違いを見てみると良い。

１＋２×３

みたいな計算結果が、まぁ代表的か。
0024デフォルトの名無しさんNGNG
#ifndef THREAD_H
#define THREAD_H

#include <windows.h>


class Thread{
private:
HANDLE handle;
DWORD id;
public:
Thread();
virtual ~Thread();
virtual void run(){};
static DWORD WINAPI dispatch(LPVOID lParam);
void start();
DWORD suspend();
DWORD resume();
};


#endif

-------------------------------------------------------------

#include "Thread.h"

Thread::Thread(){
handle=0;
}

Thread::~Thread(){
if(handle)CloseHandle(handle);
}

DWORD WINAPI Thread::dispatch(LPVOID lParam){
Thread* thread=reinterpret_cast<Thread*>(lParam);
thread->run();
return 0;
}

void Thread::start(){
handle=CreateThread(0,0,Thread::dispatch,this,0,&id);
}

DWORD Thread::suspend(){
return SuspendThread(this->handle);
}

DWORD Thread::resume(){
return ResumeThread(this->handle);
}
0025デフォルトの名無しさんNGNG
↑改良してくれ
0026クレジャパンNGNG
>>24
だれかベーシック化してやれ（笑）
0027クレジャパンNGNG
関数電卓アクセサリにあったよ（＾＾）
0028デフォルトの名無しさんNGNG
RPNが使えれば、もう少し遊べるんだけどな ＞Winの電卓
0029クレジャパンNGNG
2進、16進の変換できただけで猛烈に感動している　
0030デフォルトの名無しさんNGNG
めんどくさいから、dispatchだけ。
template <class T>
class Thread
{
void dispatch(LPVOID p)
{
(*static_cast<T*>(p))();//static_cast<T>(p)->run();でもいいけどさ。
ExitThread(0);
}
};
0031デフォルトの名無しさんNGNG
それじゃ絶対動かないと思うのは俺だけか？
0032デフォルトの名無しさんNGNG
>>クレジャパン
お前か7行スレ荒らしてスルーされた奴(藁
0033デフォルトの名無しさんNGNG
>>7
ベーしっ君だーーー！！！
なつかしー！！
すぽーん！！
0034デフォルトの名無しさんNGNG
糞スレ糞スレ

単発スレ立てるな馬鹿

〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
003530NGNG
＞31
0036デフォルトの名無しさんNGNG
動くってば。
0037デフォルトの名無しさんNGNG
めんどくさいからこんだけ。
あとは全部一緒。

class Runnable {
　virtual ~Runnable(){}
　virtual void run() = 0;
};

class Thread {
　Runnable* runnable;
　Thread() : runnable(NULL) {}
　Thread(Runnable* p) : runnable(p) {}
　virtual void run(){ if(runnable != NULL) runnable->run(); }
};

>>31
() もオーバーロードできるぞ。
でも、30がいいコードだとは思えないのには賛成だが。
0038デフォルトの名無しさんNGNG
>>21
10年以上前から、プログラム可能な関数電卓あったよ。
0039デフォルトの名無しさんNGNG
　Thread() : runnable(NULL) {}
　Thread(Runnable* p) : runnable(p) {}
これC++？
こんな書き方もできるんだ。
コンストラクタ:メンバ名（値）
って事だよね？

C++だったら多重継承すればいいから
javaのマネをする必要は無いと思う。
0040デフォルトの名無しさんNGNG
もう>>1はついてこれないｗ
0041デフォルトの名無しさんNGNG
>>38
20年以上前の間違いだろ。
0042デフォルトの名無しさんNGNG
>>38
プログラム可能な関数電卓って、プログラム言語が搭載されてるんじゃなく
ループと判定しかないマクロみたいなやつじゃない？
俺の関数電卓のプログラム機能はそうなんだけど。
BASICとかCとかがついている奴はポケコンといわれていると思うんだが。
0043デフォルトの名無しさんNGNG
　
0044クレジャパンNGNG
ポケコンで合ってんじゃんｺﾞﾙｧ（メ▼▼）凸
0045デフォルトの名無しさんNGNG
お、馬鹿が戻ってきたぞ
0046クレジャパンNGNG
>>40
えーん（＞＿＜）スレ乗っ取られちゃった。
0047デフォルトの名無しさんNGNG
誰か>>40の為にN88で書き直してやってください
0048クレジャパンNGNG
↑馬鹿？（~ρ~）
0049デフォルトの名無しさんNGNG
クソスレあげるなｳﾞｧｶ
0050デフォルトの名無しさんNGNG
　
0051クレジャパンNGNG
煤BA。
0052デフォルトの名無しさんNGNG
(･∀･)ｶｴﾚ!!
0053クレジャパンNGNG
#include <stdio.h>
#include <stdlib.h>
#include <math.h>
int readInteger();
double readDouble();
int main(int argc,char *argv[]) {
int ａ=0;
do {
printf("始めるには1を入力してください\n");
ａ = readInteger();
} while (!(ａ==1));
printf("刺すぞｺﾞﾙｧ（ﾟДﾟ）\n");
return 0;
}
void readLine() {
fgets(this_buf,256,stdin);
}
int readInteger() {
int val;
readLine();
sscanf( this_buf, "%d", &val );
return val;
}
double readDouble() {
float val;
readLine();
sscanf( this_buf, "%f", &val );
return val;
}
0054デフォルトの名無しさんNGNG
>>53
ａ = readInteger();
a全角かよ!!
0055デフォルトの名無しさんNGNG
readDoubleの存在理由を教えろ
0056クレジャパンNGNG
いわば、貴方と一緒で存在理由は無い（・∀・）
0057デフォルトの名無しさんNGNG
ゴミのようなプログラムをとことん改良するスレッド
―――――――――――終了――――――――――
0058デフォルトの名無しさんNGNG
お前の存在理由も無いｗ
お話し相手になってあげましょうか？
005958NGNG
>>57すまんかった
―――――――――――終了――――――――――
0060デフォルトの名無しさんNGNG
―――――――――改（ﾟ∀ﾟ）名―――――――――
ゴミのような人間1を、とことん改良するスレッド
0061デフォルトの名無しさんNGNG
―――――――――改（ﾟ∀ﾟ）名―――――――――
ゴミのような人間1を、邪教N88からＣに改宗させるスレッド



0062クレジャパンNGNG
10 print"イジメだグレてやるグレてフォートランプログラマになってやる"
20 goto 20
0063デフォルトの名無しさんNGNG
>>60-61
漏れも参加!!
0064デフォルトの名無しさんNGNG
>>62
無限ループsage
0065デフォルトの名無しさんNGNG
>>1
と同じ人物
http://pc.2ch.net/test/read.cgi/tech/1019095080/l50
0066デフォルトの名無しさんNGNG
　　 WRITE(6,10)
　10 FORMAT(1H1,56HIJIMEDA GURETEYARU,GURETE PASUKARU PUROGURAMA NI NATTEYARU)
　　 STOP
0067デフォルトの名無しさんNGNG
(｡Ａ｡)ｱﾋｬ(ﾟ∀ﾟ)ｱﾋｬ!(｡Ａ｡)ｱﾋｬ(ﾟ∀ﾟ)ｱﾋｬ!(｡Ａ｡)ｱﾋｬ(ﾟ∀ﾟ)ｱﾋｬ!(｡Ａ｡)ｱﾋｬ
(ﾟ∀ﾟ)ｱﾋｬ!(｡Ａ｡)ｱﾋｬ(ﾟ∀ﾟ)ｱﾋｬ!(｡Ａ｡)ｱﾋｬ(ﾟ∀ﾟ)ｱﾋｬ!(｡Ａ｡)ｱﾋｬ(ﾟ∀ﾟ)ｱﾋｬ!
(｡Ａ｡)ｱﾋｬ(ﾟ∀ﾟ)ｱﾋｬ!(｡Ａ｡)ｱﾋｬ(ﾟ∀ﾟ)ｱﾋｬ!(｡Ａ｡)ｱﾋｬ(ﾟ∀ﾟ)ｱﾋｬ!(｡Ａ｡)ｱﾋｬ
(ﾟ∀ﾟ)ｱﾋｬ!(｡Ａ｡)ｱﾋｬ(ﾟ∀ﾟ)ｱﾋｬ!(｡Ａ｡)ｱﾋｬ(ﾟ∀ﾟ)ｱﾋｬ!(｡Ａ｡)ｱﾋｬ(ﾟ∀ﾟ)ｱﾋｬ!
(｡Ａ｡)ｱﾋｬ(ﾟ∀ﾟ)ｱﾋｬ!(｡Ａ｡)ｱﾋｬ(ﾟ∀ﾟ)ｱﾋｬ!(｡Ａ｡)ｱﾋｬ(ﾟ∀ﾟ)ｱﾋｬ!(｡Ａ｡)ｱﾋｬ
(ﾟ∀ﾟ)ｱﾋｬ!(｡Ａ｡)ｱﾋｬ(ﾟ∀ﾟ)ｱﾋｬ!(｡Ａ｡)ｱﾋｬ(ﾟ∀ﾟ)ｱﾋｬ!(｡Ａ｡)ｱﾋｬ(ﾟ∀ﾟ)ｱﾋｬ!
(｡Ａ｡)ｱﾋｬ(ﾟ∀ﾟ)ｱﾋｬ!(｡Ａ｡)ｱﾋｬ(ﾟ∀ﾟ)ｱﾋｬ!(｡Ａ｡)ｱﾋｬ(ﾟ∀ﾟ)ｱﾋｬ!(｡Ａ｡)ｱﾋｬ
(ﾟ∀ﾟ)ｱﾋｬ!(｡Ａ｡)ｱﾋｬ(ﾟ∀ﾟ)ｱﾋｬ!(｡Ａ｡)ｱﾋｬ(ﾟ∀ﾟ)ｱﾋｬ!(｡Ａ｡)ｱﾋｬ(ﾟ∀ﾟ)ｱﾋｬ!
(｡Ａ｡)ｱﾋｬ(ﾟ∀ﾟ)ｱﾋｬ!(｡Ａ｡)ｱﾋｬ(ﾟ∀ﾟ)ｱﾋｬ!(｡Ａ｡)ｱﾋｬ(ﾟ∀ﾟ)ｱﾋｬ!(｡Ａ｡)ｱﾋｬ
(ﾟ∀ﾟ)ｱﾋｬ!(｡Ａ｡)ｱﾋｬ(ﾟ∀ﾟ)ｱﾋｬ!(｡Ａ｡)ｱﾋｬ(ﾟ∀ﾟ)ｱﾋｬ!(｡Ａ｡)ｱﾋｬ(ﾟ∀ﾟ)ｱﾋｬ!
0068デフォルトの名無しさんNGNG
　
0069デフォルトの名無しさんNGNG
ゴミスレだな
0070デフォルトの名無しさんNGNG
>>61
N88って邪教っすか？
けっこうやったけどなぁ?
まあ、いまはつかわんか。
せめて、土着宗教ってことでだめっすか？
0071デフォルトの名無しさんNGNG
古代宗教だな

―――――――――改（ﾟ∀ﾟ）名―――――――――
　プログラミング言語を宗教にたとえてみるスレッド
0072デフォルトの名無しさんNGNG
>>71
それある意味危険。
0073デフォルトの名無しさんNGNG
じゃ
―――――――――終（ﾟ∀ﾟ）了―――――――――
次の方改名の権利がありまーす
0074デフォルトの名無しさんNGNG
じゃ
―――――――――終（ﾟ∀ﾟ）了―――――――――
バカなコーディング規約　＜Page２＞
0075クレジャパンNGNG
>>60
俺が改良されるのかヨ　(((ﾟДﾟ)))ｶﾞﾀｶﾞﾀ
>>71
宗教かよー　ひまわりは何教ダヨー
0076デフォルトの名無しさんNGNG
―――――――――終（ﾟ∀ﾟ）了―――――――――
【厨】ゴミのようなクレジャパンを終了させるスレ【荒らし】
0077デフォルトの名無しさんNGNG
ここはN88 BASICスレですか？
0078デフォルトの名無しさんNGNG
>>1

　うわあ、ジャンプしまくりで読めねえ！
　・・・と思ったので、行番号とジャンプを極力排除してみました。
　言語仕様の都合でループ作るのに使っているけど。
　と言うか、言語仕様かなり忘れてる（笑）。
　あと、ささやかながらマルチステートメント化。

　ちなみに、脳内実行のみ。　環境ないし（＾＾；

/*　ここから。　*/

cls
defint a-z
a=5000:b=20:c=1:d=20:e=b:f=17:g=1:h=0

*LOOP
beep 1:::::::::::::::::::::::::::::::::::beep0
locate b,2:print" <凹> "
locate d,19:print" 凸 "
locate e,f:print" ｌ "
locate e,f+1:print" "

*INKEYS
a$=inkey$
if a$="6" then d=d+1:h=h+1
if d>40 then d=d-1
if a$="4" then d=d-1:h=h+1
if d<4 then d=d+1
if a$="5" then g=2

if b>40 then c=0
if b<4 then c=1
if c=0 then b=b-1
if c=1 then b=b+1
if g=2 then f=f-1
if e=b And f<2 then h=h+100:goto *INKEYS
if f<2 then f=17:g=1

if f=17 then e=d
if a<0 then *END

a=a-1
goto *LOOP

*ENDE
locate 5,10:print"あんたの点数は"
locate 20,10:print h
locate 25,10:print "点や"
goto *ENDE
0079デフォルトの名無しさんNGNG
えらいまともな書きこみｗ
0080デフォルトの名無しさんNGNG
10 cls
20 a=5000:b=20:c=1:d=20:e=b:f=17:g=1:h=0
100 a=a-1:beep:beep:beep:beep:beep:beep:beep
110 locate b,2:print" (ﾟДﾟ) "
120 locate d,19:print" 凸 "
130 locate e,f:print" ｌ "
140 locate e,f+1:print" "
150 if b>40 then c=0
160 if b<4 then c=1
170 if c=0 then b=b-1
180 if c=1 then b=b+1
190 if g=2 then f=f-1
200 if f<2 then goto 300
210 if f=17 then e=d
220 if d>40 then d=d-1
230 if d<4 then d=d+1
240 if a<0 then goto 2000
250 goto 1000
300 if e=b And f<2 then Goto 400
310 f=17
320 g=1
330 goto 1000
400 locate b,2:print" 煤BＡ。　 "
410 locate b,5:print" アボーン　"
420 beep:beep:beep:beep:beep:beep:beep
430 h=h+100:f=17:g=1
440 cls
450 goto 1000
500 d=d+1:h=h+1
510 goto 100
600 d=d-1:h=h+1
610 goto 100
700 g=2:h=h-5
710 goto 100
1000 a$=inkey$
1010 if a$="6" then goto 500
1020 if a$="4" then goto 600
1020 if a$="5" then goto 700
1100 goto 100
2000 locate 5,10:print"あんたの点数は"
2100 locate 20,10:print h
2200 locate 25,10:print "点や"
2300 goto 2000

/*　2チャンネルバージョン　*/
0081ヽ(´ー｀)ノNGNG
吊るし上げ
■ このスレッドは過去ログ倉庫に格納されています