VPF::[Pascal] игра "спички" - Форум программистов

Чуччи

Дата 12.1.2011, 20:14 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 14
Регистрация: 5.11.2010

Репутация: нет
Всего: нет

Игра «100 спичек». Из кучки, первоначально содержащей 100 спичек, двое играющих поочередно берут по нескольку спичек: не менее одной и не более 10. Проигрывает взявший последнюю спичку.

вот что есть....но думаю не то
вконце не работает

Код


program cpi4ki;
uses crt;

var per, vtor, kol, num, min, max: integer; s : set of byte;

begin
repeat
clrscr;
num:=0;
writeln ('введите кол-во спичек для игры'); readln(kol);
writeln ('введите сколько спичек можно убрать минимум'); readln(min);
writeln ('введите сколько спичек можно убрать максимум'); readln(max);
s:=[min..max];
repeat
clrscr;
If (num mod 2)=0
then
begin
writeln ('ходит первый игрок');
writeln ('осталось ',kol,' спичек');
writeln ('сколько спичек вы хотели бы убрать?');readln(per);
If per in s then
begin
kol:=kol-per;
num:=num+1;
end
else
begin
clrscr;
writeln ('было введено не соответствуещее правилам кол-во');
writeln ('введите соответствующее правилам кол-во');
writeln ('');
writeln('Для продолжения нажмите клавишу');
readln();
end;
end
else
begin
clrscr;
writeln ('ходит второй игрок');
writeln ('осталось ',kol,' спичек');
writeln ('сколько спичек вы хотели бы убрать?');readln(vtor);
If vtor in s then
begin
kol:=kol-per;
num:=num+1;
end
else
begin
clrscr;
writeln ('было введено не соответствуещее правилам кол-во');
writeln ('введите соответствующее правилам кол-во');
writeln ('');
writeln('Для продолжения нажмите клавишу');
readln();
end;
end;
until kol<=1;
If (num mod 2)=0 then
begin
clrscr;
writeln('победа');
writeln('выйграл второй игрок');
end
else
begin
clrscr;
writeln('победа');
writeln('выйграл первый игрок');
end;
clrscr;
writeln ('если вы хотите сыграть еще раз нажмите любую клавишу');
writeln ('если вы хотите выйти нажмите Esc');
until readkey=#27;
end.

помогите

Это сообщение отредактировал(а) Чуччи - 12.1.2011, 20:15

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »