- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
- 50
- 51
- 52
- 53
- 54
- 55
- 56
- 57
- 58
- 59
- 60
- 61
- 62
- 63
- 64
- 65
- 66
- 67
- 68
- 69
- 70
- 71
- 72
- 73
- 74
- 75
- 76
program krestiki_noliki;
var a,b,c,
d,e,f,
g,h,i,
click:char;
cl,cr,count:smallint;
procedure move; forward;
procedure clickproc;
begin
If cr=0
then
begin
cr:=1;
click:='X';
end
else
begin
cr:=0;
click:='O';
end;
end;
procedure restart;
begin
if count<9
then move
else
begin
count:=0;
cr:=0;
cl:=0;
click:='X';
a:='_';
b:='_';
c:='_';
d:='_';
e:='_';
f:='_';
g:='_';
h:='_';
i:='_';
end;
end;
procedure move;
begin
readln(cl);
clickproc;
if (cl=1) and (a='_') then a:=click;
if (cl=2) and (b='_') then b:=click;
if (cl=3) and (c='_') then c:=click;
if (cl=4) and (d='_') then d:=click;
if (cl=5) and (e='_') then e:=click;
if (cl=6) and (f='_') then f:=click;
if (cl=7) and (g='_') then g:=click;
if (cl=8) and (h='_') then h:=click;
if (cl=9) and (i='_') then i:=click;
count:=count+1;
writeln(a,'|',b,'|',c);
writeln(d,'|',e,'|',f);
writeln(g,'|',h,'|',i);
writeln('-----');
restart;
end;
begin
count:=0;
cr:=0;
writeln('1|2|3');
writeln('4|5|6f');
writeln('7|8|9');
writeln('-----');
restart;
end.
навеяло кодом на Visual Basic, подумал что смогу воплотить на Паскале. Зря, не стоило...
(так и не понял, что именно не работает)