|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
07.12.2012, 08:17 | #1 |
Регистрация: 26.11.2012
Сообщений: 9
|
Нудно доделать игру в текстовом паскале
Нада сделать чтобы было 2 игрока которые по очереди кидают кости и у обоих есть 100 очков за каждый бросок ставиться 10 очков при выигрыше заберает очки тот кто выиграл когда очки кончаются выигрывает тот у кого больше очков. Еще нужно сделать таблицу рейтинга в которую сохраняются очки .Потом нада сделать меню
Меню должно содержать: 1. Новая игра 2. Рейтинг по очкам 3. Выход var one,two,sum:integer; ans:char; begin randomize; repeat one:=random(6)+1; two:=random(6)+1; writeln(one,' ',two); if (one+two=7)or(one+two=11) then writeln('win'); if (one+two=2)or(one+two=3)or(one+two= 12) then writeln('lose'); readln; if ((one+two) in [4,5,6,8,9,10]) then begin sum:=one+two; repeat one:=random(6)+1; two:=random(6)+1; writeln(one,' ',two); readln until (one+two=7)or(one+two=sum) ; if (one+two=7) then begin writeln('lose'); readln; end else begin writeln('win'); readln; end; end; until false; end. Нужно сдать в понедельник помогите пожалуйста . Заранее спасибо! |
07.12.2012, 08:19 | #2 | ||
Made In USSR!
Старожил
Регистрация: 01.09.2010
Сообщений: 3,657
|
Цитата:
Цитата:
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой" |
||
07.12.2012, 08:38 | #3 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
во-первых, код не оформлен должным образом.
во-вторых, (что и послужило причиной закрытия темы), данная тема является кросспостингом! Решайте свои проблемы в ОДНОЙ теме, не надо плодить кучу тем об одном и том же! Модератор p.s. о такой "мелочи", что код не ваш, Вы вообще забыли упомянуть... |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
доделать игру "Морской бой" | nato4ka649 | Помощь студентам | 2 | 18.01.2012 09:10 |
Нужно доделать игру | Chuvak ot dushi | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 22.12.2010 22:18 |
нужно доделать. на паскале | ddeman666 | Помощь студентам | 1 | 14.06.2010 18:08 |
Доделать браузерную игру | Beliar | Gamedev - cоздание игр: Unity, OpenGL, DirectX | 1 | 31.07.2008 19:24 |
Доделать браузерную игру. | Beliar | Gamedev - cоздание игр: Unity, OpenGL, DirectX | 1 | 31.07.2008 15:07 |