Игра в кирпичи с компом

@23girl · Регистрация: 15.10.2019

Студворк — интернет-сервис помощи студентам

14. Дано n кирпичей. Вы и компьютер ходите поочередно. за ход можно взять 1, 2 или 3 кирпича. Проиграл тот, кому нечего брать. Реализуйте игру с компьютером. Компьютер ходит случайно (без анализа выигрышной стратегии), однако если у него есть ход, который является последним для его выигрыша, то он его совершает.

Не понимаю как сделать, чтоб правильно считал остаток кирпичей на каждом ходе?

Pascal

program z_14;
var
  i, n, k, b, l, m: integer;
begin
  write('Сколько кирпичей есть в игре? ');
  readln(n);
  repeat  
    write('Сколько взять кирпичей? ');
    readln(k);
        l := n - k; {остаток кирпичей от исходного количества}
        if l <> 0 then 
    begin;
      randomize;
      if l < 3 then b := random(1, 2)
      else b := random(1, 3);
      if l < 2 then b := 1;
      writeln('Компьютер взял: ', b, 'шт'); 
    end;
        if l = 0 then 
    begin
      writeln('Вы выиграли'); 
      exit;
    end; 
       begin
      m := l - b; { остаток кирпичей после хода компьютера }   
      writeln('В игре находится ', m, ' кирпичей');
    end;
        if m > 0 then writeln('Продолжаем игру ')
      else 
    begin
      writeln('Вы проиграли'); 
      exit;
    end;
  until m = 0;
end.

@mr-Crocodile · 16.10.2019, 18:08

randomize из 13 строчки убери из цикла в самое начало программы (а можно и совсем убрать - в Pascal ABC в нём смысла нет - его оставили для совместимости, но программа и так иницилизирует ГПСЧ сама, без вызова рандомайза).

Добавлено через 14 минут

Pascal

program z_14;
var
  i, n, k, b, l, m: integer;
begin
  randomize;
  write('Сколько кирпичей есть в игре? ');
  readln(n);
  l:=n;
  repeat
    repeat
       write('Сколько взять кирпичей? ');
       readln(k);
       if not ((k in [1..3]) and (k<=l)) then WriteLn('Неверно. Попробуйте ещё раз');
    until (k in [1..3]) and (k<=l);
    l := l - k; {остаток кирпичей от исходного количества}
    if l=0 then begin
        writeln('Вы выиграли');
        exit;
    end
    else begin
      // ход компьютера
      writeln('В игре находится ', l, ' кирпичей. Ход компьютера....');
      Sleep(1500); // задержка,имитирует, что компьютер задумался
      if l<4 then
         k:=l
      else
         k:=random(3)+1;
      Write('Компютер забирает ',k,' ');
      if k=1 then WriteLn('кирпич') else WriteLn('кирпича');
 
      l := l - k; {остаток кирпичей от исходного количества}
 
      if l=0 then begin
        writeln('Компьютер выиграл!');
        exit;
      end;
      writeln('В игре находится ', l, ' кирпичей');
    end;
  until l = 0;
end.

Опции темы