Question

谁有用free pascal编的游戏啊 发一下

Answer 1

翻牌游戏可以吗？就是翻出两个相同的会消掉那个。 开始前要输入大小。x*(x-1)的规格。（最大是6*5，当然、可以改的。） 符号算不算图呐？ 那么以下： uses crt; var a:array[1..6,1..5]of char; i,j,z,x,y,o,p,k,t:integer; m,n:char; b:boolean; s:string; c:longint; begin randomize; s:='oo??&&||%%##OO==--++$$^^~~__::XX>>'; clrscr; write('size='); read(i); k:=i*i-1; clrscr; for x:=1to i do begin for y:=1to i-1 do write('*'); writeln; end; x:=i-1; y:=i; gotoxy(x,y); delete(s,x*y+1,30-x*y+1); for i:=1to y-1 do for j:=1to x+1 do begin z:=random(ord(s[0]))+1; a[i,j]:=s[z]; for t:=z to ord(s[0])-1do s[t]:=s[t+1]; delete(s,ord(s[0]),1) end; t:=0; repeat m:=readkey; if ord(m)=0 then begin m:=readkey; case ord(m)of 72:if y<>1then y:=y-1; 80:if y<>i then y:=y+1; 75:if x<>1then x:=x-1; 77:if x<>j then x:=x+1; end; gotoxy(x,y); end; if ord(m)=13 then begin write(a[x,y]); t:=t+1; if t mod 2<>0then begin o:=x; p:=y; end; if t mod 2=0then if a[x,y]=a[o,p]then begin k:=k-2; gotoxy(o,p); write(' '); gotoxy(x,y); write(' '); gotoxy(x,y); end else begin for c:=1to maxlongint div 7do; gotoxy(o,p); write('*'); gotoxy(x,y); write('*'); gotoxy(x,y); end; end; until k=0; gotoxy(i+1,1); write(t); readln; end. 最后会输出翻了多少次牌。 没认真弄些细致的东西，就大概能用算了。 写了很久的，最好能说一下要拿来做什么。

希望采纳