Автор работы: Пользователь скрыл имя, 12 Апреля 2012 в 14:59, курсовая работа
В данной курсовой работе речь пойдет о создании несложной игровой программы «Крестики-нолики», которая и будет являться объектом исследования. Потребуется создать полноценную правильно-функционирующую программу и самостоятельно изучить некоторые процедуры и функции.
c:=c+1;
button3.Click;
I:=1;
end;
if panel3.Caption='O' then
if panel5.Caption='O' then
if panel7.Caption='O' then begin
showmessage('You Lost!');
c:=c+1;
button3.Click;
I:=1;
end;
if panel1.Caption='O' then
if panel4.Caption='O' then
if panel7.Caption='O' then begin
showmessage('You Lost!');
c:=c+1;
button3.Click;
I:=1;
end;
if panel2.Caption='O' then
if panel5.Caption='O' then
if panel8.Caption='O' then begin
showmessage('You Lost!');
c:=c+1;
button3.Click;
I:=1;
end;
if panel3.Caption='O' then
if panel6.Caption='O' then
if panel9.Caption='O' then begin
showmessage('You Lost!');
c:=c+1;
button3.Click;
I:=1;
end;
/////////////////////////
/////////////////////////
if panel1.Caption<>'' then
if panel2.Caption<>'' then
if panel3.Caption<>'' then
if panel4.Caption<>'' then
if panel5.Caption<>'' then
if panel6.Caption<>'' then
if panel7.Caption<>'' then
if panel8.Caption<>'' then
if panel9.Caption<>'' then begin
showmessage('Ничья!');
i:=1;
button3.Click;
end;
until i=1;
end;
procedure TForm1.Button3Click(Sender: TObject);
var x:integer;
begin
panel1.Caption:='';
panel2.Caption:='';
panel3.Caption:='';
panel4.Caption:='';
panel5.Caption:='';
panel6.Caption:='';
panel7.Caption:='';
panel8.Caption:='';
panel9.Caption:='';
label2.Caption:=inttostr(
A:=random(2);
if a=1 then begin
x:=random(10);
if x=1 then
panel1.Caption:='O';
if x=2 then
panel2.Caption:='O';
if x=3 then
panel3.Caption:='O';
if x=4 then
panel4.Caption:='O';
if x=5 then
panel5.Caption:='O';
if x=6 then
panel6.Caption:='O';
if x=7 then
panel7.Caption:='O';
if x=8 then
panel8.Caption:='O';
if x=9 then
panel9.Caption:='O';
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
b:=0;
c:=0;
randomize;
end;
end.
Приложение
2
Дерево игровых ситуаций