七行プログラミング part2

1 名前：デフォルトの名無しさん [02/04/15 12:09] 7行×79文字なら言語は問いません。 過去作品は>>2-5を参照。 ■前スレ pc.2ch.net/test/read.cgi/tech/984182993/ 472 名前：みぃとぼぉる [02/07/08 15:09] 参戦？させていただきます。んで、Pascalにて迷路... Program Q;const B=$B800;var S,C,D,F:Word;A:Array[1..999]of Integer;begin For C :=81to 3840do begin MemW[B:C*2]:=4016;If(C mod 80)=77 then C:=C+3;end;S:=1;A[S] :=324;while(S>0)do begin C:=A[S];Mem[B:C]:=0;F:=0;while(F<15)do begin D:=( Port[65]+S)mod 4;F:=F OR(1SHL D);D:=(2-(D div 2)*4)*(1+(D mod 2)*79);If Mem[B:C +D*2]=176then begin Mem[B:C+D]:=0;A[S+1]:=C+D*2;S:=S+2;Break;end;end;S:=S-1;end ;Mem[B:164]:=0;Mem[B:7672]:=0;Readln;End. 80x50の英語モードDOS窓で CLS してから実行してちょ。 Borland Pascal 7.0 / WinXP で動作確認済み。難しい事は一切やっていないような。 ランタイムエラーが怖いのでCRTは未使用です。 尚、MS-DOSのメモリ依存。 473 名前：みぃとぼぉる [02/07/08 16:25] ちょっぴり修正。 Program Q;Uses crt;const B=$B800;var S,C,D,F:Word;A:Array[1..999]of Word;begin TextMode(259);Randomize;For C:=81to 3840do begin MemW[B:C*2]:=4059;If(C mod 80) =77 then C:=C+3;end;S:=1;A[S]:=324;while(S>0)do begin C:=A[S];Mem[B:C]:=0;F:=0; while(F<15)do begin D:=Random(4);F:=F OR(1SHL D);D:=(2-(D div 2)*4)*(1+(D mod 2 )*79);If Mem[B:C+D*2]=219then begin Mem[B:C+D]:=0;A[S+1]:=C+D*2;S:=S+2;Break; end;end;S:=S-1;end;Mem[B:164]:=0;Mem[B:7672]:=0;Readln;End. - ランダムナンバージェネレーターにポートを使わずに正規の命令を使用。 - 毎回生成するパターンも変更される。 - Borland / Turbo Pascal で実行時にエラーが出る場合は CRT と TextMode を削除 するか、バグ修正板のCRT RTLを使用すること。 でわ。

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef