Ходи и побеждай Опции

[James Montegry]

В игру играют игрок и компьтер, которые хадят по очереди. За каждым разом игрок передвигается вперед на одну, две или три клетки. Побеждает тот, кто первый окажется на последней клетке. Игрок перед началом игры стоит на первой клетке.

Помогите решить вот такую задачку.

[Lapp]

Английское название этой игры - ним (русское, боюсь, не существует). Играют обычно в спички. Выкладывается некоторое количество спичек на стол, игроки (их двое) берут по очереди одну, две или три спички. Кто берет последнюю - проиграл.
Ним - это вообще-то название целого класса игр такого типа. Поищи в яндексе на "игра ним спички".

Что касается реализации - определись с интерфейсом. И говори, с чем трудности.

[James Montegry]

Что касается реализации - определись с интерфейсом. И говори, с чем трудности.

Количество ходов должно вводится с клавиатуры. Я не могу понять каким методом сделать эту игру.

[Lapp]

Например, если компьютер (тупой) играет случайным образом, то можно примерно так:

  n:=12;  {начальное число клеток}
  player:=0;
  while n>0 do begin
    WriteLn('Осталось пройти ',n,' клеток');
    Write('Игрок ',player,', введите ваш ход: ');
    repeat
      if player=0 then ReadLn(m) else m:=Random(3)+1;
    until (m>0)and(m<4)and(m<=n)
    Dec(n,m);
    Player:=1-Player
  end;
  WriteLn('Игрок ',player,' выиграл');

[James Montegry]

Большое спасибо. Только как мне завершить программу? Просто "end." в конце мало

[Lapp]

Просто "end." в конце мало

Верно.
Учи Паскаль, и все поймешь.
Выкладывать полное решение для тунеядцев не собираюсь.

[James Montegry]

Выкладывать полное решение для тунеядцев не собираюсь.

И на этом спасибо.

З.Ы. Когда я смогу ставить плюсики?

[Lapp]

И на этом спасибо.

И тебе спасибо за адекватную реакцию

З.Ы. Когда я смогу ставить плюсики?

А что, еще не можешь?.. Странно. Было вроде с 10 сообщений, а у тебя 14.

[volvo]

С 25 сообщений, Lapp: Изменения в системе рейтинга

По крайней мере другая информация не была обнародована...

Сообщение отредактировано: volvo - 11.12.2007 16:28

[Lapp]

volvo, спасибо.
Башка дырявая, клинн..

[Michael_Rybak]

Плюсик добавил.

[nopsrer]

Как зделать эту же задачу, НО в случае если комьютер должен быть "умным", то есть он должен не рандомом ходить, а продумывать шаги для выиграша?

[Michael_Rybak]

каждым ходом оставлять кратное четырем количество шагов.

Сообщение отредактировано: Michael_Rybak - 26.12.2007 23:39

[andriano]

Возможно.
Но иногда компьютер должен и ошибаться. :D