我选了第四种。加分呦

[quote]我选了第四种。加分呦[/quote]

[em12][em12][em12]
替一楼补充一句：
太简单了嘛我绝对会对的

[quote]我选了第四种。加分呦[/quote]
替一楼补充一句：
太简单了，我绝对会对的

丁沛诒白痴dpy123456,你比我敏感嘛

……

我觉得是第3个吧

我觉得都可以,关于播放音乐的:http://www.programfan.com/club/showbbs.asp?id=208235

答案是什么？？

都可以的吧

好像都可以。。
游戏：五子棋
uses crt; 
type ty=array[1..30,1..79]of char; 
var i,j,k,x,y:integer; 
    ch,c:char; 
    a:ty; 
    f:boolean; 
    t:text; 
procedure go(var ch:char;a:ty); 
var a2,b,c,d,k,i,j:shortint; 
begin 
     ch:='+'; 
     for i:=1 to 30 do 
     for j:=1 to 79 do 
     begin 
          a2:=0; 
          b:=0; 
          c:=0; 
          d:=0; 
          for k:=1 to 4 do 
          begin 
               if (a[i,j+k*2]=a[i,j])and (a[i,j] in ['B','W']) then inc(a2); 
               if (a[i+k,j]=a[i,j])and (a[i,j] in ['B','W']) then inc(b); 
               if (a[i+k,j+k*2]=a[i,j])and (a[i,j] in ['B','W']) then inc?; 
               if (a[i+k,j-k*2]=a[i,j])and (a[i,j] in ['B','W']) then inc(d); 
          end; 
          {if i*j=1 then begin 
             write(t,(a[i,j+k*2]=a[i,j])and (a[i,j] in ['o','*'])); 
             write(t,a[i,j]); 
             write(t,a2); 
          end;} 
          if a2=4 then begin ch:=a[i,j];{write(t,' ',ch,' ')};exit;end; 
          if b=4 then begin ch:=a[i,j];{write(t,' ',ch,' ');}exit;end; 
          if c=4 then begin ch:=a[i,j];{write(t,' ',ch,' ');}exit;end; 
          if d=4 then begin ch:=a[i,j];{write(t,' ',ch,' ');}exit;end; 
     end; 
end; 
procedure b1; {*,B} 
begin 
     textcolor(black); 
     ch:=readkey; 
     while not((ch='h')and(a[x,y]='+')) do 
     begin 
          if ch='q' then begin f:=false;exit;end; 
          if ch='l' then inc(y,2) 
          else if ch='k' then inc(x) 
          else if ch='j' then dec(y,2) 
          else if ch='i' then dec(x); 
          gotoxy(y,x); 
          ch:=readkey; 
     end; 
     write('*'); 
     write(t,'B ',x,' ',y,'  '); 
     a[x,y]:='B'; 
     gotoxy(y,x);