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

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

У гру грають гравець та комп'ютер, які ходять по черзі. За кожним ходом гравець пересувається вперед на одну, дві або три клітинки. Виграє той, хто першим опиниться на останній клітинці. Гравець перед початком гри стоїть на першій клітинці. Напишіть програму реалізації даної гри для 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

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

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

3

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

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

4

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

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

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

6

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

Але ж працює!

7

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

quez написав:

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

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