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

[NickolsoN]

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

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

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

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

[NickolsoN]

вот щас подлатал прогу, вывод нормально работает и нормально пишит кто выйграл, комп числа выдает случайным образом, без стратегии. Можно но ли, знаяя стратегию, отредактировать мою прогу? а насчет графики....никогда не пользовался))даже не представляю как)может вы поможете сначала со стратегией??пожалуйста=)

program boltyanskiy;
uses crt;
var
a,b,c,p,d,e:integer;
flag:boolean;

begin
repeat
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);
if a=1 then flag:=true;
repeat
     if flag then begin
      write('vvedite chislo ot 2 do 9 - ');
      read(b);
      p:=p*b;
      writeln('vi vveli - ',b,', proizvedenie - ',p);
      end else begin
      d:=random(7)+2;
      p:=p*d;
      writeln('ya vvel - ',d,' ,proizvedenie - ',p); end;
      flag:=not flag;
until (p>=c);
if flag then writeln('Ura!Ya viygral!') else writeln('Pozdravlyayu, vi viygrali!');
  write('Esche sigraem? (1 - yes, 0 - no) - ');
  read(e);
until (e=0);
end.

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

[Lapp]

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

Обрати внимание на такие моменты..
1. Форматирование программы. Сдвиги делаются не там, где тебе кажется красивее, а по правилам. Постарайся понять их на примере моего кода. Это тебе сильно поможет в будущем при написании более длинных программ.
2. Процедуры и функции используй не только для повторяющегося кода, но и для структуризации, чтоб выделить блоки, отличающиеся по смыслу.
3. Убери CRT. Никогда не делай ClrScr без осознанной необходимости. Мне уже надоело это всем говорить, читай тут: Матрица. Суммы диоганалей паралельных главной и побочной
4. Всегда старайся все числа убрать в константы. Например, тут есть числа 2 и 9. Вроде бы, они не должны меняться. На самом же деле может оказаться, когда ты придешь сдавать эту прогу препу, что он скажет: "хорошо, молодой человек, вы справились; а теперь та же задача для пределов 5 и 28..." И ты станешь ползать по всей программе, выискивая двойки и девятки..

Теперь по поводу стратегии.. Хорошо, я не буду убирать из своей проги алгоритм выигрышной стратегии. Постарайся с ним разобраться. Тебе придется это сделать, так как в задании есть вопрос: при каких С есть выигрышная стратегия. Задавай вопросы, если будет что-то неясно )).

const
  d1= 2;
  d2= 9;
  Name: array [false..true] of string=('  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;
begin
  d:=c;
  repeat
    e:=(d-1)div n+1;
    d:=(d-1)div(d2*d1)+1
  until e<=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.