- 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, подумал что смогу воплотить на Паскале. Зря, не стоило...
(так и не понял, что именно не работает)
guest 24.11.2009 00:17 # +2
а вообще логика не верна. начальной инициализации переменных cl, click, a, b, c, d, e, f, g, h, i нет, соотвественно затем условия не выполняются и ничего не пашет.
Airbus 25.11.2009 15:25 # 0
guest 26.11.2009 13:53 # +1
клятву Страуструпа. "Я обязуюсь прилежно комментировать свой код, не использовать goto и следить за состоянием своих потоков и выделением памяти. Я обязуюсь не оставлять мусора в системе и <b>избегать однобуквенных переменных.</b> Ресет."
guest 01.12.2009 15:47 # 0
"соблюдать клятву Страуструпа." э... не знал. Теперь знаю, буду соблюдать.