сделать игру в Паскале

[Poma][a]

Ром, обрати внимание на жирное слово

Тьфу опять...
Пойду за азбукой..

P.S. Серж, TinMan спасибо за объяснения

[xxxSEREGAxxx]

Всё ещё не понятно? Тогда смотрите Dice1.exe: Вложение 55554


написано на Delphi с использованием JEDI (конкретно, TJvDice (наследник RxDice)...)[/QUOTE]

скинь программный код если сможешь плиз!

[whatever]

Я может тоже чего не понял... Просто две переменных Random(5)+1, несколько условий и все это в цикле? Если так, то не вижу проблем, тут не нужно быть гуру.

[xxxSEREGAxxx]

Сообщение от whatever

Я может тоже чего не понял... Просто две переменных Random(5)+1, несколько условий и все это в цикле? Если так, то не вижу проблем, тут не нужно быть гуру.

Ну конечно просто так в голове придумать легко а как это сделать если в паскале еще месяц недоработал!

[xxxSEREGAxxx]

randomize;
c1 := random(5)+1;
c2 := random(5)+1;
sum := c1+c2;
case sum of
7, 11: Win();
2,3,12: Loser();
else: Points();
end;
всё что мог сделать. кто может допишите ведение очков игроков и добавить проверку последнего условия.

[whatever]

var
  one,two,sum:integer;
  ans:char;
begin
  randomize;
  repeat
    one:=random(5)+1;
    two:=random(5)+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(5)+1;
          two:=random(5)+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.

Как-то так. Долби по энтеру, будь счастлив, ибо больше ничего от тебя не зависит.

[xxxSEREGAxxx]

Сообщение от whatever

var
  one,two,sum:integer;
  ans:char;
begin
  randomize;
  repeat
    one:=random(5)+1;
    two:=random(5)+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(5)+1;
          two:=random(5)+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.

Как-то так. Долби по энтеру, будь счастлив, ибо больше ничего от тебя не зависит.

ОГРОМНОЕ Спасибо тебе ты спас меня!!!!

[Serge_Bliznykov]

random(5)+1;

неужели никого не смутило, что "шестёрки" НИКОГДА не выпадают?!!

замените везде, где написано random(5)+1
на

random(6)+1

[isqoff]

так наверно выиграть легче

[s-andriano]

Сообщение от Poma][a

А это как?

Очевидно, следует читать "сумма цифр верхних граней двух костей".