крестики нолики)

[Тамерлан Абилов]

Ребята я че то путаюсь тут в одном месте
123
456
789 нумерация вот такая. все якобы норм только диагонали че то не нравятся запутанно)с помощью b только как раз нахожу цифры нужные.но каша думаю.. если вы про двумерный массив что с ним легче диаг. найти.i+j. i=j.но нумерацией больше выгоды имхо мб ошибаюсь

var
j,i,x,y,b,c:byte; d:array[1..9] of char;  dx:array[1..3] of string[10];  
begin
for i:=1 to 9 do begin
 readln(x);
   if odd(i) then      {очередь хода}
     d[x]:='x' else
      d[x]:='0';
  if i>4 then {просто лучше проверять после 4го хода) }
  for b:=0 to 2 do begin
   dx[1]:='';   dx[2]:=''; dx[3]:= '';
   if b=1 then c:=3 else if b=2 then c:=1; //два диагонали  различаем
    for j:=1 to 3 do   begin
     dx[1]:=dx[1]+d[b*3+j]; //суммируем по очереди каждую строку  т.е. горизонтально
     dx[2]:=dx[2]+d[((j-1)*3)+1+b]; //суммируем по очереди каждый столбец т.е. вертикально
       if b>0 then begin dx[3]:=dx[3]+d[c];   c:=c+2*b;  end; //Суммируем оба диагонали учитывая главную и  другую короче)
    end;
    for y:=1 to 3 do begin
        if (dx[y]='xxx') or (dx[y]='000') then //проверяем
          begin
              writeln(dx[y][1],' выиграл'); halt;
          end;
    end;
  end;
 end;
end.

[Poma][a]

Наконец-то что-то появилось и "Паскаль" был возрожден!

Так-с..

for b:=0 to 2 do begin
   if b=1 then c:=3 else if b=2 then c:=1;

А с 0-ем что?

Вобщем, почему не сделать так :

if (d[1] + d[5] + d[9] = 'xxx') or (d[3] + d[5] + d[9] = 'xxx') then

Или

if (d[1] = d[5]) and (d[5] = d[9]) then

?

И проще и геморроя меньше..

[Тамерлан Абилов]

Или
Код:

if (d[1] = d[5]) and (d[5] = d[9]) then

да так я делал в начале))просто тогда надо присвоить 5 ому номеру какое нибудь значение чтобы отличить их потому что они итак будут равны в начале а это как то по моему не грамотно кому то показывать ибо я чего то не знаю ))а вот насчет д1+д5+д9 и бла бла)черт я не додумался не знаю почему))спасибо большое!)ато гемор

if b=1 then c:=3 else if b=2 then c:=1;

с этим уже убил)
только вот

  for b:=0 to 2 do begin
   dx[1]:='';   dx[2]:=''; 
      dx[3]:=d[1]+d[5]+d[9];
     for j:=1 to 3 do   begin
       dx[1]:=dx[1]+d[b*3+j];        
       dx[2]:=dx[2]+d[((j-1)*3)+1+b];
     end;

только вот хочется более удобно без гемора дать связь на дх 3 чтобы оба диаг были вычислены как и 1,5,9 и 3,5,7. с помощью b или как не знаю.ато со сравнением не по душе чтоли))или же дх4 добавить который вычислить другую диаг. вот и все

[Poma][a]

Ох..

for i := 1 to 3 do begin
    t := a[i*3-2] + a[i*3-1] + a[i*3];
    if (t = 'xxx') or (t = '000') then begin
         WriteLn (t[1] + 'Win'); Halt
    end
end;

t := a[1] + a[5] + a[9];
if (t = 'xxx') or (t = '000') then begin
      WriteLn (t[1] + ' Win')
end;

t := a[3] + a[5] + a[7];
if (t = 'xxx') or (t = '000') then begin
      WriteLn (t[1] + ' Win')
end;

Например так.. только если бы туда проц\функ вставить было бы краше..

Или так :

a[1] := 'a';
a[4] := 'b';
a[7] := 'c';

for i := 1 to 3 do
     if a[i*3 - 2] = a[i*3-1] = a[i*3] then // ну ессесно это будет не так.. просто времени не много..
;
// и тут так же пляшем с диагоналями

Другой вариант (я - за него)

readln(x);
   if odd(i) then      {очередь хода}
     d[x]:=1 else
      d[x]:=0;

<..>

if d[1] + d[2] + d[3] = 0 or 3 then // ессесно не так..

// Потом так же с диагоналями

[Тамерлан Абилов]

for b:=0 to 2 do begin
   dx[1]:='';   dx[2]:='';
    for j:=1 to 3 do   begin
     dx[1]:=dx[1]+d[b*3+j];
     dx[2]:=dx[2]+d[((j-1)*3)+1+b];
    end;
    dx[3]:=d[1]+d[5]+d[9]; dx[4]:=d[3]+d[5]+d[7];
    for y:=1 to 4 do begin
        if (dx[y]='xxx') or (dx[y]='000') then
          begin
              writeln(dx[y][1],' uddu'); halt;
          end;
    end;
  end;

просто как ранее и сказал так более просто другого норм варианта нету))а вот с функцией реально можно как раз так будет кратко очень)) а тут просто на дх добавить и так же сравнить))спасибо все ок извини если тебя так переутомил

[Poma][a]

извини если тебя так переутомил

Не-не-не.. Сижу просто домашку шпарю..
И кстати, не забудь проинициализировать всю доску в начале игры..

[Тамерлан Абилов]

да постараюсь разукрасить все там)и ещё надо убраться от повторений будет гуд))щя с функ допишу если норм то кину))

var
j,i,x,y,b:byte; d:array[1..9] of char;  dx:array[1..4] of string[10];   z:array[1..2] of string;
procedure win(t,p,f:char);
begin
z[1]:='xxx'; z[2]:='000';
for j:=1 to 2 do
if (t+p+f=z[j])  then begin
  writeln(z[j][1],' âûèãðàë'); halt;
  end;
end;
begin
for i:=1 to 9 do begin
 readln(x);
   if odd(i) then
     d[x]:='x' else
      d[x]:='0';
  if i>4 then
  for b:=0 to 2 do begin
   win(d[b*3+1],d[b*3+2],d[b*3+3]) ;
    win(d[1+b],d[4+b],d[7+b]) ;
 if b<2 then  win(d[1+b*2],d[5],d[9-b*2]); //а вот  кстати и диаг решил :) 
   end;
end;
end.

почти тоже самое)) но тут циклов меньше и очень понятно))спасибо рома)