Игра Болтянского на Pascal, Игра Болтянского на Pascal с графикой Опции

[NickolsoN]

Помогите написать программу.
Решение задании должно садержать
1. Доказательство выигрышной стратегии для игроков
2. Реализацию игры на компьютере с соблюдением уловий
- одним игроком в игре должен быть компьютер
- начальное состояние игры, два тех игр, где оно явно не задано, должно формироваться случайным образом (случайное число выбирается из экстетического представления картинки на экране);
- после представления начального состояния, а игре должен быть запрос Кто будет ходить
первым?»;
- игра должна быть оформлена с помощью графических средств*
- игра должна иметь «Заставку» и Правила игры
- управление игрой должно осуществляться либо с помощью управляющих клавиш клавиатуры либо мышкой
- компьютер должен играть по выигрышной стратегии: либо вследствие начальных данных игры, либо, следя за ходом человека, перехватив инициативу из-за его ошибки

Игра Болтянского
Играют двое. Первый выбирает натуральное число от 2 до 9, Второй умножает это число на выбираемое натуральное число от 2 до 9, затем первый выбирает число и умножает результат на любое натуральное число от 2 до 9 и т.д. Выигрывает тот, у кого впервые получится произведение,
больше заданного положительного числа C
Выяснить при каких С существует выигрышная ситуация у первого игрока,
при каких - у второго.

помогите пожалуйста, можно и без графики

Сообщение отредактировано: NickolsoN - 3.12.2010 23:51

[NickolsoN]

Lapp, спасибо ВАМ !вот сидел алгоритм ваш пытался понять))вышло, сразу скажу, не очень=((вот написал комментарии с коду

const
  d1= 2;
  d2= 9;
  Name: array [false..true] of string=('  I','You');
    {массиви строк, принимающие значение тру и фолс?и не понятно мне =('  I','You')}
  OfName: array [false..true] of string=('  My','Your');

var
  c,m,n: LongInt; {почему лонгит, а не интегер?}
  Player: boolean;   {false=computer, true=user}


function AI: integer;   // Artificial Intellect
var
  d,e: LongInt;{d-введенное с, e-ход компа}
begin
  d:=c;
  repeat
    e:=(d-1)div n+1; {заданная длинна-1 делится на цело на текущее произведение +1}
    d:=(d-1)div(d2*d1)+1 {заданная длинна изменяется, вообще не пойму для чего=(())}
  until e<=9; {выполнется пока ход компа не будет в диапазоне от 2 до 9}
  if e<2 then e:=2;
  AI:=e
end;

function ManualMove: integer;
var
  m: integer;
begin
  Write('Make your move (',d1,' through ',d2,') : ');
  ReadLn(m);
  ManualMove:=m
end;

begin
  repeat
    WriteLn('Well, let''s play!');
    Write('Enter the goal (0 for random) : ');
    ReadLn©;
    if c=0 then c:=Random(10000);
    WriteLn('The goal is now set to ',c);
    Write('Who moves first?  0 for computer (yes, that''s me!)), 1 for you : ');
    ReadLn(m);
    Player:=m=0;
    n:=1;
    while n<c do begin
      Player:=not Player;{меняем игрока}
      if Player then m:=ManualMove else m:=AI;{если плеер тру, то ходит чел, иначе комп}
      n:=n*m;
      WriteLn(OfName[Player],' move was ',m,', the number is now ',n);
    end;
    WriteLn(Name[Player],' win!');
    Write('Wanna play more?  0 for No, 1 for Yes: ');
    ReadLn(m)
  until m=0
end.

путаюсь в догатках, как вы вывели такую стратегию(( e:=(d-1)div n+1; d:=(d-1)div(d2*d1)+1

[Lapp]

массиви строк, принимающие значение тру и фолс?

Да. Не применял? Поиграйся, это удобно.

и не понятно мне =(' I','You')

Типизированная константа, изобретение Borland. Почитай в хелпе.

почему лонгит, а не интегер?

Как почему? А ты назвал диапазон чисел? Нет? Вот я и стараюсь, чтоб влезло побольше..

путаюсь в догатках, как вы вывели такую стратегию(( e:=(d-1)div n+1; d:=(d-1)div(d2*d1)+1

Я и сам путаюсь. Интуиция.. ))