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

30.11.2009, 22:39. Показов 2389. Ответов 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 и ставку, которую он делает в этот ход....

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

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

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

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход 3 anaschu 07.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .
Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .

Наверх