Курсовая работа: Разработка приложения для Windows, моделирующего игру "Нечетный" и "Четный"

implementation

{$R *.dfm}

// главная процедура, где вставляеются единицы и нули в позиции игроков

procedure TForm1. StringGrid1MouseDown (Sender: TObject;

Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

label 1,2;

var nk, z1, z2, a, b, k, l:integer;

begin

//StringGrid1 Поле игроков размещена

// StringGrid2 используется для фиксирования позиции игроков

randomize; {генератор случайных чисел}

nk:=stringgrid1. RowCount; {фиксируется количество строк (столбцов тоже).}

k:=stringgrid1. DefaultColWidth; {фиксируется ширина столбцов таблицы}

l:=stringgrid1. DefaultRowHeight; {фиксируется высота строк}

stringgrid1. Font. Color:=clblue;

z1:=trunc(x/k); z2:=trunc(y/l); {фикситруются координаты указателя мышки}

// Если позиция занята, то переход к на новый ход

if (stringgrid1. Cells [z1, z2]='1') or

(stringgrid1. Cells [z1, z2]='0') then goto 1

else begin stringgrid2. Cells [z1, z2]:='*';

stringgrid1. Cells [z1, z2]:=inttostr (random(2));

end;

// моделирование хода компьютера

// компьютер позицию занимает случайными числами в интервале от 0 до nk

// nk-количество строк

2: a:=random(nk);

b:=random(nk);

// Если позиция свободна ставит 0 или 1

// Иначе переход на другую позицию