1 Тема від Kaskade Востаннє редагувалося Torbins (31.10.2014 12:21:39)

  • Kaskade
  • Kaskade
  • Користувач
  • Поза форумом
  • Звідки: Київ
  • Дата реєстрації: 29.10.2014
  • Повідомлень: 28
    • Репутація: 7

Тема: Гра по клітинках

У гру грають гравець та комп'ютер, які ходять по черзі. За кожним ходом гравець пересувається вперед на одну, дві або три клітинки. Виграє той, хто першим опиниться на останній клітинці. Гравець перед початком гри стоїть на першій клітинці. Напишіть програму реалізації даної гри для N клітинок (5 ≤N≤100) при умові, що гру починає гравець. Ввід даних здійснюється з клавіатури.

program game;
var n,c,p: real; i: integer;
begin
Writeln('Vvedit kilkist klitunok');
Readln(n);
Writeln('Gra pochalas!!!');
 repeat
   Writeln('Zalushuloc klitunok',n);
   Writeln('Vvedit na Jaky kilkist klitunok Vu hochete peremistutus');
   Readln(c);
   n:=n-c;
   p:=1 random(3);
   n:=n-p;
   until n<=5;
If n=4 then
Writeln('Zalushuloc klitunok 4');
Writeln('Vvedit na Jaky kilkist klitunok Vu hochete peremistutus');
Readln(c);
Writeln('Tu Prograv');
 else
 begin
 writeln('Tu vugrav');
 end;
end.

Допоможіть доробити або переробити!

2 Відповідь від quez

  • quez
  • quez
  • Replace Team
  • Поза форумом
  • Звідки: Новий Єрусалим
  • Дата реєстрації: 01.05.2014
  • Повідомлень: 3 103
    • Репутація: 1621

Re: Гра по клітинках

1. В 12-му рядку щось незрозуміле.
2. Перевіряйте умову n <= 0  між 11 і 12 рядком, якщо справджується, то виграв гравець і після 14, якщо справджується, то виграв комп.

3 Відповідь від Q-bart

  • Q-bart
  • Q-bart
  • Хочу бути модератором, щоб такі штуки ставити
  • Поза форумом
  • Звідки: Центр інтернету
  • Дата реєстрації: 14.06.2014
  • Повідомлень: 1 725
    • Репутація: 717

Re: Гра по клітинках

передивіться ще раз той мій пост і це http://mojainformatika.ru/paskal/uroki- … andom.html

4 Відповідь від Kaskade

  • Kaskade
  • Kaskade
  • Користувач
  • Поза форумом
  • Звідки: Київ
  • Дата реєстрації: 29.10.2014
  • Повідомлень: 28
    • Репутація: 7

Re: Гра по клітинках

program qq;
var n,a,b: integer;
begin
writeln('Vvedit kilkist klitunok');
readln(n);
writeln('Gra pochalas');
a:=0;
repeat
Writeln('Zalushulosja',n);
Writeln('Vvedit na jaky kilkist vu xochete peremistutusja');
readln(a);
n:=n-a;
b:=a;
n:=n-b;
until n<=5;
If n=5 then writeln('Tu vugrav')
else
 if n=4 then Writeln('Tu vugrav')
 else n:=3;
  writeln('Tu prograv');
readln;
end.

Зробив вона не ідеальна ,але працює!!!!!

Подякували: Torbins1

5 Відповідь від quez

  • quez
  • quez
  • Replace Team
  • Поза форумом
  • Звідки: Новий Єрусалим
  • Дата реєстрації: 01.05.2014
  • Повідомлень: 3 103
    • Репутація: 1621

Re: Гра по клітинках

Ввів 100 і 48; одночасно виграв і програв :D

6 Відповідь від koala

  • koala
  • koala
  • Лінива тваринка
  • Поза форумом
  • Дата реєстрації: 01.05.2013
  • Повідомлень: 15 603
    • Репутація: 13312

Re: Гра по клітинках

Але ж працює!

koala вебсайт

7 Відповідь від User 298

  • User 298
  • Гість

Re: Гра по клітинках

quez написав:

Ввів 100 і 48; одночасно виграв і програв :D

Гра Шредінгера, нє? :)