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

[NickolsoN]

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

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

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

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

[NickolsoN]

короче с 5 вечера, до почти 1часа ночи пытался уловить, выйгрышную игру компа....без результатов, вот пока что получилось, комп выдает числа рандомом, и еще вывод сообщения о том кто именно выйграл кривоват. Lapp, помогите пожалуйста....

program boltyanskiyy;
uses crt;
var
a,b,c,p,d,winner:integer;
function isWinner(who,num,c,winner:integer):integer;
begin
     if (winner = 0) and (num>=c) then begin
        isWinner:=who; {1-chelovek 2-comp}
        end
        else begin                           2
             isWinner:=0;
             end;
end;
begin
clrscr;
     p:=1; {prisvaivaem proizvedeniuy 1}
     d:=1;
     randomize;
     write('vvidite polozhitelnoe chislo C ( 0 - random C) = '); {zadaem C}
     readln©;
     if c=0 then
     c:=random(1000);
     writeln('chislo C = ',c);
     write('kto hodit pervim?(1 - vi, 0 - komp) - '); {vibor pervogo hoda}
     readln(a);
     winner:=0;
if a=1 then
     repeat
      winner:=isWinner(1,p*d,c,winner);
      writeln('vvedite chislo ot 2 do 9 - ');
      read(b);
      d:=random(7)+2;
      p:=p*b*d;
      winner:=isWinner(2,p,c,winner);
      writeln('vi vveli - ',b ,', ya vvel - ',d,' proizvedenie - ',p);
     until (p>=c)
else
     repeat
      winner:=isWinner(1,p*d,c,winner);
      d:=random(7)+2;
      writeln('ya vvel - ',d);
      writeln('vvedite chislo ot 2 do 9 - ');
      read(b);
      p:=p*b*d;
      winner:=isWinner(2,p,c,winner);
      writeln('vi vveli - ',b,' proizvedenie - ',p);
     until (p>=c);
     writeln('pobedil - ',winner,',(1-chelovek, 2-komp) ');
while not keypressed do;
end.

.

Сообщение отредактировано: NickolsoN - 5.12.2010 0:56

[Lapp]

вот скелет проги написал

Хорошо, это совсем другой разговор!

Так, во-первых, в игре тебе понадобится цикл (по ходам). И еще нужна булева переменная, чтобы понимать, чей сейчас ход. Если она FALSE - это значит, что сейчас ход компьютера, если TRUE - ход человека. Назови ее Player. Примерно так:

  writeln('kto hodit pervim?(1 - vi, 2 - komp)');
  readln(a);
  Player:= a=2;

- тут мы делаем НАОБОРОТ: если первым ходит комп, то p=TRU. Это потому, что мы сменим p при входе в цикл по ходам. Затем, перед входом в цикл мы должны присвоить начальное значение тому самому числу, которое умножается в игре. Начальное значение равно 1 (понятно, почему?) Потом в ходим в цикл. Сами ходы лучше всего оформить как подрограммы (ты с ними знаком?). Тогда описанный кусок кода будет выглядеть примерно так:

n:= 1;
repeat
  Player:= not Player;
  if p then m:= UserMove(n) else m:= CompMove(n);
  WriteLn('Игрок ',PlayerName[Player],' сделал ход ',m,', новое число равно ',n)
until n>=c;
WriteLn(PlayerName[Player],' выиграл!')

Сделай пока программу UserMove, которая делает ручной ход, и поставь ее на оба места в операторе if, вот так:

  if p then m:= UserMove(n) else m:= UserMove(n);

Такая программа позволит играть юзеру за компьютер. Когда это будет готово, начнем разбираться со стратегией игры.

Давай, делай и приноси результат. Что непонятно - спрашивай. Не стесняйся даже глупых вопросов.
Успехов тебе.

Добавлено через 3 мин.
О, сколько ты наваял! )
все же сделай, как я просил.
Стратегия - после интерфейса. Всему свое время.