игра "Кости", счетчик результата

30.11.2009, 22:39. Показов 2405. Ответов 0

Метки нет (Все метки)

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

всем привет

помогите пожалуйста разобраться с проблемой, я хочу чтобы программа приписывала для каждого хода игрока очки которые он заработал, но у меня получилось что прога пишет лишь конечный результат. вот код проги

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Program kosti;
 
{$APPTYPE CONSOLE}
 
uses
 SysUtils;
 
var SumYour,SumComp,sum: integer;
    i,m,s,s1:integer;
 
procedure igra;
begin
SumYour:=100;
i:=0;
repeat
i:=i+1;
writeln ('nomer igri:',i);
writeln ('zagadayte chislo ot 2 do 12');
readln(m);
writeln ('skolko pastavite na kon?');
readln(sum);
randomize;
 begin
  s:=random(6)+1;
  s1:=random(6)+1;
  sumcomp:=s+s1;
  end;
if (m<7) and (sumcomp<7)  then
sumyour:=SumYour+sum;
if (m>7) and (sumcomp>7)  then
sumyour:=SumYour+sum;
if m=sumcomp then
sumyour:=sumyour+(sum*4) else
sumyour:=sumyour-sum;
writeln('comp zagodal chislo:',sumcomp);
writeln('vashi ochki na tekushiy hod:',sumyour);
writeln;
writeln;
until i=10;
end;
begin
igra;
i:=0;
 writeln (' ____________________________');
writeln ('| nomer igri | rezultat igri| ');
repeat
i:=I+1;
writeln ('  ', i:6,'     |','   ',sumyour,'     ', '   |');
until i=10;
 
readln;
end.

прошу подсказать в чем заключается хитрость, и если есть возможность объяснить и привести пример либо загнать сразу в мою прогу. Спасибо заранее!!!

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

30.11.2009, 22:39

Ответы с готовыми решениями:

Игра с машиной в итальянские кости.
Джонатан Смит играет с машиной в итальянские кости. Условия игры такие: машина задумывает число от 0 до 50 и запрашивает последовательно...

Игра Го: сделать организацию ходов и счетчик
Ребят, задали по программированию сделать игру го. Доску уже сделал, требуется сделать организацию ходов и счетчик(сколько чёрных и белых...

Игра Кости, игра с компьютером
Всем привет! Делаю консольную игру Кости. Условия такие: 1) Перед игрой все игроки бросают кость, первым начинает тот, у кого выпало...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

30.11.2009, 22:39

Помогаю со студенческими работами здесь

Игра в кости
Написать игру в которой имитируется бросание кубиков игроком. Игра должна представлять собой консольное приложение. В игре 2 кубика и на...

Игра кости
Всем привет! Помогите пожалуйста перевести исходник программы с дельфи на с++ я не могу разобраться сама. Программа небольшая две-три...

Игра в кости
Написать программу, которая имитирует игру в кости. Игроки (2 человека) кидают по 2 кубика (генерировать значения генератором случайных...

Игра в кости
3. Составить программу для игры в “кости”. Играющий называет любое число в диапазоне от 2 до 12 и ставку, которую он делает в этот ход....

Игра кости
нужно примерно что то такое подкиньте код пожалуйста

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

Наверх