шпаргалка

Проверка выйгрыша

[ Назад ]

if r<8 then begin

for e:=1 to 3 do

for i:=1 to 3 do begin

if (stringgrid1.Cells[i-1,e-1]='o') and (stringgrid1.Cells[i,e]='o') and (stringgrid1.Cells[i+1,e+1]='o') then ShowMessage('Победа о');

if (stringgrid1.Cells[i-1,e-1]='x') and (stringgrid1.Cells[i,e]='x') and (stringgrid1.Cells[i+1,e+1]='x') then ShowMessage('Победа x');

//слево на право по диагонали

if (stringgrid1.Cells[i+1,e-1]='o') and (stringgrid1.Cells[i,e]='o') and (stringgrid1.Cells[i-1,e+1]='o') then ShowMessage('Победа о');

if (stringgrid1.Cells[i+1,e-1]='x') and (stringgrid1.Cells[i,e]='x') and (stringgrid1.Cells[i-1,e+1]='x') then ShowMessage('Победа x');

//справо на лево по диагонали

if (stringgrid1.Cells[e-1,i-1]='o') and (stringgrid1.Cells[e-1,i]='o') and (stringgrid1.Cells[e-1,i+1]='o') then ShowMessage('Победа о');

if (stringgrid1.Cells[e-1,i-1]='x') and (stringgrid1.Cells[e-1,i]='x') and (stringgrid1.Cells[e-1,i+1]='x') then ShowMessage('Победа x');

//по вертикали

if (stringgrid1.Cells[i-1,e-1]='o') and (stringgrid1.Cells[i,e-1]='o') and (stringgrid1.Cells[i+1,e-1]='o') then ShowMessage('Победа о');

if (stringgrid1.Cells[i-1,e-1]='x') and (stringgrid1.Cells[i,e-1]='x') and (stringgrid1.Cells[i+1,e-1]='x') then ShowMessage('Победа x');

//по горизонтали

end

end

else

ShowMessage('Ничья!');

r:=r+1;

end;



end.

КАТЕГОРИИ:

Network | английский | архитектура эвм | астрономия | аудит | биология | вычислительная математика | география | Гражданское право | демография | дискретная математика | законодательство | история | квантовая физика | компиляторы | КСЕ - Концепция современного естествознания | культурология | линейная алгебра | литература | математическая статистика | математический анализ | Международный стандарт финансовой отчетности МСФО | менеджмент | метрология | механика | немецкий | неорганическая химия | ОБЖ | общая физика | операционные системы | оптимизация в сапр | органическая химия | педагогика | политология | правоведение | прочие дисциплины | психология (методы) | радиоэлектроника | религия | русский | сертификация | сопромат | социология | теория вероятностей | управление в технических системах | физкультура | философия | фотография | французский | школьная математика | экология | экономика | экономика (словарь) | язык Assembler | язык Basic, VB | язык Pascal | язык Си, Си++ |