Создание игры "крестики-нолики"

Автор работы: Пользователь скрыл имя, 12 Апреля 2012 в 14:59, курсовая работа

Краткое описание

В данной курсовой работе речь пойдет о создании несложной игровой программы «Крестики-нолики», которая и будет являться объектом исследования. Потребуется создать полноценную правильно-функционирующую программу и самостоятельно изучить некоторые процедуры и функции.

Скачать целиком (364.82 Кб) Сколько стоит заказать работу?
Содержимое работы - 1 файл

Курсовая по Delphiл.doc

— 506.50 Кб (Скачать файл)

     I:=1;

     end;

     if panel3.Caption='X' then

     if panel6.Caption='X' then

     if panel9.Caption='X' then begin

     showmessage('Win');

     b:=b+1;

     button3.Click;

     I:=1;

     end;

     ///////////////////////////////////////Strategy

     ///////////////////////////////////////Dopolnit mod

     if i=0 then

     if panel1.Caption='X' then

     if panel2.Caption='X' then

     if panel3.Caption='' then begin

     panel3.Caption:='O';

     i:=1;

     end;

     if i=0 then

     if panel1.Caption='X' then

     if panel2.Caption='' then

     if panel3.Caption='X' then begin

     panel2.Caption:='O';

     i:=1;

     end;

     if i=0 then

     if panel1.Caption='' then

     if panel2.Caption='X' then

     if panel3.Caption='X' then begin

     panel1.Caption:='O';

     i:=1;

     end;

     if i=0 then

     if panel4.Caption='X' then

     if panel5.Caption='X' then

     if panel6.Caption='' then begin

     panel6.Caption:='O';

     i:=1;

     end;

     if i=0 then

     if panel4.Caption='X' then

     if panel5.Caption='' then

     if panel6.Caption='X' then begin

     panel5.Caption:='O';

     i:=1;

     end;

     if i=0 then

     if panel4.Caption='' then

     if panel5.Caption='X' then

     if panel6.Caption='X' then begin

     panel4.Caption:='O';

     i:=1;

     end;

     if i=0 then

     if panel7.Caption='X' then

     if panel8.Caption='X' then

     if panel9.Caption='' then begin

     panel9.Caption:='O';

     i:=1;

     end;

     if i=0 then

     if panel7.Caption='X' then

     if panel8.Caption='' then

     if panel9.Caption='X' then begin

     panel8.Caption:='O';

     i:=1;

     end;

     if i=0 then

     if panel7.Caption='' then

     if panel8.Caption='X' then

     if panel9.Caption='X' then begin

     panel7.Caption:='O';

     i:=1;

     end;

     if i=0 then

     if panel1.Caption='X' then

     if panel4.Caption='X' then

     if panel7.Caption='' then begin

     panel7.Caption:='O';

     i:=1;

     end;

     if i=0 then

     if panel1.Caption='X' then

     if panel4.Caption='' then

     if panel7.Caption='X' then begin

     panel4.Caption:='O';

     i:=1;

     end;

     if i=0 then

     if panel1.Caption='' then

     if panel4.Caption='X' then

     if panel7.Caption='X' then begin

     panel1.Caption:='O';

     i:=1;

     end;

     if i=0 then

     if panel2.Caption='X' then

     if panel5.Caption='X' then

     if panel8.Caption='' then begin

     panel8.Caption:='O';

     i:=1;

     end;

     if i=0 then

     if panel2.Caption='X' then

     if panel5.Caption='' then

     if panel8.Caption='X' then begin

     panel5.Caption:='O';

     i:=1;

     end;

     if i=0 then

     if panel2.Caption='' then

     if panel5.Caption='X' then

     if panel8.Caption='X' then begin

     panel2.Caption:='O';

     i:=1;

     end;

     if i=0 then

     if panel3.Caption='X' then

     if panel6.Caption='X' then

     if panel9.Caption='' then begin

     panel9.Caption:='O';

     i:=1;

     end;

     if i=0 then

     if panel3.Caption='X' then

     if panel6.Caption='' then

     if panel9.Caption='X' then begin

     panel6.Caption:='O';

     i:=1;

     end;

     if i=0 then

     if panel3.Caption='' then

     if panel6.Caption='X' then

     if panel9.Caption='X' then begin

     panel3.Caption:='O';

     i:=1;

     end;

     if i=0 then

     if panel1.Caption='X' then

     if panel5.Caption='X' then

     if panel9.Caption='' then begin

     panel9.Caption:='O';

     i:=1;

     end;

     if i=0 then

     if panel1.Caption='X' then

     if panel5.Caption='' then

     if panel9.Caption='X' then begin

     panel5.Caption:='O';

     i:=1;

     end;

     if i=0 then

     if panel1.Caption='' then

     if panel5.Caption='X' then

     if panel9.Caption='X' then begin

     panel1.Caption:='O';

     i:=1;

     end;

     if i=0 then

     if panel3.Caption='X' then

     if panel5.Caption='X' then

     if panel7.Caption='' then begin

     panel7.Caption:='O';

     i:=1;

     end;

     if i=0 then

     if panel3.Caption='X' then

     if panel5.Caption='' then

     if panel7.Caption='X' then begin

     panel5.Caption:='O';

     i:=1;

     end;

     if i=0 then

     if panel3.Caption='' then

     if panel5.Caption='X' then

     if panel7.Caption='X' then begin

     panel3.Caption:='O';

     i:=1;

     end;

     //////////////////////////////////////End mod

     if i=0 then

     if panel1.Caption='' then begin

     a:=random(3);

     if a=1 then begin

     panel1.Caption:='O';

     i:=1;

     end;

     /////////////////////////////////

     end;

     if i=0 then

     if panel2.Caption='' then begin

     a:=random(3);

     if a=1 then begin

     panel2.Caption:='O';

     i:=1;

     end;

     end;

     ///////////////////////////////////

     if i=0 then

     if panel3.Caption='' then begin

     a:=random(3);

     if a=1 then begin

     panel3.Caption:='O';

     i:=1;

     end;

     end;

     /////////////////////////////////////

     if i=0 then

     if panel4.Caption='' then begin

     a:=random(3);

     if a=1 then begin

     panel4.Caption:='O';

     i:=1;

     end;

     end;

     ///////////////////////////

     if i=0 then

     if panel5.Caption='' then begin

     a:=random(3);

     if a=1 then begin

     panel5.Caption:='O';

     i:=1;

     end;

     end;

     ///////////////////////////

     if i=0 then

     if panel6.Caption='' then begin

     a:=random(3);

     if a=1 then begin

     panel6.Caption:='O';

     i:=1;

     end;

     end;

     ////////////////////////////////

     if i=0 then

     if panel7.Caption='' then begin

     a:=random(3);

     if a=1 then begin

     panel7.Caption:='O';

     i:=1;

     end;

     end;

     /////////////////////////////////

     if i=0 then

     if panel8.Caption='' then begin

     a:=random(3);

     if a=1 then begin

     panel8.Caption:='O';

     i:=1;

     end;

     end;

     ////////////////////////////////////

     if i=0 then

     if panel9.Caption='' then begin

     a:=random(3);

     if a=1 then begin

     panel9.Caption:='O';

     i:=1;

     end;

     end;

     ///////////////////////////////////Блок  определения

     ///////////////////////////////////выигрыша Comp

     if panel1.Caption='O' then

     if panel2.Caption='O' then

     if panel3.Caption='O' then begin

     showmessage('You Lost!');

     c:=c+1;

     button3.Click;

     I:=1;

     end;

     if panel4.Caption='O' then

     if panel5.Caption='O' then

     if panel6.Caption='O' then begin

     showmessage('You Lost!');

     c:=c+1;

     button3.Click;

     I:=1;

     end;

     if panel7.Caption='O' then

     if panel8.Caption='O' then

     if panel9.Caption='O' then begin

     showmessage('You Lost!');

     c:=c+1;

     button3.Click;

     I:=1;

     end;

     if panel1.Caption='O' then

     if panel5.Caption='O' then

     if panel9.Caption='O' then begin

     showmessage('You Lost!');

Информация о работе Создание игры "крестики-нолики"